cie-white-points.lisp

;;; cie-white-points.lisp --- white points of CIE standard illuminants.

;; Copyright (C) 2014 Ralph Schleicher

;; Redistribution and use in source and binary forms, with or without
;; modification, are permitted provided that the following conditions
;; are met:
;;
;;    * Redistributions of source code must retain the above copyright
;;      notice, this list of conditions and the following disclaimer.
;;
;;    * Redistributions in binary form must reproduce the above copyright
;;      notice, this list of conditions and the following disclaimer in
;;      the documentation and/or other materials provided with the
;;      distribution.
;;
;;    * Neither the name of the copyright holder nor the names of its
;;      contributors may be used to endorse or promote products derived
;;      from this software without specific prior written permission.
;;
;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
;; FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE
;; COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
;; BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
;; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
;; CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
;; ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
;; POSSIBILITY OF SUCH DAMAGE.

;;; Code:

(in-package :rs-colors)

;; See <http://en.wikipedia.org/wiki/Standard_illuminant>.
(macrolet ((define-white-point (name (x y) &optional doc)
	     `(defconst ,name (make-cie-xyy-color ,x ,y 1)
		,@(when doc (list doc)))))
  (define-white-point CIE-1931-A   (0.44757 0.40745))
  (define-white-point CIE-1931-B   (0.34842 0.35161))
  (define-white-point CIE-1931-C   (0.31006 0.31616))
  (define-white-point CIE-1931-D50 (0.34567 0.35850))
  (define-white-point CIE-1931-D55 (0.33242 0.34743))
  (define-white-point CIE-1931-D65 (0.31271 0.32902))
  (define-white-point CIE-1931-D75 (0.29902 0.31485))
  (define-white-point CIE-1931-E   (1/3     1/3    ))
  (define-white-point CIE-1931-F1  (0.31310 0.33727))
  (define-white-point CIE-1931-F2  (0.37208 0.37529))
  (define-white-point CIE-1931-F3  (0.40910 0.39430))
  (define-white-point CIE-1931-F4  (0.44018 0.40329))
  (define-white-point CIE-1931-F5  (0.31379 0.34531))
  (define-white-point CIE-1931-F6  (0.37790 0.38835))
  (define-white-point CIE-1931-F7  (0.31292 0.32933))
  (define-white-point CIE-1931-F8  (0.34588 0.35875))
  (define-white-point CIE-1931-F9  (0.37417 0.37281))
  (define-white-point CIE-1931-F10 (0.34609 0.35986))
  (define-white-point CIE-1931-F11 (0.38052 0.37713))
  (define-white-point CIE-1931-F12 (0.43695 0.40441))
  (define-white-point CIE-1964-A   (0.45117 0.40594))
  (define-white-point CIE-1964-B   (0.34980 0.35270))
  (define-white-point CIE-1964-C   (0.31039 0.31905))
  (define-white-point CIE-1964-D50 (0.34773 0.35952))
  (define-white-point CIE-1964-D55 (0.33411 0.34877))
  (define-white-point CIE-1964-D65 (0.31382 0.33100))
  (define-white-point CIE-1964-D75 (0.29968 0.31740))
  (define-white-point CIE-1964-E   (1/3     1/3    ))
  (define-white-point CIE-1964-F1  (0.31811 0.33559))
  (define-white-point CIE-1964-F2  (0.37925 0.36733))
  (define-white-point CIE-1964-F3  (0.41761 0.38324))
  (define-white-point CIE-1964-F4  (0.44920 0.39074))
  (define-white-point CIE-1964-F5  (0.31975 0.34246))
  (define-white-point CIE-1964-F6  (0.38660 0.37847))
  (define-white-point CIE-1964-F7  (0.31569 0.32960))
  (define-white-point CIE-1964-F8  (0.34902 0.35939))
  (define-white-point CIE-1964-F9  (0.37829 0.37045))
  (define-white-point CIE-1964-F10 (0.35090 0.35444))
  (define-white-point CIE-1964-F11 (0.38541 0.37123))
  (define-white-point CIE-1964-F12 (0.44256 0.39717))
  (values))

;;; cie-white-points.lisp ends here