Measurement-based Color Spaces
A port of the SLIB color library. For documentation see:
;;; construct some colors in various color spaces ;;; and measure their distance from the D65 white-point (import color srfi-13) (let ((rgb-red (make-color 'sRGB '(255 0 0))) (lab-yellow (make-color 'L*a*b* '( 76 7 130))) (luv-blue (make-color 'L*u*v* '( 32 -9 -132)))) (print "rgb-red's distance from the D65 whitepoint is " (CIE:DE* rgb-red D65 D65)) (print "lab-yellow's distance from the D65 whitepoint is " (CIE:DE* lab-yellow D65 D65)) (print "luv-blue's distance from the D65 whitepoint is " (CIE:DE* luv-blue D65 D65)) (print "D65's distance from the D65 whitepoint is " (CIE:DE* D65 D65 D65)))
Erik Falor <ewfalor at gmail dot com>
- Initial release as CHICKEN Scheme egg
Copyright 2001, 2002 Aubrey Jaffer
Permission to copy this software, to modify it, to redistribute it, to distribute modified versions, and to use it for any purpose is granted, subject to the following restrictions and understandings.
1. Any copy made of this software must include this copyright notice in full.
2. I have made no warranty or representation that the operation of this software will be error-free, and I am under no obligation to provide any services, by way of maintenance, update, or otherwise.
3. In conjunction with products arising from the use of this material, there shall be no use of my name in any advertising, promotional, or sales literature without prior written consent in each case.