Index: third_party/qcms/transform.c |
=================================================================== |
--- third_party/qcms/transform.c (revision 103192) |
+++ third_party/qcms/transform.c (working copy) |
@@ -1,1372 +0,0 @@ |
-// qcms |
-// Copyright (C) 2009 Mozilla Corporation |
-// Copyright (C) 1998-2007 Marti Maria |
-// |
-// 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 <stdlib.h> |
-#include <math.h> |
-#include <assert.h> |
-#include "qcmsint.h" |
- |
-/* for MSVC, GCC, Intel, and Sun compilers */ |
-#if defined(_M_IX86) || defined(__i386__) || defined(__i386) || defined(_M_AMD64) || defined(__x86_64__) || defined(__x86_64) |
-#define X86 |
-#endif /* _M_IX86 || __i386__ || __i386 || _M_AMD64 || __x86_64__ || __x86_64 */ |
- |
-//XXX: could use a bettername |
-typedef uint16_t uint16_fract_t; |
- |
-/* value must be a value between 0 and 1 */ |
-//XXX: is the above a good restriction to have? |
-float lut_interp_linear(double value, uint16_t *table, int length) |
-{ |
- int upper, lower; |
- value = value * (length - 1); // scale to length of the array |
- upper = ceil(value); |
- lower = floor(value); |
- //XXX: can we be more performant here? |
- value = table[upper]*(1. - (upper - value)) + table[lower]*(upper - value); |
- /* scale the value */ |
- return value * (1./65535.); |
-} |
- |
-/* same as above but takes and returns a uint16_t value representing a range from 0..1 */ |
-uint16_t lut_interp_linear16(uint16_t input_value, uint16_t *table, int length) |
-{ |
- /* Start scaling input_value to the length of the array: 65535*(length-1). |
- * We'll divide out the 65535 next */ |
- uint32_t value = (input_value * (length - 1)); |
- uint32_t upper = (value + 65534) / 65535; /* equivalent to ceil(value/65535) */ |
- uint32_t lower = value / 65535; /* equivalent to floor(value/65535) */ |
- /* interp is the distance from upper to value scaled to 0..65535 */ |
- uint32_t interp = value % 65535; |
- |
- value = (table[upper]*(interp) + table[lower]*(65535 - interp))/65535; // 0..65535*65535 |
- |
- return value; |
-} |
- |
-/* same as above but takes an input_value from 0..PRECACHE_OUTPUT_MAX |
- * and returns a uint8_t value representing a range from 0..1 */ |
-static |
-uint8_t lut_interp_linear_precache_output(uint32_t input_value, uint16_t *table, int length) |
-{ |
- /* Start scaling input_value to the length of the array: PRECACHE_OUTPUT_MAX*(length-1). |
- * We'll divide out the PRECACHE_OUTPUT_MAX next */ |
- uint32_t value = (input_value * (length - 1)); |
- |
- /* equivalent to ceil(value/PRECACHE_OUTPUT_MAX) */ |
- uint32_t upper = (value + PRECACHE_OUTPUT_MAX-1) / PRECACHE_OUTPUT_MAX; |
- /* equivalent to floor(value/PRECACHE_OUTPUT_MAX) */ |
- uint32_t lower = value / PRECACHE_OUTPUT_MAX; |
- /* interp is the distance from upper to value scaled to 0..PRECACHE_OUTPUT_MAX */ |
- uint32_t interp = value % PRECACHE_OUTPUT_MAX; |
- |
- /* the table values range from 0..65535 */ |
- value = (table[upper]*(interp) + table[lower]*(PRECACHE_OUTPUT_MAX - interp)); // 0..(65535*PRECACHE_OUTPUT_MAX) |
- |
- /* round and scale */ |
- value += (PRECACHE_OUTPUT_MAX*65535/255)/2; |
- value /= (PRECACHE_OUTPUT_MAX*65535/255); // scale to 0..255 |
- return value; |
-} |
- |
-#if 0 |
-/* if we use a different representation i.e. one that goes from 0 to 0x1000 we can be more efficient |
- * because we can avoid the divisions and use a shifting instead */ |
-/* same as above but takes and returns a uint16_t value representing a range from 0..1 */ |
-uint16_t lut_interp_linear16(uint16_t input_value, uint16_t *table, int length) |
-{ |
- uint32_t value = (input_value * (length - 1)); |
- uint32_t upper = (value + 4095) / 4096; /* equivalent to ceil(value/4096) */ |
- uint32_t lower = value / 4096; /* equivalent to floor(value/4096) */ |
- uint32_t interp = value % 4096; |
- |
- value = (table[upper]*(interp) + table[lower]*(4096 - interp))/4096; // 0..4096*4096 |
- |
- return value; |
-} |
-#endif |
- |
-void compute_curve_gamma_table_type1(float gamma_table[256], double gamma) |
-{ |
- unsigned int i; |
- for (i = 0; i < 256; i++) { |
- gamma_table[i] = pow(i/255., gamma); |
- } |
-} |
- |
-void compute_curve_gamma_table_type2(float gamma_table[256], uint16_t *table, int length) |
-{ |
- unsigned int i; |
- for (i = 0; i < 256; i++) { |
- gamma_table[i] = lut_interp_linear(i/255., table, length); |
- } |
-} |
- |
-void compute_curve_gamma_table_type0(float gamma_table[256]) |
-{ |
- unsigned int i; |
- for (i = 0; i < 256; i++) { |
- gamma_table[i] = i/255.; |
- } |
-} |
- |
-unsigned char clamp_u8(float v) |
-{ |
- if (v > 255.) |
- return 255; |
- else if (v < 0) |
- return 0; |
- else |
- return floor(v+.5); |
-} |
- |
-struct vector { |
- float v[3]; |
-}; |
- |
-struct matrix { |
- float m[3][3]; |
- bool invalid; |
-}; |
- |
-struct vector matrix_eval(struct matrix mat, struct vector v) |
-{ |
- struct vector result; |
- result.v[0] = mat.m[0][0]*v.v[0] + mat.m[0][1]*v.v[1] + mat.m[0][2]*v.v[2]; |
- result.v[1] = mat.m[1][0]*v.v[0] + mat.m[1][1]*v.v[1] + mat.m[1][2]*v.v[2]; |
- result.v[2] = mat.m[2][0]*v.v[0] + mat.m[2][1]*v.v[1] + mat.m[2][2]*v.v[2]; |
- return result; |
-} |
- |
-//XXX: should probably pass by reference and we could |
-//probably reuse this computation in matrix_invert |
-float matrix_det(struct matrix mat) |
-{ |
- float det; |
- det = mat.m[0][0]*mat.m[1][1]*mat.m[2][2] + |
- mat.m[0][1]*mat.m[1][2]*mat.m[2][0] + |
- mat.m[0][2]*mat.m[1][0]*mat.m[2][1] - |
- mat.m[0][0]*mat.m[1][2]*mat.m[2][1] - |
- mat.m[0][1]*mat.m[1][0]*mat.m[2][2] - |
- mat.m[0][2]*mat.m[1][1]*mat.m[2][0]; |
- return det; |
-} |
- |
-/* from pixman and cairo and Mathematics for Game Programmers */ |
-/* lcms uses gauss-jordan elimination with partial pivoting which is |
- * less efficient and not as numerically stable. See Mathematics for |
- * Game Programmers. */ |
-struct matrix matrix_invert(struct matrix mat) |
-{ |
- struct matrix dest_mat; |
- int i,j; |
- static int a[3] = { 2, 2, 1 }; |
- static int b[3] = { 1, 0, 0 }; |
- |
- /* inv (A) = 1/det (A) * adj (A) */ |
- float det = matrix_det(mat); |
- |
- if (det == 0) { |
- dest_mat.invalid = true; |
- } else { |
- dest_mat.invalid = false; |
- } |
- |
- det = 1/det; |
- |
- for (j = 0; j < 3; j++) { |
- for (i = 0; i < 3; i++) { |
- double p; |
- int ai = a[i]; |
- int aj = a[j]; |
- int bi = b[i]; |
- int bj = b[j]; |
- |
- p = mat.m[ai][aj] * mat.m[bi][bj] - |
- mat.m[ai][bj] * mat.m[bi][aj]; |
- if (((i + j) & 1) != 0) |
- p = -p; |
- |
- dest_mat.m[j][i] = det * p; |
- } |
- } |
- return dest_mat; |
-} |
- |
-struct matrix matrix_identity(void) |
-{ |
- struct matrix i; |
- i.m[0][0] = 1; |
- i.m[0][1] = 0; |
- i.m[0][2] = 0; |
- i.m[1][0] = 0; |
- i.m[1][1] = 1; |
- i.m[1][2] = 0; |
- i.m[2][0] = 0; |
- i.m[2][1] = 0; |
- i.m[2][2] = 1; |
- i.invalid = false; |
- return i; |
-} |
- |
-static struct matrix matrix_invalid(void) |
-{ |
- struct matrix inv = matrix_identity(); |
- inv.invalid = true; |
- return inv; |
-} |
- |
- |
-/* from pixman */ |
-/* MAT3per... */ |
-struct matrix matrix_multiply(struct matrix a, struct matrix b) |
-{ |
- struct matrix result; |
- int dx, dy; |
- int o; |
- for (dy = 0; dy < 3; dy++) { |
- for (dx = 0; dx < 3; dx++) { |
- double v = 0; |
- for (o = 0; o < 3; o++) { |
- v += a.m[dy][o] * b.m[o][dx]; |
- } |
- result.m[dy][dx] = v; |
- } |
- } |
- result.invalid = a.invalid || b.invalid; |
- return result; |
-} |
- |
-float u8Fixed8Number_to_float(uint16_t x) |
-{ |
- // 0x0000 = 0. |
- // 0x0100 = 1. |
- // 0xffff = 255 + 255/256 |
- return x/256.; |
-} |
- |
-float *build_input_gamma_table(struct curveType *TRC) |
-{ |
- float *gamma_table = malloc(sizeof(float)*256); |
- if (gamma_table) { |
- if (TRC->count == 0) { |
- compute_curve_gamma_table_type0(gamma_table); |
- } else if (TRC->count == 1) { |
- compute_curve_gamma_table_type1(gamma_table, u8Fixed8Number_to_float(TRC->data[0])); |
- } else { |
- compute_curve_gamma_table_type2(gamma_table, TRC->data, TRC->count); |
- } |
- } |
- return gamma_table; |
-} |
- |
-struct matrix build_colorant_matrix(qcms_profile *p) |
-{ |
- struct matrix result; |
- result.m[0][0] = s15Fixed16Number_to_float(p->redColorant.X); |
- result.m[0][1] = s15Fixed16Number_to_float(p->greenColorant.X); |
- result.m[0][2] = s15Fixed16Number_to_float(p->blueColorant.X); |
- result.m[1][0] = s15Fixed16Number_to_float(p->redColorant.Y); |
- result.m[1][1] = s15Fixed16Number_to_float(p->greenColorant.Y); |
- result.m[1][2] = s15Fixed16Number_to_float(p->blueColorant.Y); |
- result.m[2][0] = s15Fixed16Number_to_float(p->redColorant.Z); |
- result.m[2][1] = s15Fixed16Number_to_float(p->greenColorant.Z); |
- result.m[2][2] = s15Fixed16Number_to_float(p->blueColorant.Z); |
- result.invalid = false; |
- return result; |
-} |
- |
-/* The following code is copied nearly directly from lcms. |
- * I think it could be much better. For example, Argyll seems to have better code in |
- * icmTable_lookup_bwd and icmTable_setup_bwd. However, for now this is a quick way |
- * to a working solution and allows for easy comparing with lcms. */ |
-uint16_fract_t lut_inverse_interp16(uint16_t Value, uint16_t LutTable[], int length) |
-{ |
- int l = 1; |
- int r = 0x10000; |
- int x = 0, res; // 'int' Give spacing for negative values |
- int NumZeroes, NumPoles; |
- int cell0, cell1; |
- double val2; |
- double y0, y1, x0, x1; |
- double a, b, f; |
- |
- // July/27 2001 - Expanded to handle degenerated curves with an arbitrary |
- // number of elements containing 0 at the begining of the table (Zeroes) |
- // and another arbitrary number of poles (FFFFh) at the end. |
- // First the zero and pole extents are computed, then value is compared. |
- |
- NumZeroes = 0; |
- while (LutTable[NumZeroes] == 0 && NumZeroes < length-1) |
- NumZeroes++; |
- |
- // There are no zeros at the beginning and we are trying to find a zero, so |
- // return anything. It seems zero would be the less destructive choice |
- /* I'm not sure that this makes sense, but oh well... */ |
- if (NumZeroes == 0 && Value == 0) |
- return 0; |
- |
- NumPoles = 0; |
- while (LutTable[length-1- NumPoles] == 0xFFFF && NumPoles < length-1) |
- NumPoles++; |
- |
- // Does the curve belong to this case? |
- if (NumZeroes > 1 || NumPoles > 1) |
- { |
- int a, b; |
- |
- // Identify if value fall downto 0 or FFFF zone |
- if (Value == 0) return 0; |
- // if (Value == 0xFFFF) return 0xFFFF; |
- |
- // else restrict to valid zone |
- |
- a = ((NumZeroes-1) * 0xFFFF) / (length-1); |
- b = ((length-1 - NumPoles) * 0xFFFF) / (length-1); |
- |
- l = a - 1; |
- r = b + 1; |
- } |
- |
- |
- // Seems not a degenerated case... apply binary search |
- |
- while (r > l) { |
- |
- x = (l + r) / 2; |
- |
- res = (int) lut_interp_linear16((uint16_fract_t) (x-1), LutTable, length); |
- |
- if (res == Value) { |
- |
- // Found exact match. |
- |
- return (uint16_fract_t) (x - 1); |
- } |
- |
- if (res > Value) r = x - 1; |
- else l = x + 1; |
- } |
- |
- // Not found, should we interpolate? |
- |
- |
- // Get surrounding nodes |
- |
- val2 = (length-1) * ((double) (x - 1) / 65535.0); |
- |
- cell0 = (int) floor(val2); |
- cell1 = (int) ceil(val2); |
- |
- if (cell0 == cell1) return (uint16_fract_t) x; |
- |
- y0 = LutTable[cell0] ; |
- x0 = (65535.0 * cell0) / (length-1); |
- |
- y1 = LutTable[cell1] ; |
- x1 = (65535.0 * cell1) / (length-1); |
- |
- a = (y1 - y0) / (x1 - x0); |
- b = y0 - a * x0; |
- |
- if (fabs(a) < 0.01) return (uint16_fract_t) x; |
- |
- f = ((Value - b) / a); |
- |
- if (f < 0.0) return (uint16_fract_t) 0; |
- if (f >= 65535.0) return (uint16_fract_t) 0xFFFF; |
- |
- return (uint16_fract_t) floor(f + 0.5); |
- |
-} |
- |
-// Build a White point, primary chromas transfer matrix from RGB to CIE XYZ |
-// This is just an approximation, I am not handling all the non-linear |
-// aspects of the RGB to XYZ process, and assumming that the gamma correction |
-// has transitive property in the tranformation chain. |
-// |
-// the alghoritm: |
-// |
-// - First I build the absolute conversion matrix using |
-// primaries in XYZ. This matrix is next inverted |
-// - Then I eval the source white point across this matrix |
-// obtaining the coeficients of the transformation |
-// - Then, I apply these coeficients to the original matrix |
-static struct matrix build_RGB_to_XYZ_transfer_matrix(qcms_CIE_xyY white, qcms_CIE_xyYTRIPLE primrs) |
-{ |
- struct matrix primaries; |
- struct matrix primaries_invert; |
- struct matrix result; |
- struct vector white_point; |
- struct vector coefs; |
- |
- double xn, yn; |
- double xr, yr; |
- double xg, yg; |
- double xb, yb; |
- |
- xn = white.x; |
- yn = white.y; |
- |
- if (yn == 0.0) |
- return matrix_invalid(); |
- |
- xr = primrs.red.x; |
- yr = primrs.red.y; |
- xg = primrs.green.x; |
- yg = primrs.green.y; |
- xb = primrs.blue.x; |
- yb = primrs.blue.y; |
- |
- primaries.m[0][0] = xr; |
- primaries.m[0][1] = xg; |
- primaries.m[0][2] = xb; |
- |
- primaries.m[1][0] = yr; |
- primaries.m[1][1] = yg; |
- primaries.m[1][2] = yb; |
- |
- primaries.m[2][0] = 1 - xr - yr; |
- primaries.m[2][1] = 1 - xg - yg; |
- primaries.m[2][2] = 1 - xb - yb; |
- primaries.invalid = false; |
- |
- white_point.v[0] = xn/yn; |
- white_point.v[1] = 1.; |
- white_point.v[2] = (1.0-xn-yn)/yn; |
- |
- primaries_invert = matrix_invert(primaries); |
- |
- coefs = matrix_eval(primaries_invert, white_point); |
- |
- result.m[0][0] = coefs.v[0]*xr; |
- result.m[0][1] = coefs.v[1]*xg; |
- result.m[0][2] = coefs.v[2]*xb; |
- |
- result.m[1][0] = coefs.v[0]*yr; |
- result.m[1][1] = coefs.v[1]*yg; |
- result.m[1][2] = coefs.v[2]*yb; |
- |
- result.m[2][0] = coefs.v[0]*(1.-xr-yr); |
- result.m[2][1] = coefs.v[1]*(1.-xg-yg); |
- result.m[2][2] = coefs.v[2]*(1.-xb-yb); |
- result.invalid = primaries_invert.invalid; |
- |
- return result; |
-} |
- |
-struct CIE_XYZ { |
- double X; |
- double Y; |
- double Z; |
-}; |
- |
-/* CIE Illuminant D50 */ |
-static const struct CIE_XYZ D50_XYZ = { |
- 0.9642, |
- 1.0000, |
- 0.8249 |
-}; |
- |
-/* from lcms: xyY2XYZ() |
- * corresponds to argyll: icmYxy2XYZ() */ |
-static struct CIE_XYZ xyY2XYZ(qcms_CIE_xyY source) |
-{ |
- struct CIE_XYZ dest; |
- dest.X = (source.x / source.y) * source.Y; |
- dest.Y = source.Y; |
- dest.Z = ((1 - source.x - source.y) / source.y) * source.Y; |
- return dest; |
-} |
- |
-/* from lcms: ComputeChromaticAdaption */ |
-// Compute chromatic adaption matrix using chad as cone matrix |
-static struct matrix |
-compute_chromatic_adaption(struct CIE_XYZ source_white_point, |
- struct CIE_XYZ dest_white_point, |
- struct matrix chad) |
-{ |
- struct matrix chad_inv; |
- struct vector cone_source_XYZ, cone_source_rgb; |
- struct vector cone_dest_XYZ, cone_dest_rgb; |
- struct matrix cone, tmp; |
- |
- tmp = chad; |
- chad_inv = matrix_invert(tmp); |
- |
- cone_source_XYZ.v[0] = source_white_point.X; |
- cone_source_XYZ.v[1] = source_white_point.Y; |
- cone_source_XYZ.v[2] = source_white_point.Z; |
- |
- cone_dest_XYZ.v[0] = dest_white_point.X; |
- cone_dest_XYZ.v[1] = dest_white_point.Y; |
- cone_dest_XYZ.v[2] = dest_white_point.Z; |
- |
- cone_source_rgb = matrix_eval(chad, cone_source_XYZ); |
- cone_dest_rgb = matrix_eval(chad, cone_dest_XYZ); |
- |
- cone.m[0][0] = cone_dest_rgb.v[0]/cone_source_rgb.v[0]; |
- cone.m[0][1] = 0; |
- cone.m[0][2] = 0; |
- cone.m[1][0] = 0; |
- cone.m[1][1] = cone_dest_rgb.v[1]/cone_source_rgb.v[1]; |
- cone.m[1][2] = 0; |
- cone.m[2][0] = 0; |
- cone.m[2][1] = 0; |
- cone.m[2][2] = cone_dest_rgb.v[2]/cone_source_rgb.v[2]; |
- cone.invalid = false; |
- |
- // Normalize |
- return matrix_multiply(chad_inv, matrix_multiply(cone, chad)); |
-} |
- |
-/* from lcms: cmsAdaptionMatrix */ |
-// Returns the final chrmatic adaptation from illuminant FromIll to Illuminant ToIll |
-// Bradford is assumed |
-static struct matrix |
-adaption_matrix(struct CIE_XYZ source_illumination, struct CIE_XYZ target_illumination) |
-{ |
- struct matrix lam_rigg = {{ // Bradford matrix |
- { 0.8951, 0.2664, -0.1614 }, |
- { -0.7502, 1.7135, 0.0367 }, |
- { 0.0389, -0.0685, 1.0296 } |
- }}; |
- return compute_chromatic_adaption(source_illumination, target_illumination, lam_rigg); |
-} |
- |
-/* from lcms: cmsAdaptMatrixToD50 */ |
-static struct matrix adapt_matrix_to_D50(struct matrix r, qcms_CIE_xyY source_white_pt) |
-{ |
- struct CIE_XYZ Dn; |
- struct matrix Bradford; |
- |
- if (source_white_pt.y == 0.0) |
- return matrix_invalid(); |
- |
- Dn = xyY2XYZ(source_white_pt); |
- |
- Bradford = adaption_matrix(Dn, D50_XYZ); |
- return matrix_multiply(Bradford, r); |
-} |
- |
-qcms_bool set_rgb_colorants(qcms_profile *profile, qcms_CIE_xyY white_point, qcms_CIE_xyYTRIPLE primaries) |
-{ |
- struct matrix colorants; |
- colorants = build_RGB_to_XYZ_transfer_matrix(white_point, primaries); |
- colorants = adapt_matrix_to_D50(colorants, white_point); |
- |
- if (colorants.invalid) |
- return false; |
- |
- /* note: there's a transpose type of operation going on here */ |
- profile->redColorant.X = double_to_s15Fixed16Number(colorants.m[0][0]); |
- profile->redColorant.Y = double_to_s15Fixed16Number(colorants.m[1][0]); |
- profile->redColorant.Z = double_to_s15Fixed16Number(colorants.m[2][0]); |
- |
- profile->greenColorant.X = double_to_s15Fixed16Number(colorants.m[0][1]); |
- profile->greenColorant.Y = double_to_s15Fixed16Number(colorants.m[1][1]); |
- profile->greenColorant.Z = double_to_s15Fixed16Number(colorants.m[2][1]); |
- |
- profile->blueColorant.X = double_to_s15Fixed16Number(colorants.m[0][2]); |
- profile->blueColorant.Y = double_to_s15Fixed16Number(colorants.m[1][2]); |
- profile->blueColorant.Z = double_to_s15Fixed16Number(colorants.m[2][2]); |
- |
- return true; |
-} |
- |
-/* |
- The number of entries needed to invert a lookup table should not |
- necessarily be the same as the original number of entries. This is |
- especially true of lookup tables that have a small number of entries. |
- |
- For example: |
- Using a table like: |
- {0, 3104, 14263, 34802, 65535} |
- invert_lut will produce an inverse of: |
- {3, 34459, 47529, 56801, 65535} |
- which has an maximum error of about 9855 (pixel difference of ~38.346) |
- |
- For now, we punt the decision of output size to the caller. */ |
-static uint16_t *invert_lut(uint16_t *table, int length, int out_length) |
-{ |
- int i; |
- /* for now we invert the lut by creating a lut of size out_length |
- * and attempting to lookup a value for each entry using lut_inverse_interp16 */ |
- uint16_t *output = malloc(sizeof(uint16_t)*out_length); |
- if (!output) |
- return NULL; |
- |
- for (i = 0; i < out_length; i++) { |
- double x = ((double) i * 65535.) / (double) (out_length - 1); |
- uint16_fract_t input = floor(x + .5); |
- output[i] = lut_inverse_interp16(input, table, length); |
- } |
- return output; |
-} |
- |
-static uint16_t *build_linear_table(int length) |
-{ |
- int i; |
- uint16_t *output = malloc(sizeof(uint16_t)*length); |
- if (!output) |
- return NULL; |
- |
- for (i = 0; i < length; i++) { |
- double x = ((double) i * 65535.) / (double) (length - 1); |
- uint16_fract_t input = floor(x + .5); |
- output[i] = input; |
- } |
- return output; |
-} |
- |
-static uint16_t *build_pow_table(float gamma, int length) |
-{ |
- int i; |
- uint16_t *output = malloc(sizeof(uint16_t)*length); |
- if (!output) |
- return NULL; |
- |
- for (i = 0; i < length; i++) { |
- uint16_fract_t result; |
- double x = ((double) i) / (double) (length - 1); |
- x = pow(x, gamma); |
- //XXX turn this conversion into a function |
- result = floor(x*65535. + .5); |
- output[i] = result; |
- } |
- return output; |
-} |
- |
-static float clamp_float(float a) |
-{ |
- if (a > 1.) |
- return 1.; |
- else if (a < 0) |
- return 0; |
- else |
- return a; |
-} |
- |
-#if 0 |
-static void qcms_transform_data_rgb_out_pow(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- int i; |
- float (*mat)[4] = transform->matrix; |
- for (i=0; i<length; i++) { |
- unsigned char device_r = *src++; |
- unsigned char device_g = *src++; |
- unsigned char device_b = *src++; |
- |
- float linear_r = transform->input_gamma_table_r[device_r]; |
- float linear_g = transform->input_gamma_table_g[device_g]; |
- float linear_b = transform->input_gamma_table_b[device_b]; |
- |
- float out_linear_r = mat[0][0]*linear_r + mat[1][0]*linear_g + mat[2][0]*linear_b; |
- float out_linear_g = mat[0][1]*linear_r + mat[1][1]*linear_g + mat[2][1]*linear_b; |
- float out_linear_b = mat[0][2]*linear_r + mat[1][2]*linear_g + mat[2][2]*linear_b; |
- |
- float out_device_r = pow(out_linear_r, transform->out_gamma_r); |
- float out_device_g = pow(out_linear_g, transform->out_gamma_g); |
- float out_device_b = pow(out_linear_b, transform->out_gamma_b); |
- |
- *dest++ = clamp_u8(255*out_device_r); |
- *dest++ = clamp_u8(255*out_device_g); |
- *dest++ = clamp_u8(255*out_device_b); |
- } |
-} |
-#endif |
- |
-static void qcms_transform_data_gray_out_lut(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- unsigned int i; |
- for (i = 0; i < length; i++) { |
- float out_device_r, out_device_g, out_device_b; |
- unsigned char device = *src++; |
- |
- float linear = transform->input_gamma_table_gray[device]; |
- |
- out_device_r = lut_interp_linear(linear, transform->output_gamma_lut_r, transform->output_gamma_lut_r_length); |
- out_device_g = lut_interp_linear(linear, transform->output_gamma_lut_g, transform->output_gamma_lut_g_length); |
- out_device_b = lut_interp_linear(linear, transform->output_gamma_lut_b, transform->output_gamma_lut_b_length); |
- |
- *dest++ = clamp_u8(out_device_r*255); |
- *dest++ = clamp_u8(out_device_g*255); |
- *dest++ = clamp_u8(out_device_b*255); |
- } |
-} |
- |
-/* Alpha is not corrected. |
- A rationale for this is found in Alvy Ray's "Should Alpha Be Nonlinear If |
- RGB Is?" Tech Memo 17 (December 14, 1998). |
- See: ftp://ftp.alvyray.com/Acrobat/17_Nonln.pdf |
-*/ |
- |
-static void qcms_transform_data_graya_out_lut(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- unsigned int i; |
- for (i = 0; i < length; i++) { |
- float out_device_r, out_device_g, out_device_b; |
- unsigned char device = *src++; |
- unsigned char alpha = *src++; |
- |
- float linear = transform->input_gamma_table_gray[device]; |
- |
- out_device_r = lut_interp_linear(linear, transform->output_gamma_lut_r, transform->output_gamma_lut_r_length); |
- out_device_g = lut_interp_linear(linear, transform->output_gamma_lut_g, transform->output_gamma_lut_g_length); |
- out_device_b = lut_interp_linear(linear, transform->output_gamma_lut_b, transform->output_gamma_lut_b_length); |
- |
- *dest++ = clamp_u8(out_device_r*255); |
- *dest++ = clamp_u8(out_device_g*255); |
- *dest++ = clamp_u8(out_device_b*255); |
- *dest++ = alpha; |
- } |
-} |
- |
- |
-static void qcms_transform_data_gray_out_precache(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- unsigned int i; |
- for (i = 0; i < length; i++) { |
- unsigned char device = *src++; |
- uint16_t gray; |
- |
- float linear = transform->input_gamma_table_gray[device]; |
- |
- /* we could round here... */ |
- gray = linear * PRECACHE_OUTPUT_MAX; |
- |
- *dest++ = transform->output_table_r->data[gray]; |
- *dest++ = transform->output_table_g->data[gray]; |
- *dest++ = transform->output_table_b->data[gray]; |
- } |
-} |
- |
-static void qcms_transform_data_graya_out_precache(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- unsigned int i; |
- for (i = 0; i < length; i++) { |
- unsigned char device = *src++; |
- unsigned char alpha = *src++; |
- uint16_t gray; |
- |
- float linear = transform->input_gamma_table_gray[device]; |
- |
- /* we could round here... */ |
- gray = linear * PRECACHE_OUTPUT_MAX; |
- |
- *dest++ = transform->output_table_r->data[gray]; |
- *dest++ = transform->output_table_g->data[gray]; |
- *dest++ = transform->output_table_b->data[gray]; |
- *dest++ = alpha; |
- } |
-} |
- |
-static void qcms_transform_data_rgb_out_lut_precache(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- unsigned int i; |
- float (*mat)[4] = transform->matrix; |
- for (i = 0; i < length; i++) { |
- unsigned char device_r = *src++; |
- unsigned char device_g = *src++; |
- unsigned char device_b = *src++; |
- uint16_t r, g, b; |
- |
- float linear_r = transform->input_gamma_table_r[device_r]; |
- float linear_g = transform->input_gamma_table_g[device_g]; |
- float linear_b = transform->input_gamma_table_b[device_b]; |
- |
- float out_linear_r = mat[0][0]*linear_r + mat[1][0]*linear_g + mat[2][0]*linear_b; |
- float out_linear_g = mat[0][1]*linear_r + mat[1][1]*linear_g + mat[2][1]*linear_b; |
- float out_linear_b = mat[0][2]*linear_r + mat[1][2]*linear_g + mat[2][2]*linear_b; |
- |
- out_linear_r = clamp_float(out_linear_r); |
- out_linear_g = clamp_float(out_linear_g); |
- out_linear_b = clamp_float(out_linear_b); |
- |
- /* we could round here... */ |
- r = out_linear_r * PRECACHE_OUTPUT_MAX; |
- g = out_linear_g * PRECACHE_OUTPUT_MAX; |
- b = out_linear_b * PRECACHE_OUTPUT_MAX; |
- |
- *dest++ = transform->output_table_r->data[r]; |
- *dest++ = transform->output_table_g->data[g]; |
- *dest++ = transform->output_table_b->data[b]; |
- } |
-} |
- |
-static void qcms_transform_data_rgba_out_lut_precache(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- unsigned int i; |
- float (*mat)[4] = transform->matrix; |
- for (i = 0; i < length; i++) { |
- unsigned char device_r = *src++; |
- unsigned char device_g = *src++; |
- unsigned char device_b = *src++; |
- unsigned char alpha = *src++; |
- uint16_t r, g, b; |
- |
- float linear_r = transform->input_gamma_table_r[device_r]; |
- float linear_g = transform->input_gamma_table_g[device_g]; |
- float linear_b = transform->input_gamma_table_b[device_b]; |
- |
- float out_linear_r = mat[0][0]*linear_r + mat[1][0]*linear_g + mat[2][0]*linear_b; |
- float out_linear_g = mat[0][1]*linear_r + mat[1][1]*linear_g + mat[2][1]*linear_b; |
- float out_linear_b = mat[0][2]*linear_r + mat[1][2]*linear_g + mat[2][2]*linear_b; |
- |
- out_linear_r = clamp_float(out_linear_r); |
- out_linear_g = clamp_float(out_linear_g); |
- out_linear_b = clamp_float(out_linear_b); |
- |
- /* we could round here... */ |
- r = out_linear_r * PRECACHE_OUTPUT_MAX; |
- g = out_linear_g * PRECACHE_OUTPUT_MAX; |
- b = out_linear_b * PRECACHE_OUTPUT_MAX; |
- |
- *dest++ = transform->output_table_r->data[r]; |
- *dest++ = transform->output_table_g->data[g]; |
- *dest++ = transform->output_table_b->data[b]; |
- *dest++ = alpha; |
- } |
-} |
- |
-static void qcms_transform_data_rgb_out_lut(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- unsigned int i; |
- float (*mat)[4] = transform->matrix; |
- for (i = 0; i < length; i++) { |
- unsigned char device_r = *src++; |
- unsigned char device_g = *src++; |
- unsigned char device_b = *src++; |
- float out_device_r, out_device_g, out_device_b; |
- |
- float linear_r = transform->input_gamma_table_r[device_r]; |
- float linear_g = transform->input_gamma_table_g[device_g]; |
- float linear_b = transform->input_gamma_table_b[device_b]; |
- |
- float out_linear_r = mat[0][0]*linear_r + mat[1][0]*linear_g + mat[2][0]*linear_b; |
- float out_linear_g = mat[0][1]*linear_r + mat[1][1]*linear_g + mat[2][1]*linear_b; |
- float out_linear_b = mat[0][2]*linear_r + mat[1][2]*linear_g + mat[2][2]*linear_b; |
- |
- out_linear_r = clamp_float(out_linear_r); |
- out_linear_g = clamp_float(out_linear_g); |
- out_linear_b = clamp_float(out_linear_b); |
- |
- out_device_r = lut_interp_linear(out_linear_r, transform->output_gamma_lut_r, transform->output_gamma_lut_r_length); |
- out_device_g = lut_interp_linear(out_linear_g, transform->output_gamma_lut_g, transform->output_gamma_lut_g_length); |
- out_device_b = lut_interp_linear(out_linear_b, transform->output_gamma_lut_b, transform->output_gamma_lut_b_length); |
- |
- *dest++ = clamp_u8(out_device_r*255); |
- *dest++ = clamp_u8(out_device_g*255); |
- *dest++ = clamp_u8(out_device_b*255); |
- } |
-} |
- |
-static void qcms_transform_data_rgba_out_lut(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- unsigned int i; |
- float (*mat)[4] = transform->matrix; |
- for (i = 0; i < length; i++) { |
- unsigned char device_r = *src++; |
- unsigned char device_g = *src++; |
- unsigned char device_b = *src++; |
- unsigned char alpha = *src++; |
- float out_device_r, out_device_g, out_device_b; |
- |
- float linear_r = transform->input_gamma_table_r[device_r]; |
- float linear_g = transform->input_gamma_table_g[device_g]; |
- float linear_b = transform->input_gamma_table_b[device_b]; |
- |
- float out_linear_r = mat[0][0]*linear_r + mat[1][0]*linear_g + mat[2][0]*linear_b; |
- float out_linear_g = mat[0][1]*linear_r + mat[1][1]*linear_g + mat[2][1]*linear_b; |
- float out_linear_b = mat[0][2]*linear_r + mat[1][2]*linear_g + mat[2][2]*linear_b; |
- |
- out_linear_r = clamp_float(out_linear_r); |
- out_linear_g = clamp_float(out_linear_g); |
- out_linear_b = clamp_float(out_linear_b); |
- |
- out_device_r = lut_interp_linear(out_linear_r, transform->output_gamma_lut_r, transform->output_gamma_lut_r_length); |
- out_device_g = lut_interp_linear(out_linear_g, transform->output_gamma_lut_g, transform->output_gamma_lut_g_length); |
- out_device_b = lut_interp_linear(out_linear_b, transform->output_gamma_lut_b, transform->output_gamma_lut_b_length); |
- |
- *dest++ = clamp_u8(out_device_r*255); |
- *dest++ = clamp_u8(out_device_g*255); |
- *dest++ = clamp_u8(out_device_b*255); |
- *dest++ = alpha; |
- } |
-} |
- |
-#if 0 |
-static void qcms_transform_data_rgb_out_linear(qcms_transform *transform, unsigned char *src, unsigned char *dest, size_t length) |
-{ |
- int i; |
- float (*mat)[4] = transform->matrix; |
- for (i = 0; i < length; i++) { |
- unsigned char device_r = *src++; |
- unsigned char device_g = *src++; |
- unsigned char device_b = *src++; |
- |
- float linear_r = transform->input_gamma_table_r[device_r]; |
- float linear_g = transform->input_gamma_table_g[device_g]; |
- float linear_b = transform->input_gamma_table_b[device_b]; |
- |
- float out_linear_r = mat[0][0]*linear_r + mat[1][0]*linear_g + mat[2][0]*linear_b; |
- float out_linear_g = mat[0][1]*linear_r + mat[1][1]*linear_g + mat[2][1]*linear_b; |
- float out_linear_b = mat[0][2]*linear_r + mat[1][2]*linear_g + mat[2][2]*linear_b; |
- |
- *dest++ = clamp_u8(out_linear_r*255); |
- *dest++ = clamp_u8(out_linear_g*255); |
- *dest++ = clamp_u8(out_linear_b*255); |
- } |
-} |
-#endif |
- |
-static struct precache_output *precache_reference(struct precache_output *p) |
-{ |
- p->ref_count++; |
- return p; |
-} |
- |
-static struct precache_output *precache_create() |
-{ |
- struct precache_output *p = malloc(sizeof(struct precache_output)); |
- if (p) |
- p->ref_count = 1; |
- return p; |
-} |
- |
-void precache_release(struct precache_output *p) |
-{ |
- if (--p->ref_count == 0) { |
- free(p); |
- } |
-} |
- |
-#ifdef HAS_POSIX_MEMALIGN |
-static qcms_transform *transform_alloc(void) |
-{ |
- qcms_transform *t; |
- if (!posix_memalign(&t, 16, sizeof(*t))) { |
- return t; |
- } else { |
- return NULL; |
- } |
-} |
-static void transform_free(qcms_transform *t) |
-{ |
- free(t); |
-} |
-#else |
-static qcms_transform *transform_alloc(void) |
-{ |
- /* transform needs to be aligned on a 16byte boundrary */ |
- char *original_block = calloc(sizeof(qcms_transform) + sizeof(void*) + 16, 1); |
- /* make room for a pointer to the block returned by calloc */ |
- void *transform_start = original_block + sizeof(void*); |
- /* align transform_start */ |
- qcms_transform *transform_aligned = (qcms_transform*)(((uintptr_t)transform_start + 15) & ~0xf); |
- |
- /* store a pointer to the block returned by calloc so that we can free it later */ |
- void **(original_block_ptr) = (void**)transform_aligned; |
- if (!original_block) |
- return NULL; |
- original_block_ptr--; |
- *original_block_ptr = original_block; |
- |
- return transform_aligned; |
-} |
-static void transform_free(qcms_transform *t) |
-{ |
- /* get at the pointer to the unaligned block returned by calloc */ |
- void **p = (void**)t; |
- p--; |
- free(*p); |
-} |
-#endif |
- |
-void qcms_transform_release(qcms_transform *t) |
-{ |
- /* ensure we only free the gamma tables once even if there are |
- * multiple references to the same data */ |
- |
- if (t->output_table_r) |
- precache_release(t->output_table_r); |
- if (t->output_table_g) |
- precache_release(t->output_table_g); |
- if (t->output_table_b) |
- precache_release(t->output_table_b); |
- |
- free(t->input_gamma_table_r); |
- if (t->input_gamma_table_g != t->input_gamma_table_r) |
- free(t->input_gamma_table_g); |
- if (t->input_gamma_table_g != t->input_gamma_table_r && |
- t->input_gamma_table_g != t->input_gamma_table_b) |
- free(t->input_gamma_table_b); |
- |
- free(t->input_gamma_table_gray); |
- |
- free(t->output_gamma_lut_r); |
- free(t->output_gamma_lut_g); |
- free(t->output_gamma_lut_b); |
- |
- transform_free(t); |
-} |
- |
-static void compute_precache_pow(uint8_t *output, float gamma) |
-{ |
- uint32_t v = 0; |
- for (v = 0; v < PRECACHE_OUTPUT_SIZE; v++) { |
- //XXX: don't do integer/float conversion... and round? |
- output[v] = 255. * pow(v/(double)PRECACHE_OUTPUT_MAX, gamma); |
- } |
-} |
- |
-void compute_precache_lut(uint8_t *output, uint16_t *table, int length) |
-{ |
- uint32_t v = 0; |
- for (v = 0; v < PRECACHE_OUTPUT_SIZE; v++) { |
- output[v] = lut_interp_linear_precache_output(v, table, length); |
- } |
-} |
- |
-void compute_precache_linear(uint8_t *output) |
-{ |
- uint32_t v = 0; |
- for (v = 0; v < PRECACHE_OUTPUT_SIZE; v++) { |
- //XXX: round? |
- output[v] = v / (PRECACHE_OUTPUT_SIZE/256); |
- } |
-} |
- |
-qcms_bool compute_precache(struct curveType *trc, uint8_t *output) |
-{ |
- if (trc->count == 0) { |
- compute_precache_linear(output); |
- } else if (trc->count == 1) { |
- compute_precache_pow(output, 1./u8Fixed8Number_to_float(trc->data[0])); |
- } else { |
- uint16_t *inverted; |
- int inverted_size = trc->count; |
- //XXX: the choice of a minimum of 256 here is not backed by any theory, measurement or data, however it is what lcms uses. |
- // the maximum number we would need is 65535 because that's the accuracy used for computing the precache table |
- if (inverted_size < 256) |
- inverted_size = 256; |
- |
- inverted = invert_lut(trc->data, trc->count, inverted_size); |
- if (!inverted) |
- return false; |
- compute_precache_lut(output, inverted, inverted_size); |
- free(inverted); |
- } |
- return true; |
-} |
- |
-#ifdef X86 |
-// Determine if we can build with SSE2 (this was partly copied from jmorecfg.h in |
-// mozilla/jpeg) |
- // ------------------------------------------------------------------------- |
-#if defined(_M_IX86) && defined(_MSC_VER) |
-#define HAS_CPUID |
-/* Get us a CPUID function. Avoid clobbering EBX because sometimes it's the PIC |
- register - I'm not sure if that ever happens on windows, but cpuid isn't |
- on the critical path so we just preserve the register to be safe and to be |
- consistent with the non-windows version. */ |
-static void cpuid(uint32_t fxn, uint32_t *a, uint32_t *b, uint32_t *c, uint32_t *d) { |
- uint32_t a_, b_, c_, d_; |
- __asm { |
- xchg ebx, esi |
- mov eax, fxn |
- cpuid |
- mov a_, eax |
- mov b_, ebx |
- mov c_, ecx |
- mov d_, edx |
- xchg ebx, esi |
- } |
- *a = a_; |
- *b = b_; |
- *c = c_; |
- *d = d_; |
-} |
-#elif (defined(__GNUC__) || defined(__SUNPRO_C)) && (defined(__i386__) || defined(__i386)) |
-#define HAS_CPUID |
-/* Get us a CPUID function. We can't use ebx because it's the PIC register on |
- some platforms, so we use ESI instead and save ebx to avoid clobbering it. */ |
-static void cpuid(uint32_t fxn, uint32_t *a, uint32_t *b, uint32_t *c, uint32_t *d) { |
- |
- uint32_t a_, b_, c_, d_; |
- __asm__ __volatile__ ("xchgl %%ebx, %%esi; cpuid; xchgl %%ebx, %%esi;" |
- : "=a" (a_), "=S" (b_), "=c" (c_), "=d" (d_) : "a" (fxn)); |
- *a = a_; |
- *b = b_; |
- *c = c_; |
- *d = d_; |
-} |
-#endif |
- |
-// -------------------------Runtime SSEx Detection----------------------------- |
- |
-/* MMX is always supported per |
- * Gecko v1.9.1 minimum CPU requirements */ |
-#define SSE1_EDX_MASK (1UL << 25) |
-#define SSE2_EDX_MASK (1UL << 26) |
-#define SSE3_ECX_MASK (1UL << 0) |
- |
-static int sse_version_available(void) |
-{ |
-#if defined(__x86_64__) || defined(__x86_64) || defined(_M_AMD64) |
- /* we know at build time that 64-bit CPUs always have SSE2 |
- * this tells the compiler that non-SSE2 branches will never be |
- * taken (i.e. OK to optimze away the SSE1 and non-SIMD code */ |
- return 2; |
-#elif defined(HAS_CPUID) |
- static int sse_version = -1; |
- uint32_t a, b, c, d; |
- uint32_t function = 0x00000001; |
- |
- if (sse_version == -1) { |
- sse_version = 0; |
- cpuid(function, &a, &b, &c, &d); |
- if (c & SSE3_ECX_MASK) |
- sse_version = 3; |
- else if (d & SSE2_EDX_MASK) |
- sse_version = 2; |
- else if (d & SSE1_EDX_MASK) |
- sse_version = 1; |
- } |
- |
- return sse_version; |
-#else |
- return 0; |
-#endif |
-} |
-#endif |
- |
-void build_output_lut(struct curveType *trc, |
- uint16_t **output_gamma_lut, size_t *output_gamma_lut_length) |
-{ |
- if (trc->count == 0) { |
- *output_gamma_lut = build_linear_table(4096); |
- *output_gamma_lut_length = 4096; |
- } else if (trc->count == 1) { |
- float gamma = 1./u8Fixed8Number_to_float(trc->data[0]); |
- *output_gamma_lut = build_pow_table(gamma, 4096); |
- *output_gamma_lut_length = 4096; |
- } else { |
- //XXX: the choice of a minimum of 256 here is not backed by any theory, measurement or data, however it is what lcms uses. |
- *output_gamma_lut_length = trc->count; |
- if (*output_gamma_lut_length < 256) |
- *output_gamma_lut_length = 256; |
- |
- *output_gamma_lut = invert_lut(trc->data, trc->count, *output_gamma_lut_length); |
- } |
- |
-} |
- |
-void qcms_profile_precache_output_transform(qcms_profile *profile) |
-{ |
- /* we only support precaching on rgb profiles */ |
- if (profile->color_space != RGB_SIGNATURE) |
- return; |
- |
- if (!profile->output_table_r) { |
- profile->output_table_r = precache_create(); |
- if (profile->output_table_r && |
- !compute_precache(profile->redTRC, profile->output_table_r->data)) { |
- precache_release(profile->output_table_r); |
- profile->output_table_r = NULL; |
- } |
- } |
- if (!profile->output_table_g) { |
- profile->output_table_g = precache_create(); |
- if (profile->output_table_g && |
- !compute_precache(profile->greenTRC, profile->output_table_g->data)) { |
- precache_release(profile->output_table_g); |
- profile->output_table_g = NULL; |
- } |
- } |
- if (!profile->output_table_b) { |
- profile->output_table_b = precache_create(); |
- if (profile->output_table_b && |
- !compute_precache(profile->blueTRC, profile->output_table_b->data)) { |
- precache_release(profile->output_table_b); |
- profile->output_table_b = NULL; |
- } |
- } |
-} |
- |
-#define NO_MEM_TRANSFORM NULL |
- |
-qcms_transform* qcms_transform_create( |
- qcms_profile *in, qcms_data_type in_type, |
- qcms_profile* out, qcms_data_type out_type, |
- qcms_intent intent) |
-{ |
- bool precache = false; |
- |
- qcms_transform *transform = transform_alloc(); |
- if (!transform) { |
- return NULL; |
- } |
- if (out_type != QCMS_DATA_RGB_8 && |
- out_type != QCMS_DATA_RGBA_8) { |
- assert(0 && "output type"); |
- transform_free(transform); |
- return NULL; |
- } |
- |
- if (out->output_table_r && |
- out->output_table_g && |
- out->output_table_b) { |
- precache = true; |
- } |
- |
- if (precache) { |
- transform->output_table_r = precache_reference(out->output_table_r); |
- transform->output_table_g = precache_reference(out->output_table_g); |
- transform->output_table_b = precache_reference(out->output_table_b); |
- } else { |
- build_output_lut(out->redTRC, &transform->output_gamma_lut_r, &transform->output_gamma_lut_r_length); |
- build_output_lut(out->greenTRC, &transform->output_gamma_lut_g, &transform->output_gamma_lut_g_length); |
- build_output_lut(out->blueTRC, &transform->output_gamma_lut_b, &transform->output_gamma_lut_b_length); |
- if (!transform->output_gamma_lut_r || !transform->output_gamma_lut_g || !transform->output_gamma_lut_b) { |
- qcms_transform_release(transform); |
- return NO_MEM_TRANSFORM; |
- } |
- } |
- |
- if (in->color_space == RGB_SIGNATURE) { |
- struct matrix in_matrix, out_matrix, result; |
- |
- if (in_type != QCMS_DATA_RGB_8 && |
- in_type != QCMS_DATA_RGBA_8){ |
- assert(0 && "input type"); |
- transform_free(transform); |
- return NULL; |
- } |
- if (precache) { |
-#ifdef X86 |
- if (sse_version_available() >= 2) { |
- if (in_type == QCMS_DATA_RGB_8) |
- transform->transform_fn = qcms_transform_data_rgb_out_lut_sse2; |
- else |
- transform->transform_fn = qcms_transform_data_rgba_out_lut_sse2; |
- |
-#if !(defined(_MSC_VER) && defined(_M_AMD64)) |
- /* Microsoft Compiler for x64 doesn't support MMX. |
- * SSE code uses MMX so that we disable on x64 */ |
- } else |
- if (sse_version_available() >= 1) { |
- if (in_type == QCMS_DATA_RGB_8) |
- transform->transform_fn = qcms_transform_data_rgb_out_lut_sse1; |
- else |
- transform->transform_fn = qcms_transform_data_rgba_out_lut_sse1; |
-#endif |
- } else |
-#endif |
- { |
- if (in_type == QCMS_DATA_RGB_8) |
- transform->transform_fn = qcms_transform_data_rgb_out_lut_precache; |
- else |
- transform->transform_fn = qcms_transform_data_rgba_out_lut_precache; |
- } |
- } else { |
- if (in_type == QCMS_DATA_RGB_8) |
- transform->transform_fn = qcms_transform_data_rgb_out_lut; |
- else |
- transform->transform_fn = qcms_transform_data_rgba_out_lut; |
- } |
- |
- //XXX: avoid duplicating tables if we can |
- transform->input_gamma_table_r = build_input_gamma_table(in->redTRC); |
- transform->input_gamma_table_g = build_input_gamma_table(in->greenTRC); |
- transform->input_gamma_table_b = build_input_gamma_table(in->blueTRC); |
- |
- if (!transform->input_gamma_table_r || !transform->input_gamma_table_g || !transform->input_gamma_table_b) { |
- qcms_transform_release(transform); |
- return NO_MEM_TRANSFORM; |
- } |
- |
- /* build combined colorant matrix */ |
- in_matrix = build_colorant_matrix(in); |
- out_matrix = build_colorant_matrix(out); |
- out_matrix = matrix_invert(out_matrix); |
- if (out_matrix.invalid) { |
- qcms_transform_release(transform); |
- return NULL; |
- } |
- result = matrix_multiply(out_matrix, in_matrix); |
- |
- /* store the results in column major mode |
- * this makes doing the multiplication with sse easier */ |
- transform->matrix[0][0] = result.m[0][0]; |
- transform->matrix[1][0] = result.m[0][1]; |
- transform->matrix[2][0] = result.m[0][2]; |
- transform->matrix[0][1] = result.m[1][0]; |
- transform->matrix[1][1] = result.m[1][1]; |
- transform->matrix[2][1] = result.m[1][2]; |
- transform->matrix[0][2] = result.m[2][0]; |
- transform->matrix[1][2] = result.m[2][1]; |
- transform->matrix[2][2] = result.m[2][2]; |
- |
- } else if (in->color_space == GRAY_SIGNATURE) { |
- if (in_type != QCMS_DATA_GRAY_8 && |
- in_type != QCMS_DATA_GRAYA_8){ |
- assert(0 && "input type"); |
- transform_free(transform); |
- return NULL; |
- } |
- |
- transform->input_gamma_table_gray = build_input_gamma_table(in->grayTRC); |
- if (!transform->input_gamma_table_gray) { |
- qcms_transform_release(transform); |
- return NO_MEM_TRANSFORM; |
- } |
- |
- if (precache) { |
- if (in_type == QCMS_DATA_GRAY_8) { |
- transform->transform_fn = qcms_transform_data_gray_out_precache; |
- } else { |
- transform->transform_fn = qcms_transform_data_graya_out_precache; |
- } |
- } else { |
- if (in_type == QCMS_DATA_GRAY_8) { |
- transform->transform_fn = qcms_transform_data_gray_out_lut; |
- } else { |
- transform->transform_fn = qcms_transform_data_graya_out_lut; |
- } |
- } |
- } else { |
- assert(0 && "unexpected colorspace"); |
- qcms_transform_release(transform); |
- return NO_MEM_TRANSFORM; |
- } |
- return transform; |
-} |
- |
-#if defined(__GNUC__) && !defined(__x86_64__) && !defined(__amd64__) |
-/* we need this to avoid crashes when gcc assumes the stack is 128bit aligned */ |
-__attribute__((__force_align_arg_pointer__)) |
-#endif |
-void qcms_transform_data(qcms_transform *transform, void *src, void *dest, size_t length) |
-{ |
- transform->transform_fn(transform, src, dest, length); |
-} |