The dufy Reference Manual

Table of Contents

The dufy Reference Manual

This is the dufy Reference Manual, version 0.2.1, generated automatically by Declt version 2.4 "Will Decker" on Wed Jun 20 11:42:59 2018 GMT+0.

1 Introduction

Dufy - Color Library for Common Lisp

Dufy is a library for exact color manipulation and conversion in various color spaces, which supports the following color models:

• Munsell color system
• RGB
• XYZ
• xyY
• HSV
• HSL
• CIELAB and LCh_ab
• CIELUV and LCh_uv
• LMS
• Spectrum (as spectral power distribution function)

Dufy can deal with the following concepts:

• Standard illuminant: C, D65, etc. A new illuminant can be defined by white point or SPD.
• RGB space: sRGB, Adobe RGB, scRGB, etc. A new RGB space can be defined by primary coordinates, illuminant, method of gamma correction, bit per channel and other encoding characteristics.
• Observer (Color Matching Functions): CIE 1931 2° Standard Observer, CIE 1964 10°. Other observer model can be defined by color matching data.
• Color difference: Delta-E^*_ab, CIE94, CIEDE2000.
• Chromatic adaptaion transform: Bradford, Von Kries, etc. User-defined CAT is also available.

Documentation

Besides this README file, most of the documentation is written as docstrings in the source code. Some other information is in github wiki.

Dependencies

• alexandria
• cl-ppcre

All of the dependent libraries can be installed with quicklisp.

Install

The easiest way to install dufy is to use quicklisp:

* (ql:quickload :dufy)

The latest version can also be installed with quicklisp:

$ cd ~/quicklisp/local-projects   # the path is held in ql:*local-project-directories*
$ git clone git@github.com:privet-kitty/dufy.git
$ sbcl   # , ccl, etc.

* (ql:register-local-projects)
* (ql:quickload :dufy)

If you want to use ASDF directly without quicklisp, you should put the directory of dufy to an appropriate location and do (asdf:load-system :dufy).

Usage

Basics

xyz -- lab
lab -- lchab
xyz -- luv
luv -- lchuv
rgb -- hsv
rgb -- hsl

lchab -- mhvc  [ label = "(illuminant C)" ]
mhvc -- munsell

The fundamental color space of dufy is CIE XYZ (Illuminant D65): There are xyz-to- and -to-xyz converters for all other color spaces. Every converter function just receives numbers and returns multiple numbers:

* (dufy:lab-to-xyz 87.07 -78.15 -20.51)  ; L*=87.07, a*=-78.15, b*=-20.51
=> 0.3731384408806708d0 ; X
   0.701492216468595d0  ; Y
   1.060034922742541d0  ; Z
   
* (multiple-value-call #'dufy:xyz-to-qrgb
    (dufy:lab-to-xyz 87.07 -78.15 -20.51)
    :clamp nil)
=> -169 ; R
   255  ; G
   255  ; B

* (multiple-value-call #'dufy:xyz-to-qrgb
    (dufy:lab-to-xyz 87.07 -78.15 -20.51)
    :clamp t)
=> 0    ; R
   255  ; G
   255  ; B

In the second example, a conversion from CIELAB to quantized RGB, xyz-to-qrgb returns a negative R value, which means the color is out of gamut; it is clamped in the third example.

Out of which gamut, however? By default, xyz-to-qrgb (and all other RGB converters) regard it as sRGB (D65). You can specify the RGB space explicitly:

* (dufy:xyz-to-qrgb 0.37314 0.70144 1.0601 :rgbspace dufy:+srgb+)  ; sRGB
=> -169
   255
   255

* (dufy:xyz-to-qrgb 0.37314 0.70144 1.0601 :rgbspace dufy:+adobe+) ; Adobe RGB
=> 2
   255
   255
   
* (dufy:xyz-to-qrgb 0.37314 0.70144 1.0601 :rgbspace dufy:+bg-srgb-10+) ; bg-sRGB (10 bit)
=> 47
   893
   893
;; In the Adobe RGB space and bg-sRGB space the color is within gamut.

Likewise most converters regard the implicit illuminant as D65. You can also specify it explicitly:

* (dufy:luv-to-xyz 100 0 0)                  ; Illuminant D65 
* (dufy:luv-to-xyz 100 0 0 dufy:+illum-d65+) ; Illuminant D65
=> 0.9504285453771808d0
   1.0d0
   1.0889003707981282d0
;; the white point of standard illuminant D65

* (dufy:luv-to-xyz 100 0 0 dufy:+illum-e+)   ; Illuminant E
=> 0.9999999999999999d0
   1.0d0
   1.0000000000000004d0

Munsell Color System

Dufy can handle the Munsell color system in the same way as other color spaces:

* (dufy:munsell-to-xyz "3.2R 4.5/6.1")
=> 0.19362651748394688d0
   0.15142718526032797d0
   0.12281280741243561d0
   
* (dufy:munsell-to-xyz "3.2R 4.5/86.1")
=> 1.7829826744317545d0
   0.13203741531162577d0
   -0.02903836122088697d0

The converters are based on Munsell renotation data. In the second example munsell-to-xyz extrapolate the colors far out of the data (and the MacAdam limits, of course), which is meaningless in many cases but will be necessary to process the boundary colors.

* (dufy:munsell-to-mhvc "3.2R 4.5/6.1")
=> 1.28d0
   4.5d0
   6.1d0
   
* (dufy:mhvc-to-xyz 1.28 4.5 6.1)
=> 0.19362651748394688d0
   0.15142718526032797d0
   0.12281280741243561d0

munsell is the standard string notation of Munsell color. mhvc is its three-number expression, which will be easier to deal with in some cases. A hue number of mhvc corresponds to a hue string of munsell as follows:

| Hue in mhvc | Hue in munsell | | -------------------- | --------------------- | | 0 to 4 | 10RP (=0R) to 10R (=0YR) | | 4 to 8 | 10R (=0YR) to 10YR (=0Y) | | ... | ... | | 36 to 40 | 10P (=0RP) to 10RP (=0R) |

The hue of of mhvc is a circle group: i.e. hues outside the interval [0, 40] are acceptable:

* (dufy:mhvc-to-munsell -400.0 4.5 6.1) ; the same as (0.0 4.5 6.1)
=> "0.00R 4.50/6.10"

There are some more points to remember: First, since the Munsell renotation data is measured not with illuminant D65, but with C, the converters like mhvc-to-xyz do the (Bradford) transformation from C to D65. If you want to use a direct converter with illuminant C, for e.g. accuracy or efficiency, the converters with suffix -illum-c are available under illuminant C: munsell-to-lchab-illum-c, lchab-to-munsell-illum-c, mhvc-to-lchab-illum-c, lchab-to-mhvc-illum-c, munsell-to-xyz-illum-c, mhvc-to-xyz-illum-c.

Second, if you want to know the gamut of the Munsell renotation data, you can find the maximum chroma for a given hue and value by max-chroma-in-mrd:

* (dufy:max-chroma-in-mrd 1.28 4.5) ; V = 1.28, C = 4.5
=> 24
* (dufy:mhvc-to-xyz 1.28 4.5 6.1)
=> 0.19362651667300654d0
   0.1514271852669221d0
   0.12281280847832986d0 ; interpolated, since 6.1 < 24
* (dufy:mhvc-to-xyz 1.28 4.5 24.1)
=> 0.378725146277375d0
   0.14933867420177885d0
   0.05430213863814263d0 ; extrapolated, since 24.1 > 24

2 Systems

The main system appears first, followed by any subsystem dependency.

2.1 dufy

Author

Hugo I.

License

MIT

Description

Color library for Common Lisp

Version

0.2.1

Dependencies

• cl-ppcre
• alexandria

Source

dufy.asd (file)

Components

• dat (module)
• src (module)

3 Modules

Modules are listed depth-first from the system components tree.

3.1 dufy/dat

Parent

dufy (system)

Location

dat/

3.2 dufy/src

Dependency

dat (module)

Parent

dufy (system)

Location

src/

Components

• package.lisp (file)
• fundamental-data.lisp (file)
• general.lisp (file)
• xyz.lisp (file)
• rgb.lisp (file)
• lab-and-luv.lisp (file)
• cat.lisp (file)
• deltae.lisp (file)
• munsell-renotation-data.lisp (file)
• munsell.lisp (file)

4 Files

Files are sorted by type and then listed depth-first from the systems components trees.

4.1 Lisp

4.1.1 dufy.asd

Location

dufy.asd

Systems

dufy (system)

4.1.2 dufy/src/package.lisp

Parent

src (module)

Location

src/package.lisp

Packages

• dufy
• dufy.package.definition

Exported Definitions

gen-deltae-symbols (function)

4.1.3 dufy/src/fundamental-data.lisp

Parent

src (module)

Location

src/fundamental-data.lisp

Internal Definitions

• cmf-arr-cie1931 (special variable)
• cmf-arr-cie1964 (special variable)
• y-to-munsell-value-arr (special variable)

4.1.4 dufy/src/general.lisp

Parent

src (module)

Location

src/general.lisp

Exported Definitions

• circular-clamp (function)
• circular-lerp (function)
• circular-member (function)
• circular-nearer (function)
• nearly-equal (function)
• nearly<= (function)
• nearly= (function)

Internal Definitions

• +empty-matrix+ (special variable)
• +identity-matrix+ (special variable)
• bench-invmat (function)
• bench-mult-mat (function)
• circular-lerp-loose (function)
• determinant (function)
• dotimes-unroll (macro)
• empty-function (function)
• invert-matrix33 (function)
• matrix33 (type)
• multiply-mat-mat (function)
• multiply-mat-vec (function)
• multiply-matrices (function)
• simple-time (macro)
• single-valued-function (type)
• spectrum-function (type)
• subseq-values (macro)
• subtract-with-mod (function)
• time-after-gc (macro)
• two-pi (constant)
• with-double-float (macro)
• with-profile (macro)

4.1.5 dufy/src/xyz.lisp

Parent

src (module)

Location

src/xyz.lisp

Exported Definitions

• +illum-a+ (special variable)
• +illum-c+ (special variable)
• +illum-d50+ (special variable)
• +illum-d65+ (special variable)
• +illum-e+ (special variable)
• +obs-cie1931+ (special variable)
• +obs-cie1964+ (special variable)
• approximate-spectrum (function)
• bb-spectrum (function)
• flat-spectrum (function)
• gen-illum-d-spectrum (function)
• gen-spectrum (function)
• illuminant (structure)
• illuminant-observer (function)
• (setf illuminant-observer) (function)
• illuminant-small-x (function)
• (setf illuminant-small-x) (function)
• illuminant-small-y (function)
• (setf illuminant-small-y) (function)
• illuminant-spectrum (function)
• (setf illuminant-spectrum) (function)
• illuminant-x (function)
• (setf illuminant-x) (function)
• illuminant-y (function)
• (setf illuminant-y) (function)
• illuminant-z (function)
• (setf illuminant-z) (function)
• make-illuminant (function)
• make-illuminant-by-spd (function)
• make-observer (function)
• no-spd-error (condition)
• observer (structure)
• observer-begin-wl (function)
• (setf observer-begin-wl) (function)
• observer-cmf (function)
• (setf observer-cmf) (function)
• observer-cmf-arr (function)
• (setf observer-cmf-arr) (function)
• observer-cmf-x (function)
• (setf observer-cmf-x) (function)
• observer-cmf-y (function)
• (setf observer-cmf-y) (function)
• observer-cmf-z (function)
• (setf observer-cmf-z) (function)
• observer-end-wl (function)
• (setf observer-end-wl) (function)
• optimal-spectrum (function)
• spectrum-sum (function)
• spectrum-to-xyz (function)
• xyy-to-xyz (function)
• xyz-to-spectrum (function)
• xyz-to-xyy (function)

Internal Definitions

• %make-illuminant (function)
• %make-observer (function)
• %spectrum-to-xyz (function)
• +illum-b+ (special variable)
• +illum-c-arr+ (special variable)
• +s0-arr+ (special variable)
• +s0-func+ (special variable)
• +s1-arr+ (special variable)
• +s1-func+ (special variable)
• +s2-arr+ (special variable)
• +s2-func+ (special variable)
• bench-spectrum (function)
• calc-to-spectrum-matrix (function)
• cond-illuminant (method)
• (setf cond-illuminant) (method)
• copy-observer (function)
• illuminant-no-spd-p (function)
• illuminant-p (function)
• illuminant-to-spectrum-matrix (function)
• (setf illuminant-to-spectrum-matrix) (function)
• make-illum-d-spectrum-array (function)
• observer-p (function)

4.1.6 dufy/src/rgb.lisp

Parent

src (module)

Location

src/rgb.lisp

Exported Definitions

• +adobe+ (special variable)
• +adobe-16+ (special variable)
• +bg-srgb-10+ (special variable)
• +bg-srgb-12+ (special variable)
• +bg-srgb-16+ (special variable)
• +ntsc1953+ (special variable)
• +pal/secam+ (special variable)
• +prophoto+ (special variable)
• +prophoto-12+ (special variable)
• +prophoto-16+ (special variable)
• +scrgb-16+ (special variable)
• +scrgb-nl+ (special variable)
• +srgb+ (special variable)
• +wide-gamut+ (special variable)
• copy-rgbspace (function)
• delinearize (function)
• gen-delinearizer (function)
• gen-linearizer (function)
• hsl-to-qrgb (function)
• hsl-to-rgb (function)
• hsl-to-xyz (function)
• hsv-to-qrgb (function)
• hsv-to-rgb (function)
• hsv-to-xyz (function)
• int-to-lrgb (function)
• int-to-qrgb (function)
• int-to-rgb (function)
• int-to-xyz (function)
• linearize (function)
• lrgb-out-of-gamut-p (function)
• lrgb-to-int (function)
• lrgb-to-qrgb (function)
• lrgb-to-rgb (function)
• lrgb-to-xyz (function)
• make-rgbspace (function)
• qrgb-out-of-gamut-p (function)
• qrgb-to-hsl (function)
• qrgb-to-hsv (function)
• qrgb-to-int (function)
• qrgb-to-lrgb (function)
• qrgb-to-rgb (function)
• qrgb-to-xyz (function)
• rgb-out-of-gamut-p (function)
• rgb-to-hsl (function)
• rgb-to-hsv (function)
• rgb-to-int (function)
• rgb-to-lrgb (function)
• rgb-to-qrgb (function)
• rgb-to-xyz (function)
• rgbspace (structure)
• rgbspace-bit-per-channel (function)
• (setf rgbspace-bit-per-channel) (function)
• rgbspace-from-xyz-matrix (function)
• (setf rgbspace-from-xyz-matrix) (function)
• rgbspace-illuminant (function)
• (setf rgbspace-illuminant) (function)
• rgbspace-lmax (function)
• (setf rgbspace-lmax) (function)
• rgbspace-lmin (function)
• (setf rgbspace-lmin) (function)
• rgbspace-max (function)
• (setf rgbspace-max) (function)
• rgbspace-min (function)
• (setf rgbspace-min) (function)
• rgbspace-normal (function)
• (setf rgbspace-normal) (function)
• rgbspace-qmax (function)
• rgbspace-to-xyz-matrix (function)
• (setf rgbspace-to-xyz-matrix) (function)
• rgbspace-xb (function)
• (setf rgbspace-xb) (function)
• rgbspace-xg (function)
• (setf rgbspace-xg) (function)
• rgbspace-xr (function)
• (setf rgbspace-xr) (function)
• rgbspace-yb (function)
• (setf rgbspace-yb) (function)
• rgbspace-yg (function)
• (setf rgbspace-yg) (function)
• rgbspace-yr (function)
• (setf rgbspace-yr) (function)
• xyz-to-hsl (function)
• xyz-to-hsv (function)
• xyz-to-int (function)
• xyz-to-lrgb (function)
• xyz-to-qrgb (function)
• xyz-to-rgb (function)

Internal Definitions

• %make-rgbspace (function)
• bench-qrgb (function)
• delinearize-prophoto (function)
• delinearize-scrgb-nl (function)
• delinearize-srgb (function)
• int-to-qrgba (function)
• linearize-prophoto (function)
• linearize-scrgb-nl (function)
• linearize-srgb (function)
• qrgba-to-int (function)
• rgbspace-delinearizer (function)
• (setf rgbspace-delinearizer) (function)
• rgbspace-len (function)
• (setf rgbspace-len) (function)
• rgbspace-len/qmax-float (function)
• (setf rgbspace-len/qmax-float) (function)
• rgbspace-linearizer (function)
• (setf rgbspace-linearizer) (function)
• rgbspace-p (function)
• rgbspace-qmax-float (function)
• (setf rgbspace-qmax-float) (function)
• rgbspace-qmax-float/len (function)
• (setf rgbspace-qmax-float/len) (function)

4.1.7 dufy/src/lab-and-luv.lisp

Parent

src (module)

Location

src/lab-and-luv.lisp

Exported Definitions

• lab-to-lchab (function)
• lab-to-xyz (function)
• lchab-to-lab (function)
• lchab-to-xyz (function)
• lchuv-to-luv (function)
• lchuv-to-xyz (function)
• lstar-to-y (function)
• luv-to-lchuv (function)
• luv-to-xyz (function)
• xyz-to-lab (function)
• xyz-to-lchab (function)
• xyz-to-lchuv (function)
• xyz-to-luv (function)

Internal Definitions

• +360/two-pi+ (constant)
• +two-pi/360+ (constant)
• calc-uvprime (function)
• calc-uvprime-from-xyz (function)
• function-f (function)
• lab-to-xyy (function)
• lchab-to-xyy (function)
• xyy-to-lab (function)
• xyy-to-lchab (function)
• y-to-lstar (function)

4.1.8 dufy/src/cat.lisp

Parent

src (module)

Location

src/cat.lisp

Exported Definitions

• +bradford+ (special variable)
• +cat02+ (special variable)
• +cat97s-revised+ (special variable)
• +cmccat2000+ (special variable)
• +cmccat97+ (special variable)
• +von-kries+ (special variable)
• +xyz-scaling+ (special variable)
• cat (structure)
• cat-inv-matrix (function)
• (setf cat-inv-matrix) (function)
• cat-matrix (function)
• (setf cat-matrix) (function)
• def-cat-function (macro)
• gen-cat-function (function)
• gen-rgbspace-changer (function)
• lms-to-xyz (function)
• make-cat (function)
• xyz-to-lms (function)

Internal Definitions

• $make-cat (function)
• calc-cat-matrix (function)
• calc-cat-matrix-for-lrgb (function)
• cat-p (function)
• copy-cat (function)

4.1.9 dufy/src/deltae.lisp

Parent

src (module)

Location

src/deltae.lisp

Exported Definitions

• deltae (function)
• deltae00 (function)
• deltae94 (function)
• qrgb-deltae (function)
• qrgb-deltae00 (function)
• qrgb-deltae94 (function)
• xyz-deltae (function)
• xyz-deltae00 (function)
• xyz-deltae94 (function)

Internal Definitions

• bench-deltae00 (function)
• defdeltae (macro)

4.1.10 dufy/src/munsell-renotation-data.lisp

Parent

src (module)

Location

src/munsell-renotation-data.lisp

Internal Definitions

• max-chroma-arr (special variable)
• max-chroma-arr-dark (special variable)
• mrd-array-c-h (special variable)
• mrd-array-c-h-dark (special variable)
• mrd-array-l (special variable)
• mrd-array-l-dark (special variable)

4.1.11 dufy/src/munsell.lisp

Parent

src (module)

Location

src/munsell.lisp

Exported Definitions

• *maximum-chroma* (special variable)
• invalid-mhvc-error (condition)
• large-approximation-error (condition)
• lchab-to-mhvc-illum-c (function)
• lchab-to-munsell-illum-c (function)
• max-chroma-in-mrd (function)
• mhvc-out-of-mrd-p (function)
• mhvc-to-lchab-illum-c (function)
• mhvc-to-lrgb (function)
• mhvc-to-munsell (function)
• mhvc-to-qrgb (function)
• mhvc-to-xyy (function)
• mhvc-to-xyz (function)
• mhvc-to-xyz-illum-c (function)
• munsell-out-of-mrd-p (function)
• munsell-to-lchab-illum-c (function)
• munsell-to-mhvc (function)
• munsell-to-qrgb (function)
• munsell-to-xyy (function)
• munsell-to-xyz (function)
• munsell-to-xyz-illum-c (function)
• munsell-value-to-y (function)
• munsellspec-parse-error (condition)
• xyz-to-mhvc (function)
• xyz-to-munsell (function)
• y-to-munsell-value (function)

Internal Definitions

• *bit-most-positive-fixnum* (special variable)
• bench-mhvc-to-lchab (function)
• bench-mhvc-to-qrgb (function)
• c-to-d65 (function)
• circular-delta (function)
• cond-chroma (method)
• (setf cond-chroma) (method)
• cond-message (method)
• (setf cond-message) (method)
• cond-spec (method)
• (setf cond-spec) (method)
• cond-value (method)
• (setf cond-value) (method)
• d65-to-c (function)
• invert-mhvc-to-lchab (function)
• lstar-to-munsell-value (function)
• max-chroma-lchab (function)
• mhvc-invalid-p (function)
• mhvc-to-lchab-all-integer-case (function)
• mhvc-to-lchab-general-case (function)
• mhvc-to-lchab-value-chroma-integer-case (function)
• mhvc-to-lchab-value-integer-case (function)
• munsell-value-to-achromatic-xyy (function)
• munsell-value-to-achromatic-xyy-from-mrd (function)
• munsell-value-to-lstar (function)
• qrgb-to-munsell-value (function)
• rough-lchab-to-mhvc (function)
• test-inverter (function)
• test-inverter2 (function)
• test-inverter3 (function)
• test-value-to-y (function)

5 Packages

Packages are listed by definition order.

5.1 dufy

Source

package.lisp (file)

Use List

• alexandria.0.dev
• common-lisp

Exported Definitions

• *maximum-chroma* (special variable)
• +adobe+ (special variable)
• +adobe-16+ (special variable)
• +bg-srgb-10+ (special variable)
• +bg-srgb-12+ (special variable)
• +bg-srgb-16+ (special variable)
• +bradford+ (special variable)
• +cat02+ (special variable)
• +cat97s-revised+ (special variable)
• +cmccat2000+ (special variable)
• +cmccat97+ (special variable)
• +illum-a+ (special variable)
• +illum-c+ (special variable)
• +illum-d50+ (special variable)
• +illum-d65+ (special variable)
• +illum-e+ (special variable)
• +ntsc1953+ (special variable)
• +obs-cie1931+ (special variable)
• +obs-cie1964+ (special variable)
• +pal/secam+ (special variable)
• +prophoto+ (special variable)
• +prophoto-12+ (special variable)
• +prophoto-16+ (special variable)
• +scrgb-16+ (special variable)
• +scrgb-nl+ (special variable)
• +srgb+ (special variable)
• +von-kries+ (special variable)
• +wide-gamut+ (special variable)
• +xyz-scaling+ (special variable)
• approximate-spectrum (function)
• bb-spectrum (function)
• cat (structure)
• cat-inv-matrix (function)
• (setf cat-inv-matrix) (function)
• cat-matrix (function)
• (setf cat-matrix) (function)
• circular-clamp (function)
• circular-lerp (function)
• circular-member (function)
• circular-nearer (function)
• copy-rgbspace (function)
• def-cat-function (macro)
• delinearize (function)
• deltae (function)
• deltae00 (function)
• deltae94 (function)
• flat-spectrum (function)
• gen-cat-function (function)
• gen-delinearizer (function)
• gen-illum-d-spectrum (function)
• gen-linearizer (function)
• gen-rgbspace-changer (function)
• gen-spectrum (function)
• hsl-to-qrgb (function)
• hsl-to-rgb (function)
• hsl-to-xyz (function)
• hsv-to-qrgb (function)
• hsv-to-rgb (function)
• hsv-to-xyz (function)
• illuminant (structure)
• illuminant-observer (function)
• (setf illuminant-observer) (function)
• illuminant-small-x (function)
• (setf illuminant-small-x) (function)
• illuminant-small-y (function)
• (setf illuminant-small-y) (function)
• illuminant-spectrum (function)
• (setf illuminant-spectrum) (function)
• illuminant-x (function)
• (setf illuminant-x) (function)
• illuminant-y (function)
• (setf illuminant-y) (function)
• illuminant-z (function)
• (setf illuminant-z) (function)
• int-to-lrgb (function)
• int-to-qrgb (function)
• int-to-rgb (function)
• int-to-xyz (function)
• invalid-mhvc-error (condition)
• lab-to-lchab (function)
• lab-to-xyz (function)
• large-approximation-error (condition)
• lchab-to-lab (function)
• lchab-to-mhvc-illum-c (function)
• lchab-to-munsell-illum-c (function)
• lchab-to-xyz (function)
• lchuv-to-luv (function)
• lchuv-to-xyz (function)
• linearize (function)
• lms-to-xyz (function)
• lrgb-out-of-gamut-p (function)
• lrgb-to-int (function)
• lrgb-to-qrgb (function)
• lrgb-to-rgb (function)
• lrgb-to-xyz (function)
• lstar-to-y (function)
• luv-to-lchuv (function)
• luv-to-xyz (function)
• make-cat (function)
• make-illuminant (function)
• make-illuminant-by-spd (function)
• make-observer (function)
• make-rgbspace (function)
• max-chroma-in-mrd (function)
• mhvc-out-of-mrd-p (function)
• mhvc-to-lchab-illum-c (function)
• mhvc-to-lrgb (function)
• mhvc-to-munsell (function)
• mhvc-to-qrgb (function)
• mhvc-to-xyy (function)
• mhvc-to-xyz (function)
• mhvc-to-xyz-illum-c (function)
• munsell-out-of-mrd-p (function)
• munsell-to-lchab-illum-c (function)
• munsell-to-mhvc (function)
• munsell-to-qrgb (function)
• munsell-to-xyy (function)
• munsell-to-xyz (function)
• munsell-to-xyz-illum-c (function)
• munsell-value-to-y (function)
• munsellspec-parse-error (condition)
• nearly-equal (function)
• nearly<= (function)
• nearly= (function)
• no-spd-error (condition)
• observer (structure)
• observer-begin-wl (function)
• (setf observer-begin-wl) (function)
• observer-cmf (function)
• (setf observer-cmf) (function)
• observer-cmf-arr (function)
• (setf observer-cmf-arr) (function)
• observer-cmf-x (function)
• (setf observer-cmf-x) (function)
• observer-cmf-y (function)
• (setf observer-cmf-y) (function)
• observer-cmf-z (function)
• (setf observer-cmf-z) (function)
• observer-end-wl (function)
• (setf observer-end-wl) (function)
• optimal-spectrum (function)
• qrgb-deltae (function)
• qrgb-deltae00 (function)
• qrgb-deltae94 (function)
• qrgb-out-of-gamut-p (function)
• qrgb-to-hsl (function)
• qrgb-to-hsv (function)
• qrgb-to-int (function)
• qrgb-to-lrgb (function)
• qrgb-to-rgb (function)
• qrgb-to-xyz (function)
• rgb-out-of-gamut-p (function)
• rgb-to-hsl (function)
• rgb-to-hsv (function)
• rgb-to-int (function)
• rgb-to-lrgb (function)
• rgb-to-qrgb (function)
• rgb-to-xyz (function)
• rgbspace (structure)
• rgbspace-bit-per-channel (function)
• (setf rgbspace-bit-per-channel) (function)
• rgbspace-from-xyz-matrix (function)
• (setf rgbspace-from-xyz-matrix) (function)
• rgbspace-illuminant (function)
• (setf rgbspace-illuminant) (function)
• rgbspace-lmax (function)
• (setf rgbspace-lmax) (function)
• rgbspace-lmin (function)
• (setf rgbspace-lmin) (function)
• rgbspace-max (function)
• (setf rgbspace-max) (function)
• rgbspace-min (function)
• (setf rgbspace-min) (function)
• rgbspace-normal (function)
• (setf rgbspace-normal) (function)
• rgbspace-qmax (function)
• rgbspace-to-xyz-matrix (function)
• (setf rgbspace-to-xyz-matrix) (function)
• rgbspace-xb (function)
• (setf rgbspace-xb) (function)
• rgbspace-xg (function)
• (setf rgbspace-xg) (function)
• rgbspace-xr (function)
• (setf rgbspace-xr) (function)
• rgbspace-yb (function)
• (setf rgbspace-yb) (function)
• rgbspace-yg (function)
• (setf rgbspace-yg) (function)
• rgbspace-yr (function)
• (setf rgbspace-yr) (function)
• spectrum-sum (function)
• spectrum-to-xyz (function)
• xyy-to-xyz (function)
• xyz-deltae (function)
• xyz-deltae00 (function)
• xyz-deltae94 (function)
• xyz-to-hsl (function)
• xyz-to-hsv (function)
• xyz-to-int (function)
• xyz-to-lab (function)
• xyz-to-lchab (function)
• xyz-to-lchuv (function)
• xyz-to-lms (function)
• xyz-to-lrgb (function)
• xyz-to-luv (function)
• xyz-to-mhvc (function)
• xyz-to-munsell (function)
• xyz-to-qrgb (function)
• xyz-to-rgb (function)
• xyz-to-spectrum (function)
• xyz-to-xyy (function)
• y-to-munsell-value (function)

Internal Definitions

• $make-cat (function)
• %make-illuminant (function)
• %make-observer (function)
• %make-rgbspace (function)
• %spectrum-to-xyz (function)
• *bit-most-positive-fixnum* (special variable)
• +360/two-pi+ (constant)
• +empty-matrix+ (special variable)
• +identity-matrix+ (special variable)
• +illum-b+ (special variable)
• +illum-c-arr+ (special variable)
• +s0-arr+ (special variable)
• +s0-func+ (special variable)
• +s1-arr+ (special variable)
• +s1-func+ (special variable)
• +s2-arr+ (special variable)
• +s2-func+ (special variable)
• +two-pi/360+ (constant)
• bench-deltae00 (function)
• bench-invmat (function)
• bench-mhvc-to-lchab (function)
• bench-mhvc-to-qrgb (function)
• bench-mult-mat (function)
• bench-qrgb (function)
• bench-spectrum (function)
• c-to-d65 (function)
• calc-cat-matrix (function)
• calc-cat-matrix-for-lrgb (function)
• calc-to-spectrum-matrix (function)
• calc-uvprime (function)
• calc-uvprime-from-xyz (function)
• cat-p (function)
• circular-delta (function)
• circular-lerp-loose (function)
• cmf-arr-cie1931 (special variable)
• cmf-arr-cie1964 (special variable)
• cond-chroma (generic function)
• cond-chroma (method)
• (setf cond-chroma) (method)
• (setf cond-chroma) (generic function)
• cond-illuminant (generic function)
• cond-illuminant (method)
• (setf cond-illuminant) (method)
• (setf cond-illuminant) (generic function)
• cond-message (generic function)
• cond-message (method)
• (setf cond-message) (method)
• (setf cond-message) (generic function)
• cond-spec (generic function)
• cond-spec (method)
• (setf cond-spec) (method)
• (setf cond-spec) (generic function)
• cond-value (generic function)
• cond-value (method)
• (setf cond-value) (method)
• (setf cond-value) (generic function)
• copy-cat (function)
• copy-observer (function)
• d65-to-c (function)
• defdeltae (macro)
• delinearize-prophoto (function)
• delinearize-scrgb-nl (function)
• delinearize-srgb (function)
• determinant (function)
• dotimes-unroll (macro)
• empty-function (function)
• function-f (function)
• illuminant-no-spd-p (function)
• illuminant-p (function)
• illuminant-to-spectrum-matrix (function)
• (setf illuminant-to-spectrum-matrix) (function)
• int-to-qrgba (function)
• invert-matrix33 (function)
• invert-mhvc-to-lchab (function)
• lab-to-xyy (function)
• lchab-to-xyy (function)
• linearize-prophoto (function)
• linearize-scrgb-nl (function)
• linearize-srgb (function)
• lstar-to-munsell-value (function)
• make-illum-d-spectrum-array (function)
• matrix33 (type)
• max-chroma-arr (special variable)
• max-chroma-arr-dark (special variable)
• max-chroma-lchab (function)
• mhvc-invalid-p (function)
• mhvc-to-lchab-all-integer-case (function)
• mhvc-to-lchab-general-case (function)
• mhvc-to-lchab-value-chroma-integer-case (function)
• mhvc-to-lchab-value-integer-case (function)
• mrd-array-c-h (special variable)
• mrd-array-c-h-dark (special variable)
• mrd-array-l (special variable)
• mrd-array-l-dark (special variable)
• multiply-mat-mat (function)
• multiply-mat-vec (function)
• multiply-matrices (function)
• munsell-value-to-achromatic-xyy (function)
• munsell-value-to-achromatic-xyy-from-mrd (function)
• munsell-value-to-lstar (function)
• observer-p (function)
• qrgb-to-munsell-value (function)
• qrgba-to-int (function)
• rgbspace-delinearizer (function)
• (setf rgbspace-delinearizer) (function)
• rgbspace-len (function)
• (setf rgbspace-len) (function)
• rgbspace-len/qmax-float (function)
• (setf rgbspace-len/qmax-float) (function)
• rgbspace-linearizer (function)
• (setf rgbspace-linearizer) (function)
• rgbspace-p (function)
• rgbspace-qmax-float (function)
• (setf rgbspace-qmax-float) (function)
• rgbspace-qmax-float/len (function)
• (setf rgbspace-qmax-float/len) (function)
• rough-lchab-to-mhvc (function)
• simple-time (macro)
• single-valued-function (type)
• spectrum-function (type)
• subseq-values (macro)
• subtract-with-mod (function)
• test-inverter (function)
• test-inverter2 (function)
• test-inverter3 (function)
• test-value-to-y (function)
• time-after-gc (macro)
• two-pi (constant)
• with-double-float (macro)
• with-profile (macro)
• xyy-to-lab (function)
• xyy-to-lchab (function)
• y-to-lstar (function)
• y-to-munsell-value-arr (special variable)

5.2 dufy.package.definition

Source

package.lisp (file)

Use List

• alexandria.0.dev
• common-lisp

Exported Definitions

gen-deltae-symbols (function)

6 Definitions

Definitions are sorted by export status, category, package, and then by lexicographic order.

6.1 Exported definitions

6.1.1 Special variables

Special Variable: *maximum-chroma*

The largest chroma which the Munsell converters accepts. It is in some cases less than MOST-POSITIVE-DOUBLE-FLOAT because of efficiency: e.g. in SBCL (64-bit) it is desirable that a float F fulfills (typep (round F) ’(SIGNED-BYTE 64))

Package

dufy

Source

munsell.lisp (file)

Special Variable: +adobe+

Adobe RGB (1998), 8-bit per channel

Package

dufy

Source

rgb.lisp (file)

Special Variable: +adobe-16+

Adobe RGB (1998), 16-bit per channel.

Package

dufy

Source

rgb.lisp (file)

Special Variable: +bg-srgb-10+

bg-sRGB, 10-bit per channel http://www.color.org/chardata/rgb/bgsrgb.xalter

Package

dufy

Source

rgb.lisp (file)

Special Variable: +bg-srgb-12+

bg-sRGB, 12-bit per channel, http://www.color.org/chardata/rgb/bgsrgb.xalter

Package

dufy

Source

rgb.lisp (file)

Special Variable: +bg-srgb-16+

bg-sRGB, 16-bit per channel, http://www.color.org/chardata/rgb/bgsrgb.xalter

Package

dufy

Source

rgb.lisp (file)

Special Variable: +bradford+

Package

dufy

Source

cat.lisp (file)

Special Variable: +cat02+

Package

dufy

Source

cat.lisp (file)

Special Variable: +cat97s-revised+

Fairchild, Mark D. (2001)."A Revision of CIECAM97s for Practical Applications" http://rit-mcsl.org/fairchild//PDFs/PAP10.pdf

Package

dufy

Source

cat.lisp (file)

Special Variable: +cmccat2000+

Package

dufy

Source

cat.lisp (file)

Special Variable: +cmccat97+

Package

dufy

Source

cat.lisp (file)

Special Variable: +illum-a+

Package

dufy

Source

xyz.lisp (file)

Special Variable: +illum-c+

Package

dufy

Source

xyz.lisp (file)

Special Variable: +illum-d50+

Package

dufy

Source

xyz.lisp (file)

Special Variable: +illum-d65+

Package

dufy

Source

xyz.lisp (file)

Special Variable: +illum-e+

Package

dufy

Source

xyz.lisp (file)

Special Variable: +ntsc1953+

NTSC RGB, Rec. ITU-R BT.470-6, System M, 8-bit per channel. http://www.itu.int/dms_pubrec/itu-r/rec/bt/R-REC-BT.470-6-199811-S!!PDF-E.pdf

Package

dufy

Source

rgb.lisp (file)

Special Variable: +obs-cie1931+

CIE 1931 Standard Colorimetric Observer (2-degree).

Package

dufy

Source

xyz.lisp (file)

Special Variable: +obs-cie1964+

CIE 1964 Standard Colorimetric Observer (10-degree).

Package

dufy

Source

xyz.lisp (file)

Special Variable: +pal/secam+

PAL/SECAM RGB, Rec. ITU-R BT.470-6, 8-bit per channel. http://www.itu.int/dms_pubrec/itu-r/rec/bt/R-REC-BT.470-6-199811-S!!PDF-E.pdf

Package

dufy

Source

rgb.lisp (file)

Special Variable: +prophoto+

Prophoto RGB (also known as ROMM RGB), 8-bit per channel, http://www.color.org/ROMMRGB.pdf

Package

dufy

Source

rgb.lisp (file)

Special Variable: +prophoto-12+

Prophoto RGB (also known as ROMM RGB), 12-bit per channel, http://www.color.org/ROMMRGB.pdf

Package

dufy

Source

rgb.lisp (file)

Special Variable: +prophoto-16+

Prophoto RGB (also known as ROMM RGB), 16-bit per channel, http://www.color.org/ROMMRGB.pdf

Package

dufy

Source

rgb.lisp (file)

Special Variable: +scrgb-16+

scRGB(16), IEC 61966-2-2:2003 http://www.color.org/chardata/rgb/scrgb.xalter

Package

dufy

Source

rgb.lisp (file)

Special Variable: +scrgb-nl+

scRGB-nl, IEC 61966-2-2:2003 http://www.color.org/chardata/rgb/scrgb-nl.xalter

Package

dufy

Source

rgb.lisp (file)

Special Variable: +srgb+

sRGB, 8-bit per channel

Package

dufy

Source

rgb.lisp (file)

Special Variable: +von-kries+

Package

dufy

Source

cat.lisp (file)

Special Variable: +wide-gamut+

Wide-gamut RGB, 8-bit per channel.

Package

dufy

Source

rgb.lisp (file)

Special Variable: +xyz-scaling+

Package

dufy

Source

cat.lisp (file)

6.1.2 Macros

Macro: def-cat-function NAME FROM-ILLUMINANT TO-ILLUMINANT &key CAT TARGET

DEF-macro of GEN-CAT-FUNCTION.
> (def-cat-function d65-to-e +illum-d65+ +illum-e+ :target :xyz) > (d65-to-e 0.9504d0 1.0d0 1.0889d0)
=> 0.9999700272441295d0
0.999998887365445d0
0.9999997282885571d0

TARGET can be :XYZ, :XYY, :LAB, :LUV, :LCHAB or :LCHUV.

Package

dufy

Source

cat.lisp (file)

6.1.3 Functions

Function: approximate-spectrum SPECTRUM &optional BEGIN-WL END-WL BAND

Generates an approximate spectrum of SPECTRUM by pieacewise linearization. It is used to lighten a "heavy" spectrum function.

Package

dufy

Source

xyz.lisp (file)

Function: bb-spectrum WAVELENGTH-NM &optional TEMPERATURE

Spectrum function of a blackbody, which is not normalized.

Package

dufy

Source

xyz.lisp (file)

Function: cat-inv-matrix INSTANCE

Function: (setf cat-inv-matrix) VALUE INSTANCE

Package

dufy

Source

cat.lisp (file)

Function: cat-matrix INSTANCE

Function: (setf cat-matrix) VALUE INSTANCE

Package

dufy

Source

cat.lisp (file)

Function: circular-clamp NUMBER MIN MAX &optional PERIMETER

A clamp function in a circle group. If NUMBER is not in
the (counterclockwise) closed interval [MIN, MAX], CIRCULAR-CLAMP returns MIN or MAX, whichever is nearer to NUMBER.

Package

dufy

Source

general.lisp (file)

Function: circular-lerp COEF THETA1 THETA2 &optional PERIMETER

Counterclockwise linear interpolation from THETA1 to THETA2 in a circle group. It doesn’t exceed the given interval from THETA1 to THETA2, if COEF is in [0, 1]. It is, however, slower than CIRCULAR-LERP-LOOSE.

Package

dufy

Source

general.lisp (file)

Function: circular-member X THETA1 THETA2 &optional PERIMETER

Returns true, if X is in the counterclockwise closed interval [THETA1, THETA2] in a circle group.

Package

dufy

Source

general.lisp (file)

Function: circular-nearer THETA1 X THETA2 &optional PERIMETER

Compares counterclockwise distances between THETA1 and X and between X and THETA2; returns THETA1 or THETA2, whichever is nearer.

Package

dufy

Source

general.lisp (file)

Function: copy-rgbspace RGBSPACE &key ILLUMINANT BIT-PER-CHANNEL

Returns a new RGBSPACE with different standard illuminant and/or bit-per-channel. All the parameters are properly recalculated. If both are nil, it is just a copier.

Package

dufy

Source

rgb.lisp (file)

Function: delinearize X &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: deltae L1 A1 B1 L2 A2 B2

CIE 1976. Euclidean distance in L*a*b* space.

Package

dufy

Source

deltae.lisp (file)

Function: deltae00 L1 A1 B1 L2 A2 B2

CIEDE2000.

Package

dufy

Source

deltae.lisp (file)

Function: deltae94 L1 A1 B1 L2 A2 B2 &key APPLICATION

CIE 1994. APPLICATION must be :graphic-arts or :textiles

Package

dufy

Source

deltae.lisp (file)

Function: flat-spectrum WAVELENGTH-NM

(constantly 1d0)

Package

dufy

Source

xyz.lisp (file)

Function: gen-cat-function FROM-ILLUMINANT TO-ILLUMINANT &key CAT TARGET

Returns a chromatic adaptation function. An example for xyY spaces:
> (funcall (gen-cat-function +illum-a+ +illum-e+ :target :xyy) 0.44757 0.40745 1) => 0.3333333257806802d0
0.33333331733957294d0
1.0000000029690765d0 ; transforms white point

TARGET can be :XYZ, :XYY, :LAB, :LUV, :LCHAB or :LCHUV. If you want to
choose RGB as target, you should use GEN-RGBSPACE-CHANGER instead.

Package

dufy

Source

cat.lisp (file)

Function: gen-delinearizer GAMMA

Returns a gamma-correction function for a given gamma value.

Package

dufy

Source

rgb.lisp (file)

Function: gen-deltae-symbols NAME

Generates the function names of delta-E converters automatically.

Package

dufy.package.definition

Source

package.lisp (file)

Function: gen-illum-d-spectrum TEMPERATURE

Generates the spectrum of the illuminant series D for a given temperature.

Package

dufy

Source

xyz.lisp (file)

Function: gen-linearizer GAMMA

Returns a linearization function for a given gamma value.

Package

dufy

Source

rgb.lisp (file)

Function: gen-rgbspace-changer FROM-RGBSPACE TO-RGBSPACE &optional TARGET CAT

Returns a function for changing RGB working space.
> (funcall (gen-rgbspace-changer +srgb+ +adobe+ :rgb) 0 1 0) => 0.28488056007809415d0
1.0000000000000002d0
0.041169364382683385d0 ; change from sRGB to Adobe RGB. TARGET can be :LRGB, :RGB, :QRGB or :INT.

Note about clamping:
LRGB case: no clamping;
RGB case: no clamping;
QRGB case: with clamping;
INT case: with clamping.

Package

dufy

Source

cat.lisp (file)

Function: gen-spectrum SPECTRUM-SEQ &optional BEGIN-WL END-WL

A spectrum is just a function which takes a real number as wavelength (nm) and returns a double-float.

GEN-SPECTRUM returns a spectral power distribution
function, #’(lambda (wavelength-nm) ...), which interpolates SPECTRUM-SEQ linearly.

Note: SPECTRUM-SEQ must be a sequence of double-float.
If the type of SPECTRUM-SEQ is (simple-array double-float (*)), it is not copied but referenced, otherwise it is copied by (coerce spectrum-seq ’(simple-array double-float (*))).

Package

dufy

Source

xyz.lisp (file)

Function: hsl-to-qrgb HUE SAT LUM &key RGBSPACE CLAMP

Package

dufy

Source

rgb.lisp (file)

Function: hsl-to-rgb HUE SAT LUM

HUE is in the circle group R/360. The nominal range of SAT and LUM is [0, 1]; all the real values outside the interval are also acceptable.

Package

dufy

Source

rgb.lisp (file)

Function: hsl-to-xyz HUE SAT LUM &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: hsv-to-qrgb HUE SAT VAL &key RGBSPACE CLAMP

Package

dufy

Source

rgb.lisp (file)

Function: hsv-to-rgb HUE SAT VAL

HUE is in the circle group R/360. The nominal range of SAT and VAL is [0, 1]; all the real values outside the interval are also acceptable.

Package

dufy

Source

rgb.lisp (file)

Function: hsv-to-xyz HUE SAT VAL &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: illuminant-observer INSTANCE

Function: (setf illuminant-observer) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: illuminant-small-x INSTANCE

Function: (setf illuminant-small-x) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: illuminant-small-y INSTANCE

Function: (setf illuminant-small-y) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: illuminant-spectrum INSTANCE

Function: (setf illuminant-spectrum) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: illuminant-x INSTANCE

Function: (setf illuminant-x) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: illuminant-y INSTANCE

Function: (setf illuminant-y) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: illuminant-z INSTANCE

Function: (setf illuminant-z) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: int-to-lrgb INT &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: int-to-qrgb INT &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: int-to-rgb INT &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: int-to-xyz INT &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: lab-to-lchab LSTAR ASTAR BSTAR

Package

dufy

Source

lab-and-luv.lisp (file)

Function: lab-to-xyz LSTAR ASTAR BSTAR &optional ILLUMINANT

Package

dufy

Source

lab-and-luv.lisp (file)

Function: lchab-to-lab LSTAR CSTARAB HAB

Package

dufy

Source

lab-and-luv.lisp (file)

Function: lchab-to-mhvc-illum-c LSTAR CSTARAB HAB &key MAX-ITERATION IF-REACH-MAX FACTOR THRESHOLD

An inverter of MHVC-TO-LCHAB-ILLUM-C with a simple iteration algorithm like the one in "An Open-Source Inversion Algorithm for the Munsell Renotation" by Paul Centore, 2011:

V := LSTAR-TO-MUNSELL-VALUE(L*);
C_0 := C*ab / 5.5;
H_0 := Hab / 9;
C_(n+1) := C_n + factor * delta(C_n);
H_(n+1) := H_n + factor * delta(H_n),

where delta(H_n) and delta(C_n) is internally calculated at every step. It returns Munsell HVC values if C_0 <= THRESHOLD or max(delta(H_n), delta(C_n)) falls below THRESHOLD.

IF-REACH-MAX specifies the action to be taken if the loop reaches the MAX-ITERATION:
:error: Error of type DUFY:LARGE-APPROXIMATION-ERROR is signaled. :negative: Three MOST-NEGATIVE-DOUBLE-FLOATs are returned. :return: Just returns HVC as it is.

Package

dufy

Source

munsell.lisp (file)

Function: lchab-to-munsell-illum-c LSTAR CSTARAB HAB &key MAX-ITERATION IF-REACH-MAX FACTOR THRESHOLD DIGITS

Illuminant C.

Package

dufy

Source

munsell.lisp (file)

Function: lchab-to-xyz LSTAR CSTARAB HAB &optional ILLUMINANT

Package

dufy

Source

lab-and-luv.lisp (file)

Function: lchuv-to-luv LSTAR CSTARUV HUV

Package

dufy

Source

lab-and-luv.lisp (file)

Function: lchuv-to-xyz LSTAR CSTARUV HUV &optional ILLUMINANT

Package

dufy

Source

lab-and-luv.lisp (file)

Function: linearize X &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: lms-to-xyz L M S &key ILLUMINANT CAT

Note: The default illuminant is **not** D65; if ILLUMINANT is NIL, the transform is virtually equivalent to that of illuminant E.

Package

dufy

Source

cat.lisp (file)

Function: lrgb-out-of-gamut-p LR LG LB &key RGBSPACE THRESHOLD

Returns true, if at least one of LR, LG and LB is outside the interval [RGBSPACE-LMIN - THRESHOLD, RGBSPACE-LMAX + THRESHOLD]

Package

dufy

Source

rgb.lisp (file)

Function: lrgb-to-int LR LG LB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: lrgb-to-qrgb LR LG LB &key RGBSPACE CLAMP

Package

dufy

Source

rgb.lisp (file)

Function: lrgb-to-rgb LR LG LB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: lrgb-to-xyz LR LG LB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: lstar-to-y LSTAR

Package

dufy

Source

lab-and-luv.lisp (file)

Function: luv-to-lchuv LSTAR USTAR VSTAR

Package

dufy

Source

lab-and-luv.lisp (file)

Function: luv-to-xyz LSTAR USTAR VSTAR &optional ILLUMINANT

Package

dufy

Source

lab-and-luv.lisp (file)

Function: make-cat MAT

Generates a (linear) CAT model by a 3*3 matrix.

Package

dufy

Source

cat.lisp (file)

Function: make-illuminant SMALL-X SMALL-Y &optional SPECTRUM OBSERVER

Generates an illuminant based on a white point. No error occurs, even if the given white point, (small-x, small-y), and SPD contradicts to each other.

Package

dufy

Source

xyz.lisp (file)

Function: make-illuminant-by-spd SPECTRUM &optional OBSERVER

Generates an illuminant based on a spectral power distribution. The white point is automatically calculated.

Package

dufy

Source

xyz.lisp (file)

Function: make-observer CMF-ARR &optional BEGIN-WL END-WL

Generates an observer based on CMF arrays, which must be (SIMPLE-ARRAY DOUBLE-FLOAT (* 3)).

Package

dufy

Source

xyz.lisp (file)

Function: make-rgbspace XR YR XG YG XB YB &key ILLUMINANT LMIN LMAX LINEARIZER DELINEARIZER BIT-PER-CHANNEL FORCE-NORMAL

LINEARIZER and DELINEARIZER must be (FUNCTION * DOUBLE-FLOAT). If FORCE-NORMAL is T, the nominal range of gamma-corrected value is forcibly set to [0, 1].

Package

dufy

Source

rgb.lisp (file)

Function: max-chroma-in-mrd HUE40 VALUE &key USE-DARK

Returns the largest chroma in the Munsell renotation data for a given hue and value.

Package

dufy

Source

munsell.lisp (file)

Function: mhvc-out-of-mrd-p HUE40 VALUE CHROMA

Checks if MHVC is out of the Munsell renotation data.

Package

dufy

Source

munsell.lisp (file)

Function: mhvc-to-lchab-illum-c HUE40 VALUE CHROMA

Illuminant C.

Package

dufy

Source

munsell.lisp (file)

Function: mhvc-to-lrgb HUE40 VALUE CHROMA &optional RGBSPACE

The standard illuminant is D65: that of RGBSPACE must also be D65.

Package

dufy

Source

munsell.lisp (file)

Function: mhvc-to-munsell HUE40 VALUE CHROMA &optional DIGITS

Package

dufy

Source

munsell.lisp (file)

Function: mhvc-to-qrgb HUE40 VALUE CHROMA &key RGBSPACE CLAMP

The standard illuminant is D65: that of RGBSPACE must also be D65.

Package

dufy

Source

munsell.lisp (file)

Function: mhvc-to-xyy HUE40 VALUE CHROMA

Illuminant D65.

Package

dufy

Source

munsell.lisp (file)

Function: mhvc-to-xyz HUE40 VALUE CHROMA

Illuminant D65. It causes an error by Bradford transformation, since the Munsell Renotation Data is measured under the Illuminant C.

Package

dufy

Source

munsell.lisp (file)

Function: mhvc-to-xyz-illum-c HUE40 VALUE CHROMA

Illuminant C. (Munsell Renotation Data is measured under the Illuminant C.)

Package

dufy

Source

munsell.lisp (file)

Function: munsell-out-of-mrd-p MUNSELLSPEC

Package

dufy

Source

munsell.lisp (file)

Function: munsell-to-lchab-illum-c MUNSELLSPEC

Illuminant C.

Package

dufy

Source

munsell.lisp (file)

Function: munsell-to-mhvc MUNSELLSPEC

Usage Example:
CL-USER> (dufy:munsell-to-mhvc "0.02RP 0.9/3.5")
=> (36.00799999982119d0 0.8999999761581421d0 3.5d0)

Many other notations of numbers are acceptable; an ugly specification as follows are also available:

CL-USER> (dufy:munsell-to-mhvc "2d-2RP .9/ #x0ffffff")
=> (36.008d0 0.8999999761581421d0 1.6777215d7)

but the capital letters and ’/’ are reserved:

CL-USER> (dufy:munsell-to-mhvc "2D-2RP 9/10 / #x0FFFFFF")
=> ERROR,

Package

dufy

Source

munsell.lisp (file)

Function: munsell-to-qrgb MUNSELLSPEC &key RGBSPACE CLAMP

Illuminant D65; the standard illuminant of RGBSPACE must also be D65.

Package

dufy

Source

munsell.lisp (file)

Function: munsell-to-xyy MUNSELLSPEC

Illuminant D65.

Package

dufy

Source

munsell.lisp (file)

Function: munsell-to-xyz MUNSELLSPEC

Illuminant D65.

Package

dufy

Source

munsell.lisp (file)

Function: munsell-to-xyz-illum-c MUNSELLSPEC

Package

dufy

Source

munsell.lisp (file)

Function: munsell-value-to-y V

Converts Munsell value to Y, whose nominal range is [0, 1]. The formula is based on ASTM D1535-08e1:

Package

dufy

Source

munsell.lisp (file)

Function: nearly-equal THRESHOLD LST1 LST2

Package

dufy

Source

general.lisp (file)

Function: nearly<= THRESHOLD NUMBER &rest MORE-NUMBERS

Package

dufy

Source

general.lisp (file)

Function: nearly= THRESHOLD NUMBER &rest MORE-NUMBERS

Package

dufy

Source

general.lisp (file)

Function: observer-begin-wl INSTANCE

Function: (setf observer-begin-wl) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: observer-cmf INSTANCE

Function: (setf observer-cmf) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: observer-cmf-arr INSTANCE

Function: (setf observer-cmf-arr) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: observer-cmf-x INSTANCE

Function: (setf observer-cmf-x) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: observer-cmf-y INSTANCE

Function: (setf observer-cmf-y) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: observer-cmf-z INSTANCE

Function: (setf observer-cmf-z) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: observer-end-wl INSTANCE

Function: (setf observer-end-wl) VALUE INSTANCE

Package

dufy

Source

xyz.lisp (file)

Function: optimal-spectrum WAVELENGTH-NM &optional WL1 WL2

Spectrum function of optimal colors: In the case wl1 <= wl2:
f(x) = 1d0 if wl1 <= x <= wl2, f(x) = 0d0 otherwise.
In the case wl1 > wl2:
f(x) = 1d0 if x <=wl2 or wl1 <= x, f(x) = 0d0 otherwise.

Package

dufy

Source

xyz.lisp (file)

Function: qrgb-deltae QR1 QG1 QB1 QR2 QG2 QB2 &key RGBSPACE

Package

dufy

Source

deltae.lisp (file)

Function: qrgb-deltae00 QR1 QG1 QB1 QR2 QG2 QB2 &key RGBSPACE

Package

dufy

Source

deltae.lisp (file)

Function: qrgb-deltae94 QR1 QG1 QB1 QR2 QG2 QB2 &key APPLICATION RGBSPACE

Package

dufy

Source

deltae.lisp (file)

Function: qrgb-out-of-gamut-p QR QG QB &key RGBSPACE THRESHOLD

Package

dufy

Source

rgb.lisp (file)

Function: qrgb-to-hsl QR QG QB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: qrgb-to-hsv QR QG QB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: qrgb-to-int QR QG QB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: qrgb-to-lrgb QR QG QB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: qrgb-to-rgb QR QG QB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: qrgb-to-xyz QR QG QB &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: rgb-out-of-gamut-p R G B &key RGBSPACE THRESHOLD

Returns true, if at least one of R, G and B is outside the interval [RGBSPACE-MIN - THRESHOLD, RGBSPACE-MAX + THRESHOLD]

Package

dufy

Source

rgb.lisp (file)

Function: rgb-to-hsl R G B

Package

dufy

Source

rgb.lisp (file)

Function: rgb-to-hsv R G B

Package

dufy

Source

rgb.lisp (file)

Function: rgb-to-int R G B &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: rgb-to-lrgb R G B &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: rgb-to-qrgb R G B &key RGBSPACE CLAMP

Quantizes RGB values from [RGBSPACE-MIN, RGBSPACE-MAX] ([0, 1], typically) to {0, 1, ..., RGBSPACE-QMAX} ({0, 1, ..., 255}, typically), though it accepts
all the real values.

Package

dufy

Source

rgb.lisp (file)

Function: rgb-to-xyz R G B &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-bit-per-channel INSTANCE

Function: (setf rgbspace-bit-per-channel) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-from-xyz-matrix INSTANCE

Function: (setf rgbspace-from-xyz-matrix) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-illuminant INSTANCE

Function: (setf rgbspace-illuminant) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-lmax INSTANCE

Function: (setf rgbspace-lmax) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-lmin INSTANCE

Function: (setf rgbspace-lmin) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-max INSTANCE

Function: (setf rgbspace-max) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-min INSTANCE

Function: (setf rgbspace-min) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-normal INSTANCE

Function: (setf rgbspace-normal) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-qmax INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-to-xyz-matrix INSTANCE

Function: (setf rgbspace-to-xyz-matrix) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-xb INSTANCE

Function: (setf rgbspace-xb) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-xg INSTANCE

Function: (setf rgbspace-xg) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-xr INSTANCE

Function: (setf rgbspace-xr) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-yb INSTANCE

Function: (setf rgbspace-yb) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-yg INSTANCE

Function: (setf rgbspace-yg) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: rgbspace-yr INSTANCE

Function: (setf rgbspace-yr) VALUE INSTANCE

Package

dufy

Source

rgb.lisp (file)

Function: spectrum-sum SPECTRUM &optional BEGIN-WL END-WL BAND

Package

dufy

Source

xyz.lisp (file)

Function: spectrum-to-xyz SPECTRUM &optional ILLUMINANT BEGIN-WL END-WL BAND

Computes XYZ values from SPECTRUM in reflective and transmissive
case. The function SPECTRUM must be defined at least in [BEGIN-WL, END-WL]; the SPECTRUM is called for BEGIN-WL, BEGIN-WL + BAND, BEGIN-WL + 2*BAND, ..., END-WL.

Package

dufy

Source

xyz.lisp (file)

Function: xyy-to-xyz SMALL-X SMALL-Y Y

xyY to XYZ. The nominal range of Y is [0, 1], though all real values are accepted.

Package

dufy

Source

xyz.lisp (file)

Function: xyz-deltae X1 Y1 Z1 X2 Y2 Z2 &key ILLUMINANT

Package

dufy

Source

deltae.lisp (file)

Function: xyz-deltae00 X1 Y1 Z1 X2 Y2 Z2 &key ILLUMINANT

Package

dufy

Source

deltae.lisp (file)

Function: xyz-deltae94 X1 Y1 Z1 X2 Y2 Z2 &key APPLICATION ILLUMINANT

Package

dufy

Source

deltae.lisp (file)

Function: xyz-to-hsl X Y Z &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: xyz-to-hsv X Y Z &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: xyz-to-int X Y Z &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: xyz-to-lab X Y Z &optional ILLUMINANT

Package

dufy

Source

lab-and-luv.lisp (file)

Function: xyz-to-lchab X Y Z &optional ILLUMINANT

Package

dufy

Source

lab-and-luv.lisp (file)

Function: xyz-to-lchuv X Y Z &optional ILLUMINANT

Package

dufy

Source

lab-and-luv.lisp (file)

Function: xyz-to-lms X Y Z &key ILLUMINANT CAT

Note: The default illuminant is **not** D65; if ILLUMINANT is NIL, the transform is virtually equivalent to that of illuminant E.

Package

dufy

Source

cat.lisp (file)

Function: xyz-to-lrgb X Y Z &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: xyz-to-luv X Y Z &optional ILLUMINANT

Package

dufy

Source

lab-and-luv.lisp (file)

Function: xyz-to-mhvc X Y Z &key MAX-ITERATION IF-REACH-MAX FACTOR THRESHOLD

Illuminant D65. doing Bradford transformation.

Package

dufy

Source

munsell.lisp (file)

Function: xyz-to-munsell X Y Z &key MAX-ITERATION IF-REACH-MAX FACTOR THRESHOLD DIGITS

Illuminant D65. doing Bradford transformation.

Package

dufy

Source

munsell.lisp (file)

Function: xyz-to-qrgb X Y Z &key RGBSPACE CLAMP

Package

dufy

Source

rgb.lisp (file)

Function: xyz-to-rgb X Y Z &optional RGBSPACE

Package

dufy

Source

rgb.lisp (file)

Function: xyz-to-spectrum X Y Z &optional ILLUMINANT

Converts XYZ to spectrum, which is, of course, a spectrum among many.

Package

dufy

Source

xyz.lisp (file)

Function: xyz-to-xyy X Y Z

XYZ to xyY. The nominal range of Y is [0, 1], though all real values are accepted.

Package

dufy

Source

xyz.lisp (file)

Function: y-to-munsell-value Y

Interpolates the inversion table of MUNSELL-VALUE-TO-Y linearly, whose band width is 10^-3. The
error, (abs (- (y (munsell-value-to-y (y-to-munsell-value y))))), is smaller than 10^-5.

Package

dufy

Source

munsell.lisp (file)

6.1.4 Conditions

Condition: invalid-mhvc-error ()

Package

dufy

Source

munsell.lisp (file)

Direct superclasses

simple-error (condition)

Direct methods

• cond-chroma (method)
• cond-chroma (method)
• cond-value (method)
• cond-value (method)

Direct slots

Slot: value

Initargs

:value

Initform

(quote 0.0d0)

Readers

cond-value (generic function)

Writers

(setf cond-value) (generic function)

Slot: chroma

Initargs

:chroma

Initform

(quote 0.0d0)

Readers

cond-chroma (generic function)

Writers

(setf cond-chroma) (generic function)

Condition: large-approximation-error ()

Package

dufy

Source

munsell.lisp (file)

Direct superclasses

arithmetic-error (condition)

Direct methods

• cond-message (method)
• cond-message (method)

Direct slots

Slot: message

Initargs

:message

Initform

(quote "couldn't achieve the sufficent accuracy.")

Readers

cond-message (generic function)

Writers

(setf cond-message) (generic function)

Condition: munsellspec-parse-error ()

Package

dufy

Source

munsell.lisp (file)

Direct superclasses

parse-error (condition)

Direct methods

• cond-spec (method)
• cond-spec (method)

Direct slots

Slot: spec

Initargs

:spec

Initform

(quote nil)

Readers

cond-spec (generic function)

Writers

(setf cond-spec) (generic function)

Condition: no-spd-error ()

Package

dufy

Source

xyz.lisp (file)

Direct superclasses

simple-error (condition)

Direct methods

• cond-illuminant (method)
• cond-illuminant (method)

Direct slots

Slot: illuminant

Initargs

:illuminant

Initform

(quote nil)

Readers

cond-illuminant (generic function)

Writers

(setf cond-illuminant) (generic function)

6.1.5 Structures

Structure: cat ()

Model of chromatic adaptation transformation. Currently only linear models are available.

Package

dufy

Source

cat.lisp (file)

Direct superclasses

structure-object (structure)

Direct slots

Slot: matrix

Type

(simple-array double-float (3 3))

Initform

dufy::+empty-matrix+

Readers

cat-matrix (function)

Writers

(setf cat-matrix) (function)

Slot: inv-matrix

Type

(simple-array double-float (3 3))

Initform

dufy::+empty-matrix+

Readers

cat-inv-matrix (function)

Writers

(setf cat-inv-matrix) (function)

Structure: illuminant ()

Package

dufy

Source

xyz.lisp (file)

Direct superclasses

structure-object (structure)

Direct slots

Slot: small-x

Type

double-float

Initform

0.0

Readers

illuminant-small-x (function)

Writers

(setf illuminant-small-x) (function)

Slot: small-y

Type

double-float

Initform

0.0

Readers

illuminant-small-y (function)

Writers

(setf illuminant-small-y) (function)

Slot: x

Type

double-float

Initform

0.0

Readers

illuminant-x (function)

Writers

(setf illuminant-x) (function)

Slot: y

Type

double-float

Initform

0.0

Readers

illuminant-y (function)

Writers

(setf illuminant-y) (function)

Slot: z

Type

double-float

Initform

0.0

Readers

illuminant-z (function)

Writers

(setf illuminant-z) (function)

Slot: spectrum

Type

dufy::spectrum-function

Initform

(function dufy::empty-function)

Readers

illuminant-spectrum (function)

Writers

(setf illuminant-spectrum) (function)

Slot: observer

Type

dufy:observer

Initform

dufy:+obs-cie1931+

Readers

illuminant-observer (function)

Writers

(setf illuminant-observer) (function)

Slot: to-spectrum-matrix

Type

(simple-array double-float (3 3))

Initform

dufy::+empty-matrix+

Readers

illuminant-to-spectrum-matrix (function)

Writers

(setf illuminant-to-spectrum-matrix) (function)

Structure: observer ()

OBSERVER is a structure of color matching functions.

Package

dufy

Source

xyz.lisp (file)

Direct superclasses

structure-object (structure)

Direct slots

Slot: begin-wl

Type

(integer 0)

Initform

360

Readers

observer-begin-wl (function)

Writers

(setf observer-begin-wl) (function)

Slot: end-wl

Type

(integer 0)

Initform

830

Readers

observer-end-wl (function)

Writers

(setf observer-end-wl) (function)

Slot: cmf-arr

Type

(simple-array double-float (* 3))

Readers

observer-cmf-arr (function)

Writers

(setf observer-cmf-arr) (function)

Slot: cmf-x

Type

dufy::spectrum-function

Readers

observer-cmf-x (function)

Writers

(setf observer-cmf-x) (function)

Slot: cmf-y

Type

dufy::spectrum-function

Readers

observer-cmf-y (function)

Writers

(setf observer-cmf-y) (function)

Slot: cmf-z

Type

dufy::spectrum-function

Readers

observer-cmf-z (function)

Writers

(setf observer-cmf-z) (function)

Slot: cmf

Type

(function * (values double-float double-float double-float &optional))

Readers

observer-cmf (function)

Writers

(setf observer-cmf) (function)