#include "Xlibint.h"
#include "Xcmsint.h"
#include <X11/Xos.h>
#include <math.h>
#include "Cv.h"
#include <stdio.h>
#define u_BR 0.7127
#define v_BR 0.4931
#define EPS 0.001
#define CHROMA_SCALE_FACTOR 7.50725
#ifndef PI
# ifdef M_PI
# define PI M_PI
# else
# define PI 3.14159265358979323846264338327950
# endif
#endif
#ifndef degrees
# define degrees(r) ((XcmsFloat)(r) * 180.0 / PI)
#endif
#ifndef radians
# define radians(d) ((XcmsFloat)(d) * PI / 180.0)
#endif
#ifdef DBL_EPSILON
# define XMY_DBL_EPSILON DBL_EPSILON
#else
# define XMY_DBL_EPSILON 0.00001
#endif
static int TekHVC_ParseString(register char *spec, XcmsColor *pColor);
static Status XcmsTekHVC_ValidSpec(XcmsColor *pColor);
static XcmsConversionProc Fl_TekHVC_to_CIEXYZ[] = {
XcmsTekHVCToCIEuvY,
XcmsCIEuvYToCIEXYZ,
NULL
};
static XcmsConversionProc Fl_CIEXYZ_to_TekHVC[] = {
XcmsCIEXYZToCIEuvY,
XcmsCIEuvYToTekHVC,
NULL
};
XcmsColorSpace XcmsTekHVCColorSpace =
{
_XcmsTekHVC_prefix,
XcmsTekHVCFormat,
TekHVC_ParseString,
Fl_TekHVC_to_CIEXYZ,
Fl_CIEXYZ_to_TekHVC,
1
};
static int
TekHVC_ParseString(
register char *spec,
XcmsColor *pColor)
{
int n;
char *pchar;
if ((pchar = strchr(spec, ':')) == NULL) {
return(XcmsFailure);
}
n = (int)(pchar - spec);
if (strncmp(spec, _XcmsTekHVC_prefix, n) != 0) {
return(XcmsFailure);
}
if (sscanf(spec + n + 1, "%lf/%lf/%lf",
&pColor->spec.TekHVC.H,
&pColor->spec.TekHVC.V,
&pColor->spec.TekHVC.C) != 3) {
return(XcmsFailure);
}
pColor->format = XcmsTekHVCFormat;
pColor->pixel = 0;
return(XcmsTekHVC_ValidSpec(pColor));
}
static int
ThetaOffset(
XcmsColor *pWhitePt,
XcmsFloat *pThetaOffset)
{
double div, slopeuv;
if (pWhitePt == NULL || pWhitePt->format != XcmsCIEuvYFormat) {
return(0);
}
if ((div = u_BR - pWhitePt->spec.CIEuvY.u_prime) == 0.0) {
return(0);
}
slopeuv = (v_BR - pWhitePt->spec.CIEuvY.v_prime) / div;
*pThetaOffset = degrees(XCMS_ATAN(slopeuv));
return(1);
}
static int
XcmsTekHVC_ValidSpec(
XcmsColor *pColor)
{
if (pColor->format != XcmsTekHVCFormat) {
return(XcmsFailure);
}
if (pColor->spec.TekHVC.V < (0.0 - XMY_DBL_EPSILON)
|| pColor->spec.TekHVC.V > (100.0 + XMY_DBL_EPSILON)
|| (pColor->spec.TekHVC.C < 0.0 - XMY_DBL_EPSILON)) {
return(XcmsFailure);
}
if (pColor->spec.TekHVC.V < 0.0) {
pColor->spec.TekHVC.V = 0.0 + XMY_DBL_EPSILON;
} else if (pColor->spec.TekHVC.V > 100.0) {
pColor->spec.TekHVC.V = 100.0 - XMY_DBL_EPSILON;
}
if (pColor->spec.TekHVC.C < 0.0) {
pColor->spec.TekHVC.C = 0.0 - XMY_DBL_EPSILON;
}
while (pColor->spec.TekHVC.H < 0.0) {
pColor->spec.TekHVC.H += 360.0;
}
while (pColor->spec.TekHVC.H >= 360.0) {
pColor->spec.TekHVC.H -= 360.0;
}
return(XcmsSuccess);
}
Status
XcmsTekHVCToCIEuvY(ccc, pHVC_WhitePt, pColors_in_out, nColors)
XcmsCCC ccc;
XcmsColor *pHVC_WhitePt;
XcmsColor *pColors_in_out;
unsigned int nColors;
{
XcmsFloat thetaOffset;
XcmsColor *pColor = pColors_in_out;
XcmsColor whitePt;
XcmsCIEuvY uvY_return;
XcmsFloat tempHue, u, v;
XcmsFloat tmpVal;
register int i;
if (pHVC_WhitePt == NULL || pColors_in_out == NULL) {
return(XcmsFailure);
}
if (pHVC_WhitePt->format != XcmsCIEuvYFormat) {
memcpy((char *)&whitePt, (char *)pHVC_WhitePt, sizeof(XcmsColor));
if (!_XcmsDIConvertColors(ccc, &whitePt, (XcmsColor *)NULL, 1,
XcmsCIEuvYFormat)) {
return(XcmsFailure);
}
pHVC_WhitePt = &whitePt;
}
if (pHVC_WhitePt->spec.CIEuvY.Y != 1.0) {
return(XcmsFailure);
}
if (!ThetaOffset(pHVC_WhitePt, &thetaOffset)) {
return(XcmsFailure);
}
for (i = 0; i < nColors; i++, pColor++) {
if (!XcmsTekHVC_ValidSpec(pColor)) {
return(XcmsFailure);
}
if (pColor->spec.TekHVC.V == 0.0 || pColor->spec.TekHVC.V == 100.0) {
if (pColor->spec.TekHVC.V == 100.0) {
uvY_return.Y = 1.0;
} else {
uvY_return.Y = 0.0;
}
uvY_return.u_prime = pHVC_WhitePt->spec.CIEuvY.u_prime;
uvY_return.v_prime = pHVC_WhitePt->spec.CIEuvY.v_prime;
} else {
tempHue = pColor->spec.TekHVC.H + thetaOffset;
while (tempHue < 0.0) {
tempHue += 360.0;
}
while (tempHue >= 360.0) {
tempHue -= 360.0;
}
tempHue = radians(tempHue);
u = (XcmsFloat) ((XCMS_COS(tempHue) * pColor->spec.TekHVC.C) /
(pColor->spec.TekHVC.V * (double)CHROMA_SCALE_FACTOR));
v = (XcmsFloat) ((XCMS_SIN(tempHue) * pColor->spec.TekHVC.C) /
(pColor->spec.TekHVC.V * (double)CHROMA_SCALE_FACTOR));
uvY_return.u_prime = u + pHVC_WhitePt->spec.CIEuvY.u_prime;
uvY_return.v_prime = v + pHVC_WhitePt->spec.CIEuvY.v_prime;
if (pColor->spec.TekHVC.V < 7.99953624) {
uvY_return.Y = pColor->spec.TekHVC.V / 903.29;
} else {
tmpVal = (pColor->spec.TekHVC.V + 16.0) / 116.0;
uvY_return.Y = tmpVal * tmpVal * tmpVal;
}
}
memcpy((char *)&pColor->spec, (char *)&uvY_return, sizeof(XcmsCIEuvY));
pColor->format = XcmsCIEuvYFormat;
}
return(XcmsSuccess);
}
Status
XcmsCIEuvYToTekHVC(ccc, pHVC_WhitePt, pColors_in_out, nColors)
XcmsCCC ccc;
XcmsColor *pHVC_WhitePt;
XcmsColor *pColors_in_out;
unsigned int nColors;
{
XcmsFloat theta, L2, u, v, nThetaLow, nThetaHigh;
XcmsFloat thetaOffset;
XcmsColor *pColor = pColors_in_out;
XcmsColor whitePt;
XcmsTekHVC HVC_return;
register int i;
if (pHVC_WhitePt == NULL || pColors_in_out == NULL) {
return(XcmsFailure);
}
if (pHVC_WhitePt->format != XcmsCIEuvYFormat) {
memcpy((char *)&whitePt, (char *)pHVC_WhitePt, sizeof(XcmsColor));
if (!_XcmsDIConvertColors(ccc, &whitePt, (XcmsColor *)NULL, 1,
XcmsCIEuvYFormat)) {
return(XcmsFailure);
}
pHVC_WhitePt = &whitePt;
}
if (pHVC_WhitePt->spec.CIEuvY.Y != 1.0) {
return(XcmsFailure);
}
if (!ThetaOffset(pHVC_WhitePt, &thetaOffset)) {
return(XcmsFailure);
}
for (i = 0; i < nColors; i++, pColor++) {
if (!_XcmsCIEuvY_ValidSpec(pColor)) {
return(XcmsFailure);
}
u = pColor->spec.CIEuvY.u_prime - pHVC_WhitePt->spec.CIEuvY.u_prime;
v = pColor->spec.CIEuvY.v_prime - pHVC_WhitePt->spec.CIEuvY.v_prime;
if (u == 0.0) {
theta = 0.0;
} else {
theta = v / u;
theta = (XcmsFloat) XCMS_ATAN((double)theta);
theta = degrees(theta);
}
nThetaLow = 0.0;
nThetaHigh = 360.0;
if (u > 0.0 && v > 0.0) {
nThetaLow = 0.0;
nThetaHigh = 90.0;
} else if (u < 0.0 && v > 0.0) {
nThetaLow = 90.0;
nThetaHigh = 180.0;
} else if (u < 0.0 && v < 0.0) {
nThetaLow = 180.0;
nThetaHigh = 270.0;
} else if (u > 0.0 && v < 0.0) {
nThetaLow = 270.0;
nThetaHigh = 360.0;
}
while (theta < nThetaLow) {
theta += 90.0;
}
while (theta >= nThetaHigh) {
theta -= 90.0;
}
L2 = (pColor->spec.CIEuvY.Y < 0.008856)
?
(pColor->spec.CIEuvY.Y * 903.29)
:
((XcmsFloat)(XCMS_CUBEROOT(pColor->spec.CIEuvY.Y) * 116.0) - 16.0);
HVC_return.C = L2 * CHROMA_SCALE_FACTOR * XCMS_SQRT((double) ((u * u) + (v * v)));
if (HVC_return.C < 0.0) {
theta = 0.0;
}
HVC_return.V = L2;
HVC_return.H = theta - thetaOffset;
while (HVC_return.H < -EPS) {
HVC_return.H += 360.0;
}
while (HVC_return.H >= 360.0 + EPS) {
HVC_return.H -= 360.0;
}
memcpy((char *)&pColor->spec, (char *)&HVC_return, sizeof(XcmsTekHVC));
pColor->format = XcmsTekHVCFormat;
}
return(XcmsSuccess);
}
int
_XcmsTekHVC_CheckModify(
XcmsColor *pColor)
{
int n;
if (pColor->format != XcmsTekHVCFormat) {
return(0);
}
if (pColor->spec.TekHVC.V < 0.0) {
pColor->spec.TekHVC.V = 0.0 + XMY_DBL_EPSILON;
} else if (pColor->spec.TekHVC.V > 100.0) {
pColor->spec.TekHVC.V = 100.0 - XMY_DBL_EPSILON;
}
if (pColor->spec.TekHVC.C < 0.0) {
pColor->spec.TekHVC.C = 0.0 - XMY_DBL_EPSILON;
}
if (pColor->spec.TekHVC.H < 0.0) {
n = -pColor->spec.TekHVC.H / 360.0;
pColor->spec.TekHVC.H += (n + 1) * 360.0;
if (pColor->spec.TekHVC.H >= 360.0)
pColor->spec.TekHVC.H -= 360.0;
} else if (pColor->spec.TekHVC.H >= 360.0) {
n = pColor->spec.TekHVC.H / 360.0;
pColor->spec.TekHVC.H -= n * 360.0;
}
return(1);
}