LPLUT LCMSEXPORT cmsSetMatrixLUT(LPLUT Lut, LPMAT3 M)
{
MAT3toFix(&Lut ->Matrix, M);
if (!MAT3isIdentity(&Lut->Matrix, 0.0001))
Lut ->wFlags |= LUT_HASMATRIX;
return Lut;
}
LPMATSHAPER cmsAllocMatShaper(LPMAT3 Matrix, LPGAMMATABLE Tables[], DWORD Behaviour)
{
LPMATSHAPER NewMatShaper;
int i, AllLinear;
NewMatShaper = (LPMATSHAPER) _cmsMalloc(sizeof(MATSHAPER));
if (NewMatShaper)
ZeroMemory(NewMatShaper, sizeof(MATSHAPER));
NewMatShaper->dwFlags = Behaviour & (MATSHAPER_ALLSMELTED);
// Fill matrix part
MAT3toFix(&NewMatShaper -> Matrix, Matrix);
// Reality check
if (!MAT3isIdentity(&NewMatShaper -> Matrix, 0.00001))
NewMatShaper -> dwFlags |= MATSHAPER_HASMATRIX;
// Now, on the table characteristics
cmsCalcL16Params(Tables[0] -> nEntries, &NewMatShaper -> p16);
// Copy tables
AllLinear = 0;
for (i=0; i < 3; i++)
{
LPWORD PtrW;
PtrW = (LPWORD) _cmsMalloc(sizeof(WORD) * NewMatShaper -> p16.nSamples);
if (PtrW == NULL) {
cmsFreeMatShaper(NewMatShaper);
return NULL;
}
CopyMemory(PtrW, Tables[i] -> GammaTable,
sizeof(WORD) * Tables[i] -> nEntries);
NewMatShaper -> L[i] = PtrW; // Set table pointer
// Linear after all?
AllLinear += cmsIsLinear(PtrW, NewMatShaper -> p16.nSamples);
}
// If is all linear, then supress table interpolation (this
// will speed greately some trivial operations
if (AllLinear != 3)
NewMatShaper -> dwFlags |= MATSHAPER_HASSHAPER;
return NewMatShaper;
}
LPMATSHAPER cmsAllocMatShaper2(LPMAT3 Matrix, LPGAMMATABLE In[], LPGAMMATABLE Out[], DWORD Behaviour)
{
LPMATSHAPER NewMatShaper;
int rc;
NewMatShaper = (LPMATSHAPER) _cmsMalloc(sizeof(MATSHAPER));
if (NewMatShaper)
ZeroMemory(NewMatShaper, sizeof(MATSHAPER));
NewMatShaper->dwFlags = Behaviour & (MATSHAPER_ALLSMELTED);
// Fill matrix part
MAT3toFix(&NewMatShaper -> Matrix, Matrix);
// Reality check
if (!MAT3isIdentity(&NewMatShaper -> Matrix, 0.00001))
NewMatShaper -> dwFlags |= MATSHAPER_HASMATRIX;
// Now, on the table characteristics
if (Out) {
rc = ComputeTables(Out, NewMatShaper ->L, &NewMatShaper ->p16);
if (rc < 0) {
cmsFreeMatShaper(NewMatShaper);
return NULL;
}
if (rc == 1) NewMatShaper -> dwFlags |= MATSHAPER_HASSHAPER;
}
if (In) {
rc = ComputeTables(In, NewMatShaper ->L2, &NewMatShaper ->p2_16);
if (rc < 0) {
cmsFreeMatShaper(NewMatShaper);
return NULL;
}
if (rc == 1) NewMatShaper -> dwFlags |= MATSHAPER_HASINPSHAPER;
}
return NewMatShaper;
}
LPLUT LCMSEXPORT cmsSetMatrixLUT4(LPLUT Lut, LPMAT3 M, LPVEC3 off, DWORD dwFlags)
{
WMAT3 WMat;
WVEC3 Woff;
VEC3 Zero = {{0, 0, 0}};
MAT3toFix(&WMat, M);
if (off == NULL)
off = &Zero;
VEC3toFix(&Woff, off);
// Nop if identity
if (MAT3isIdentity(&WMat, 0.0001) &&
(Woff.n[VX] == 0 && Woff.n[VY] == 0 && Woff.n[VZ] == 0))
return Lut;
switch (dwFlags) {
case LUT_HASMATRIX:
Lut ->Matrix = WMat;
Lut ->wFlags |= LUT_HASMATRIX;
break;
case LUT_HASMATRIX3:
Lut ->Mat3 = WMat;
Lut ->Ofs3 = Woff;
Lut ->wFlags |= LUT_HASMATRIX3;
break;
case LUT_HASMATRIX4:
Lut ->Mat4 = WMat;
Lut ->Ofs4 = Woff;
Lut ->wFlags |= LUT_HASMATRIX4;
break;
default:;
}
return Lut;
}
int cmsChooseCnvrt(int Absolute,
int Phase1, LPcmsCIEXYZ BlackPointIn,
LPcmsCIEXYZ WhitePointIn,
LPcmsCIEXYZ IlluminantIn,
LPMAT3 ChromaticAdaptationMatrixIn,
int Phase2, LPcmsCIEXYZ BlackPointOut,
LPcmsCIEXYZ WhitePointOut,
LPcmsCIEXYZ IlluminantOut,
LPMAT3 ChromaticAdaptationMatrixOut,
int DoBlackPointCompensation,
double AdaptationState,
_cmsADJFN *fn1,
LPWMAT3 wm, LPWVEC3 wof)
{
int rc;
MAT3 m;
VEC3 of;
MAT3identity(&m);
VEC3init(&of, 0, 0, 0);
switch (Phase1) {
// Input LUT is giving XYZ relative values.
case XYZRel: rc = FromXYZRelLUT(Absolute,
BlackPointIn,
WhitePointIn,
IlluminantIn,
ChromaticAdaptationMatrixIn,
Phase2,
BlackPointOut,
WhitePointOut,
IlluminantOut,
ChromaticAdaptationMatrixOut,
DoBlackPointCompensation,
AdaptationState,
fn1, &m, &of);
break;
// Input LUT is giving Lab relative values
case LabRel: rc = FromLabRelLUT(Absolute,
BlackPointIn,
WhitePointIn,
IlluminantIn,
ChromaticAdaptationMatrixIn,
Phase2,
BlackPointOut,
WhitePointOut,
IlluminantOut,
ChromaticAdaptationMatrixOut,
DoBlackPointCompensation,
AdaptationState,
fn1, &m, &of);
break;
// Unrecognized combination
default: cmsSignalError(LCMS_ERRC_ABORTED, "(internal) Phase error");
return FALSE;
}
MAT3toFix(wm, &m);
VEC3toFix(wof, &of);
// Do some optimization -- discard conversion if identity parameters.
if (*fn1 == XYZ2XYZ || *fn1 == Lab2XYZ2Lab) {
if (IdentityParameters(wm, wof))
*fn1 = NULL;
}
return rc;
}
