summaryrefslogtreecommitdiff
path: root/third_party/lcms2-2.6/src/cmssamp.c
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/lcms2-2.6/src/cmssamp.c')
-rw-r--r--third_party/lcms2-2.6/src/cmssamp.c572
1 files changed, 0 insertions, 572 deletions
diff --git a/third_party/lcms2-2.6/src/cmssamp.c b/third_party/lcms2-2.6/src/cmssamp.c
deleted file mode 100644
index 70e469161f..0000000000
--- a/third_party/lcms2-2.6/src/cmssamp.c
+++ /dev/null
@@ -1,572 +0,0 @@
-//---------------------------------------------------------------------------------
-//
-// Little Color Management System
-// Copyright (c) 1998-2010 Marti Maria Saguer
-//
-// Permission is hereby granted, free of charge, to any person obtaining
-// a copy of this software and associated documentation files (the "Software"),
-// to deal in the Software without restriction, including without limitation
-// the rights to use, copy, modify, merge, publish, distribute, sublicense,
-// and/or sell copies of the Software, and to permit persons to whom the Software
-// is furnished to do so, subject to the following conditions:
-//
-// The above copyright notice and this permission notice shall be included in
-// all copies or substantial portions of the Software.
-//
-// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO
-// THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
-// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
-// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-//
-//---------------------------------------------------------------------------------
-//
-
-#include "lcms2_internal.h"
-
-
-#define cmsmin(a, b) (((a) < (b)) ? (a) : (b))
-#define cmsmax(a, b) (((a) > (b)) ? (a) : (b))
-
-// This file contains routines for resampling and LUT optimization, black point detection
-// and black preservation.
-
-// Black point detection -------------------------------------------------------------------------
-
-
-// PCS -> PCS round trip transform, always uses relative intent on the device -> pcs
-static
-cmsHTRANSFORM CreateRoundtripXForm(cmsHPROFILE hProfile, cmsUInt32Number nIntent)
-{
- cmsContext ContextID = cmsGetProfileContextID(hProfile);
- cmsHPROFILE hLab = cmsCreateLab4ProfileTHR(ContextID, NULL);
- cmsHTRANSFORM xform;
- cmsBool BPC[4] = { FALSE, FALSE, FALSE, FALSE };
- cmsFloat64Number States[4] = { 1.0, 1.0, 1.0, 1.0 };
- cmsHPROFILE hProfiles[4];
- cmsUInt32Number Intents[4];
-
- hProfiles[0] = hLab; hProfiles[1] = hProfile; hProfiles[2] = hProfile; hProfiles[3] = hLab;
- Intents[0] = INTENT_RELATIVE_COLORIMETRIC; Intents[1] = nIntent; Intents[2] = INTENT_RELATIVE_COLORIMETRIC; Intents[3] = INTENT_RELATIVE_COLORIMETRIC;
-
- xform = cmsCreateExtendedTransform(ContextID, 4, hProfiles, BPC, Intents,
- States, NULL, 0, TYPE_Lab_DBL, TYPE_Lab_DBL, cmsFLAGS_NOCACHE|cmsFLAGS_NOOPTIMIZE);
-
- cmsCloseProfile(hLab);
- return xform;
-}
-
-// Use darker colorants to obtain black point. This works in the relative colorimetric intent and
-// assumes more ink results in darker colors. No ink limit is assumed.
-static
-cmsBool BlackPointAsDarkerColorant(cmsHPROFILE hInput,
- cmsUInt32Number Intent,
- cmsCIEXYZ* BlackPoint,
- cmsUInt32Number dwFlags)
-{
- cmsUInt16Number *Black;
- cmsHTRANSFORM xform;
- cmsColorSpaceSignature Space;
- cmsUInt32Number nChannels;
- cmsUInt32Number dwFormat;
- cmsHPROFILE hLab;
- cmsCIELab Lab;
- cmsCIEXYZ BlackXYZ;
- cmsContext ContextID = cmsGetProfileContextID(hInput);
-
- // If the profile does not support input direction, assume Black point 0
- if (!cmsIsIntentSupported(hInput, Intent, LCMS_USED_AS_INPUT)) {
-
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- // Create a formatter which has n channels and floating point
- dwFormat = cmsFormatterForColorspaceOfProfile(hInput, 2, FALSE);
-
- // Try to get black by using black colorant
- Space = cmsGetColorSpace(hInput);
-
- // This function returns darker colorant in 16 bits for several spaces
- if (!_cmsEndPointsBySpace(Space, NULL, &Black, &nChannels)) {
-
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- if (nChannels != T_CHANNELS(dwFormat)) {
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- // Lab will be used as the output space, but lab2 will avoid recursion
- hLab = cmsCreateLab2ProfileTHR(ContextID, NULL);
- if (hLab == NULL) {
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- // Create the transform
- xform = cmsCreateTransformTHR(ContextID, hInput, dwFormat,
- hLab, TYPE_Lab_DBL, Intent, cmsFLAGS_NOOPTIMIZE|cmsFLAGS_NOCACHE);
- cmsCloseProfile(hLab);
-
- if (xform == NULL) {
-
- // Something went wrong. Get rid of open resources and return zero as black
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- // Convert black to Lab
- cmsDoTransform(xform, Black, &Lab, 1);
-
- // Force it to be neutral, clip to max. L* of 50
- Lab.a = Lab.b = 0;
- if (Lab.L > 50) Lab.L = 50;
-
- // Free the resources
- cmsDeleteTransform(xform);
-
- // Convert from Lab (which is now clipped) to XYZ.
- cmsLab2XYZ(NULL, &BlackXYZ, &Lab);
-
- if (BlackPoint != NULL)
- *BlackPoint = BlackXYZ;
-
- return TRUE;
-
- cmsUNUSED_PARAMETER(dwFlags);
-}
-
-// Get a black point of output CMYK profile, discounting any ink-limiting embedded
-// in the profile. For doing that, we use perceptual intent in input direction:
-// Lab (0, 0, 0) -> [Perceptual] Profile -> CMYK -> [Rel. colorimetric] Profile -> Lab
-static
-cmsBool BlackPointUsingPerceptualBlack(cmsCIEXYZ* BlackPoint, cmsHPROFILE hProfile)
-{
- cmsHTRANSFORM hRoundTrip;
- cmsCIELab LabIn, LabOut;
- cmsCIEXYZ BlackXYZ;
-
- // Is the intent supported by the profile?
- if (!cmsIsIntentSupported(hProfile, INTENT_PERCEPTUAL, LCMS_USED_AS_INPUT)) {
-
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return TRUE;
- }
-
- hRoundTrip = CreateRoundtripXForm(hProfile, INTENT_PERCEPTUAL);
- if (hRoundTrip == NULL) {
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- LabIn.L = LabIn.a = LabIn.b = 0;
- cmsDoTransform(hRoundTrip, &LabIn, &LabOut, 1);
-
- // Clip Lab to reasonable limits
- if (LabOut.L > 50) LabOut.L = 50;
- LabOut.a = LabOut.b = 0;
-
- cmsDeleteTransform(hRoundTrip);
-
- // Convert it to XYZ
- cmsLab2XYZ(NULL, &BlackXYZ, &LabOut);
-
- if (BlackPoint != NULL)
- *BlackPoint = BlackXYZ;
-
- return TRUE;
-}
-
-// This function shouldn't exist at all -- there is such quantity of broken
-// profiles on black point tag, that we must somehow fix chromaticity to
-// avoid huge tint when doing Black point compensation. This function does
-// just that. There is a special flag for using black point tag, but turned
-// off by default because it is bogus on most profiles. The detection algorithm
-// involves to turn BP to neutral and to use only L component.
-cmsBool CMSEXPORT cmsDetectBlackPoint(cmsCIEXYZ* BlackPoint, cmsHPROFILE hProfile, cmsUInt32Number Intent, cmsUInt32Number dwFlags)
-{
- cmsProfileClassSignature devClass;
-
- // Make sure the device class is adequate
- devClass = cmsGetDeviceClass(hProfile);
- if (devClass == cmsSigLinkClass ||
- devClass == cmsSigAbstractClass ||
- devClass == cmsSigNamedColorClass) {
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- // Make sure intent is adequate
- if (Intent != INTENT_PERCEPTUAL &&
- Intent != INTENT_RELATIVE_COLORIMETRIC &&
- Intent != INTENT_SATURATION) {
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- // v4 + perceptual & saturation intents does have its own black point, and it is
- // well specified enough to use it. Black point tag is deprecated in V4.
- if ((cmsGetEncodedICCversion(hProfile) >= 0x4000000) &&
- (Intent == INTENT_PERCEPTUAL || Intent == INTENT_SATURATION)) {
-
- // Matrix shaper share MRC & perceptual intents
- if (cmsIsMatrixShaper(hProfile))
- return BlackPointAsDarkerColorant(hProfile, INTENT_RELATIVE_COLORIMETRIC, BlackPoint, 0);
-
- // Get Perceptual black out of v4 profiles. That is fixed for perceptual & saturation intents
- BlackPoint -> X = cmsPERCEPTUAL_BLACK_X;
- BlackPoint -> Y = cmsPERCEPTUAL_BLACK_Y;
- BlackPoint -> Z = cmsPERCEPTUAL_BLACK_Z;
-
- return TRUE;
- }
-
-
-#ifdef CMS_USE_PROFILE_BLACK_POINT_TAG
-
- // v2, v4 rel/abs colorimetric
- if (cmsIsTag(hProfile, cmsSigMediaBlackPointTag) &&
- Intent == INTENT_RELATIVE_COLORIMETRIC) {
-
- cmsCIEXYZ *BlackPtr, BlackXYZ, UntrustedBlackPoint, TrustedBlackPoint, MediaWhite;
- cmsCIELab Lab;
-
- // If black point is specified, then use it,
-
- BlackPtr = cmsReadTag(hProfile, cmsSigMediaBlackPointTag);
- if (BlackPtr != NULL) {
-
- BlackXYZ = *BlackPtr;
- _cmsReadMediaWhitePoint(&MediaWhite, hProfile);
-
- // Black point is absolute XYZ, so adapt to D50 to get PCS value
- cmsAdaptToIlluminant(&UntrustedBlackPoint, &MediaWhite, cmsD50_XYZ(), &BlackXYZ);
-
- // Force a=b=0 to get rid of any chroma
- cmsXYZ2Lab(NULL, &Lab, &UntrustedBlackPoint);
- Lab.a = Lab.b = 0;
- if (Lab.L > 50) Lab.L = 50; // Clip to L* <= 50
- cmsLab2XYZ(NULL, &TrustedBlackPoint, &Lab);
-
- if (BlackPoint != NULL)
- *BlackPoint = TrustedBlackPoint;
-
- return TRUE;
- }
- }
-#endif
-
- // That is about v2 profiles.
-
- // If output profile, discount ink-limiting and that's all
- if (Intent == INTENT_RELATIVE_COLORIMETRIC &&
- (cmsGetDeviceClass(hProfile) == cmsSigOutputClass) &&
- (cmsGetColorSpace(hProfile) == cmsSigCmykData))
- return BlackPointUsingPerceptualBlack(BlackPoint, hProfile);
-
- // Nope, compute BP using current intent.
- return BlackPointAsDarkerColorant(hProfile, Intent, BlackPoint, dwFlags);
-}
-
-
-
-// ---------------------------------------------------------------------------------------------------------
-
-// Least Squares Fit of a Quadratic Curve to Data
-// http://www.personal.psu.edu/jhm/f90/lectures/lsq2.html
-
-static
-cmsFloat64Number RootOfLeastSquaresFitQuadraticCurve(int n, cmsFloat64Number x[], cmsFloat64Number y[])
-{
- double sum_x = 0, sum_x2 = 0, sum_x3 = 0, sum_x4 = 0;
- double sum_y = 0, sum_yx = 0, sum_yx2 = 0;
- double d, a, b, c;
- int i;
- cmsMAT3 m;
- cmsVEC3 v, res;
-
- if (n < 4) return 0;
-
- for (i=0; i < n; i++) {
-
- double xn = x[i];
- double yn = y[i];
-
- sum_x += xn;
- sum_x2 += xn*xn;
- sum_x3 += xn*xn*xn;
- sum_x4 += xn*xn*xn*xn;
-
- sum_y += yn;
- sum_yx += yn*xn;
- sum_yx2 += yn*xn*xn;
- }
-
- _cmsVEC3init(&m.v[0], n, sum_x, sum_x2);
- _cmsVEC3init(&m.v[1], sum_x, sum_x2, sum_x3);
- _cmsVEC3init(&m.v[2], sum_x2, sum_x3, sum_x4);
-
- _cmsVEC3init(&v, sum_y, sum_yx, sum_yx2);
-
- if (!_cmsMAT3solve(&res, &m, &v)) return 0;
-
-
- a = res.n[2];
- b = res.n[1];
- c = res.n[0];
-
- if (fabs(a) < 1.0E-10) {
-
- return cmsmin(0, cmsmax(50, -c/b ));
- }
- else {
-
- d = b*b - 4.0 * a * c;
- if (d <= 0) {
- return 0;
- }
- else {
-
- double rt = (-b + sqrt(d)) / (2.0 * a);
-
- return cmsmax(0, cmsmin(50, rt));
- }
- }
-
-}
-
-/*
-static
-cmsBool IsMonotonic(int n, const cmsFloat64Number Table[])
-{
- int i;
- cmsFloat64Number last;
-
- last = Table[n-1];
-
- for (i = n-2; i >= 0; --i) {
-
- if (Table[i] > last)
-
- return FALSE;
- else
- last = Table[i];
-
- }
-
- return TRUE;
-}
-*/
-
-// Calculates the black point of a destination profile.
-// This algorithm comes from the Adobe paper disclosing its black point compensation method.
-cmsBool CMSEXPORT cmsDetectDestinationBlackPoint(cmsCIEXYZ* BlackPoint, cmsHPROFILE hProfile, cmsUInt32Number Intent, cmsUInt32Number dwFlags)
-{
- cmsColorSpaceSignature ColorSpace;
- cmsHTRANSFORM hRoundTrip = NULL;
- cmsCIELab InitialLab, destLab, Lab;
- cmsFloat64Number inRamp[256], outRamp[256];
- cmsFloat64Number MinL, MaxL;
- cmsBool NearlyStraightMidrange = TRUE;
- cmsFloat64Number yRamp[256];
- cmsFloat64Number x[256], y[256];
- cmsFloat64Number lo, hi;
- int n, l;
- cmsProfileClassSignature devClass;
-
- // Make sure the device class is adequate
- devClass = cmsGetDeviceClass(hProfile);
- if (devClass == cmsSigLinkClass ||
- devClass == cmsSigAbstractClass ||
- devClass == cmsSigNamedColorClass) {
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
- // Make sure intent is adequate
- if (Intent != INTENT_PERCEPTUAL &&
- Intent != INTENT_RELATIVE_COLORIMETRIC &&
- Intent != INTENT_SATURATION) {
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
-
- // v4 + perceptual & saturation intents does have its own black point, and it is
- // well specified enough to use it. Black point tag is deprecated in V4.
- if ((cmsGetEncodedICCversion(hProfile) >= 0x4000000) &&
- (Intent == INTENT_PERCEPTUAL || Intent == INTENT_SATURATION)) {
-
- // Matrix shaper share MRC & perceptual intents
- if (cmsIsMatrixShaper(hProfile))
- return BlackPointAsDarkerColorant(hProfile, INTENT_RELATIVE_COLORIMETRIC, BlackPoint, 0);
-
- // Get Perceptual black out of v4 profiles. That is fixed for perceptual & saturation intents
- BlackPoint -> X = cmsPERCEPTUAL_BLACK_X;
- BlackPoint -> Y = cmsPERCEPTUAL_BLACK_Y;
- BlackPoint -> Z = cmsPERCEPTUAL_BLACK_Z;
- return TRUE;
- }
-
-
- // Check if the profile is lut based and gray, rgb or cmyk (7.2 in Adobe's document)
- ColorSpace = cmsGetColorSpace(hProfile);
- if (!cmsIsCLUT(hProfile, Intent, LCMS_USED_AS_OUTPUT ) ||
- (ColorSpace != cmsSigGrayData &&
- ColorSpace != cmsSigRgbData &&
- ColorSpace != cmsSigCmykData)) {
-
- // In this case, handle as input case
- return cmsDetectBlackPoint(BlackPoint, hProfile, Intent, dwFlags);
- }
-
- // It is one of the valid cases!, use Adobe algorithm
-
-
- // Set a first guess, that should work on good profiles.
- if (Intent == INTENT_RELATIVE_COLORIMETRIC) {
-
- cmsCIEXYZ IniXYZ;
-
- // calculate initial Lab as source black point
- if (!cmsDetectBlackPoint(&IniXYZ, hProfile, Intent, dwFlags)) {
- return FALSE;
- }
-
- // convert the XYZ to lab
- cmsXYZ2Lab(NULL, &InitialLab, &IniXYZ);
-
- } else {
-
- // set the initial Lab to zero, that should be the black point for perceptual and saturation
- InitialLab.L = 0;
- InitialLab.a = 0;
- InitialLab.b = 0;
- }
-
-
- // Step 2
- // ======
-
- // Create a roundtrip. Define a Transform BT for all x in L*a*b*
- hRoundTrip = CreateRoundtripXForm(hProfile, Intent);
- if (hRoundTrip == NULL) return FALSE;
-
- // Compute ramps
-
- for (l=0; l < 256; l++) {
-
- Lab.L = (cmsFloat64Number) (l * 100.0) / 255.0;
- Lab.a = cmsmin(50, cmsmax(-50, InitialLab.a));
- Lab.b = cmsmin(50, cmsmax(-50, InitialLab.b));
-
- cmsDoTransform(hRoundTrip, &Lab, &destLab, 1);
-
- inRamp[l] = Lab.L;
- outRamp[l] = destLab.L;
- }
-
- // Make monotonic
- for (l = 254; l > 0; --l) {
- outRamp[l] = cmsmin(outRamp[l], outRamp[l+1]);
- }
-
- // Check
- if (! (outRamp[0] < outRamp[255])) {
-
- cmsDeleteTransform(hRoundTrip);
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
-
- // Test for mid range straight (only on relative colorimetric)
-
- NearlyStraightMidrange = TRUE;
- MinL = outRamp[0]; MaxL = outRamp[255];
- if (Intent == INTENT_RELATIVE_COLORIMETRIC) {
-
- for (l=0; l < 256; l++) {
-
- if (! ((inRamp[l] <= MinL + 0.2 * (MaxL - MinL) ) ||
- (fabs(inRamp[l] - outRamp[l]) < 4.0 )))
- NearlyStraightMidrange = FALSE;
- }
-
- // If the mid range is straight (as determined above) then the
- // DestinationBlackPoint shall be the same as initialLab.
- // Otherwise, the DestinationBlackPoint shall be determined
- // using curve fitting.
-
- if (NearlyStraightMidrange) {
-
- cmsLab2XYZ(NULL, BlackPoint, &InitialLab);
- cmsDeleteTransform(hRoundTrip);
- return TRUE;
- }
- }
-
-
- // curve fitting: The round-trip curve normally looks like a nearly constant section at the black point,
- // with a corner and a nearly straight line to the white point.
-
- for (l=0; l < 256; l++) {
-
- yRamp[l] = (outRamp[l] - MinL) / (MaxL - MinL);
- }
-
- // find the black point using the least squares error quadratic curve fitting
-
- if (Intent == INTENT_RELATIVE_COLORIMETRIC) {
- lo = 0.1;
- hi = 0.5;
- }
- else {
-
- // Perceptual and saturation
- lo = 0.03;
- hi = 0.25;
- }
-
- // Capture shadow points for the fitting.
- n = 0;
- for (l=0; l < 256; l++) {
-
- cmsFloat64Number ff = yRamp[l];
-
- if (ff >= lo && ff < hi) {
- x[n] = inRamp[l];
- y[n] = yRamp[l];
- n++;
- }
- }
-
-
- // No suitable points
- if (n < 3 ) {
- cmsDeleteTransform(hRoundTrip);
- BlackPoint -> X = BlackPoint ->Y = BlackPoint -> Z = 0.0;
- return FALSE;
- }
-
-
- // fit and get the vertex of quadratic curve
- Lab.L = RootOfLeastSquaresFitQuadraticCurve(n, x, y);
-
- if (Lab.L < 0.0) { // clip to zero L* if the vertex is negative
- Lab.L = 0;
- }
-
- Lab.a = InitialLab.a;
- Lab.b = InitialLab.b;
-
- cmsLab2XYZ(NULL, BlackPoint, &Lab);
-
- cmsDeleteTransform(hRoundTrip);
- return TRUE;
-}