/* $XConsortium: CIELab.c,v 1.8 91/07/25 01:07:05 rws Exp $ */
* Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
* This file is a component of an X Window System-specific implementation
* of XCMS based on the TekColor Color Management System. Permission is
* hereby granted to use, copy, modify, sell, and otherwise distribute this
* software and its documentation for any purpose and without fee, provided
* that this copyright, permission, and disclaimer notice is reproduced in
* all copies of this software and in supporting documentation. TekColor
* is a trademark of Tektronix, Inc.
* Tektronix makes no representation about the suitability of this software
* for any purpose. It is provided "as is" and with all faults.
* TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
* INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
* PARTICULAR PURPOSE. IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY
* SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
* RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF
* CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
* CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.
* This file contains routines that support the CIE L*a*b*
* color space to include conversions to and from the CIE
* XYZ space. These conversions are from Principles of
* Color Technology Second Edition, Fred W. Billmeyer, Jr.
* and Max Saltzman, John Wiley & Sons, Inc., 1981.
* Note that the range for L* is 0 to 1.
* Internal definitions that need NOT be exported to any package
* or program using this package.
# define XMY_DBL_EPSILON DBL_EPSILON
# define XMY_DBL_EPSILON 0.00001
#define DIV16BY116 0.137931
extern char XcmsCIELab_prefix
[];
static int CIELab_ParseString();
Status
XcmsCIELab_ValidSpec();
* NULL terminated list of functions applied to get from CIELab to CIEXYZ
static XcmsConversionProc Fl_CIELab_to_CIEXYZ
[] = {
* NULL terminated list of functions applied to get from CIEXYZ to CIELab
static XcmsConversionProc Fl_CIEXYZ_to_CIELab
[] = {
XcmsColorSpace XcmsCIELabColorSpace
=
XcmsCIELab_prefix
, /* prefix */
XcmsCIELabFormat
, /* id */
CIELab_ParseString
, /* parseString */
Fl_CIELab_to_CIEXYZ
, /* to_CIEXYZ */
Fl_CIEXYZ_to_CIELab
, /* from_CIEXYZ */
/************************************************************************
************************************************************************/
CIELab_ParseString(spec
, pColor
)
* This routines takes a string and attempts to convert
* it into a XcmsColor structure with XcmsCIELabFormat.
* The assumed CIELab string syntax is:
* Where L, a, and b are in string input format for floats
* b. a string of numbers possibly containing a decimal point,
* c. an optional exponent field containing an 'E' or 'e'
* followed by a possibly signed integer string.
* 0 if failed, non-zero otherwise.
if ((pchar
= strchr(spec
, ':')) == NULL
) {
* Check for proper prefix.
if (strncmp(spec
, XcmsCIELab_prefix
, n
) != 0) {
* Attempt to parse the value portion.
if (sscanf(spec
+ n
+ 1, "%lf/%lf/%lf",
&pColor
->spec
.CIELab
.L_star
,
&pColor
->spec
.CIELab
.a_star
,
&pColor
->spec
.CIELab
.b_star
) != 3) {
pColor
->format
= XcmsCIELabFormat
;
return(XcmsCIELab_ValidSpec(pColor
));
/************************************************************************
************************************************************************/
XcmsCIELab_ValidSpec(pColor
)
* Checks if color specification valid for CIE L*a*b*.
* XcmsFailure if invalid,
if (pColor
->format
!= XcmsCIELabFormat
(pColor
->spec
.CIELab
.L_star
< 0.0 - XMY_DBL_EPSILON
)
(pColor
->spec
.CIELab
.L_star
> 100.0 + XMY_DBL_EPSILON
)) {
* XcmsCIELabToCIEXYZ - convert CIELab to CIEXYZ
XcmsCIELabToCIEXYZ(ccc
, pLab_WhitePt
, pColors_in_out
, nColors
)
XcmsColor
*pColors_in_out
;
* Converts color specifications in an array of XcmsColor
* structures from CIELab format to CIEXYZ format.
* WARNING: This routine assumes that Yn = 1.0;
* XcmsSuccess if succeeded.
XcmsFloat tmpFloat
, tmpL
;
XcmsColor
*pColor
= pColors_in_out
;
if (pLab_WhitePt
== NULL
|| pColors_in_out
== NULL
) {
* Make sure white point is in CIEXYZ form, if not, convert it.
if (pLab_WhitePt
->format
!= XcmsCIEXYZFormat
) {
/* Make a copy of the white point because we're going to modify it */
bcopy((char *)pLab_WhitePt
, (char *)&whitePt
, sizeof(XcmsColor
));
if (!_XcmsDIConvertColors(ccc
, &whitePt
,
(XcmsColor
*)NULL
, 1, XcmsCIEXYZFormat
)) {
* Make sure it is a white point, i.e., Y == 1.0
if (pLab_WhitePt
->spec
.CIEXYZ
.Y
!= 1.0) {
* Now convert each XcmsColor structure to CIEXYZ form
for (i
= 0; i
< nColors
; i
++, pColor
++) {
/* Make sure original format is CIELab */
if (!XcmsCIELab_ValidSpec(pColor
)) {
/* Calculate Y: assume that Yn = 1.0 */
tmpL
= (pColor
->spec
.CIELab
.L_star
+ 16.0) / 116.0;
XYZ_return
.Y
= tmpL
* tmpL
* tmpL
;
if (XYZ_return
.Y
< 0.008856) {
/* Calculate Y: assume that Yn = 1.0 */
tmpL
= pColor
->spec
.CIELab
.L_star
/ 9.03292;
XYZ_return
.X
= pLab_WhitePt
->spec
.CIEXYZ
.X
*
((pColor
->spec
.CIELab
.a_star
/ 3893.5) + tmpL
);
XYZ_return
.Z
= pLab_WhitePt
->spec
.CIEXYZ
.Z
*
(tmpL
- (pColor
->spec
.CIELab
.b_star
/ 1557.4));
tmpFloat
= tmpL
+ (pColor
->spec
.CIELab
.a_star
/ 5.0);
XYZ_return
.X
= pLab_WhitePt
->spec
.CIEXYZ
.X
* tmpFloat
* tmpFloat
* tmpFloat
;
tmpFloat
= tmpL
- (pColor
->spec
.CIELab
.b_star
/ 2.0);
XYZ_return
.Z
= pLab_WhitePt
->spec
.CIEXYZ
.Z
* tmpFloat
* tmpFloat
* tmpFloat
;
bcopy((char *)&XYZ_return
, (char *)&pColor
->spec
.CIEXYZ
,
pColor
->format
= XcmsCIEXYZFormat
;
* XcmsCIEXYZToCIELab - convert CIEXYZ to CIELab
XcmsCIEXYZToCIELab(ccc
, pLab_WhitePt
, pColors_in_out
, nColors
)
XcmsColor
*pColors_in_out
;
* Converts color specifications in an array of XcmsColor
* structures from CIEXYZ format to CIELab format.
* WARNING: This routine assumes that Yn = 1.0;
* XcmsSuccess if succeeded.
XcmsFloat fX_Xn
, fY_Yn
, fZ_Zn
;
XcmsColor
*pColor
= pColors_in_out
;
if (pLab_WhitePt
== NULL
|| pColors_in_out
== NULL
) {
* Make sure white point is in CIEXYZ form, if not, convert it.
if (pLab_WhitePt
->format
!= XcmsCIEXYZFormat
) {
/* Make a copy of the white point because we're going to modify it */
bcopy((char *)pLab_WhitePt
, (char *)&whitePt
, sizeof(XcmsColor
));
if (!_XcmsDIConvertColors(ccc
, &whitePt
, (XcmsColor
*)NULL
,
* Make sure it is a white point, i.e., Y == 1.0
if (pLab_WhitePt
->spec
.CIEXYZ
.Y
!= 1.0) {
* Now convert each XcmsColor structure to CIEXYZ form
for (i
= 0; i
< nColors
; i
++, pColor
++) {
/* Make sure original format is CIELab */
if (!XcmsCIEXYZ_ValidSpec(pColor
)) {
/* Calculate L*: assume Yn = 1.0 */
if (pColor
->spec
.CIEXYZ
.Y
< 0.008856) {
fY_Yn
= (0.07787 * pColor
->spec
.CIEXYZ
.Y
) + DIV16BY116
;
/* note fY_Yn used to compute Lab_return.a below */
Lab_return
.L_star
= 116.0 * (fY_Yn
- DIV16BY116
);
fY_Yn
= (XcmsFloat
)XCMS_CUBEROOT(pColor
->spec
.CIEXYZ
.Y
);
/* note fY_Yn used to compute Lab_return.a_star below */
Lab_return
.L_star
= (116.0 * fY_Yn
) - 16.0;
if ((fX_Xn
= pColor
->spec
.CIEXYZ
.X
/ pLab_WhitePt
->spec
.CIEXYZ
.X
) < 0.008856) {
fX_Xn
= (0.07787 * fX_Xn
) + DIV16BY116
;
fX_Xn
= (XcmsFloat
) XCMS_CUBEROOT(fX_Xn
);
if ((fZ_Zn
= pColor
->spec
.CIEXYZ
.Z
/ pLab_WhitePt
->spec
.CIEXYZ
.Z
) < 0.008856) {
fZ_Zn
= (0.07787 * fZ_Zn
) + DIV16BY116
;
fZ_Zn
= (XcmsFloat
) XCMS_CUBEROOT(fZ_Zn
);
Lab_return
.a_star
= 5.0 * (fX_Xn
- fY_Yn
);
Lab_return
.b_star
= 2.0 * (fY_Yn
- fZ_Zn
);
bcopy((char *)&Lab_return
, (char *)&pColor
->spec
.CIELab
,
pColor
->format
= XcmsCIELabFormat
;