| Index: third_party/qcms/iccread.c
|
| ===================================================================
|
| --- third_party/qcms/iccread.c (revision 103192)
|
| +++ third_party/qcms/iccread.c (working copy)
|
| @@ -1,822 +0,0 @@
|
| -// qcms
|
| -// Copyright (C) 2009 Mozilla Foundation
|
| -// 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 <math.h>
|
| -#include <assert.h>
|
| -#include <stdlib.h>
|
| -#include <string.h>
|
| -#include "qcmsint.h"
|
| -
|
| -typedef uint32_t be32;
|
| -typedef uint16_t be16;
|
| -
|
| -#if 0
|
| -not used yet
|
| -/* __builtin_bswap isn't available in older gccs
|
| - * so open code it for now */
|
| -static be32 cpu_to_be32(int32_t v)
|
| -{
|
| -#ifdef IS_LITTLE_ENDIAN
|
| - return ((v & 0xff) << 24) | ((v & 0xff00) << 8) | ((v & 0xff0000) >> 8) | ((v & 0xff000000) >> 24);
|
| - //return __builtin_bswap32(v);
|
| - return v;
|
| -#endif
|
| -}
|
| -#endif
|
| -
|
| -static uint32_t be32_to_cpu(be32 v)
|
| -{
|
| -#ifdef IS_LITTLE_ENDIAN
|
| - return ((v & 0xff) << 24) | ((v & 0xff00) << 8) | ((v & 0xff0000) >> 8) | ((v & 0xff000000) >> 24);
|
| - //return __builtin_bswap32(v);
|
| -#else
|
| - return v;
|
| -#endif
|
| -}
|
| -
|
| -static uint16_t be16_to_cpu(be16 v)
|
| -{
|
| -#ifdef IS_LITTLE_ENDIAN
|
| - return ((v & 0xff) << 8) | ((v & 0xff00) >> 8);
|
| -#else
|
| - return v;
|
| -#endif
|
| -}
|
| -
|
| -/* a wrapper around the memory that we are going to parse
|
| - * into a qcms_profile */
|
| -struct mem_source
|
| -{
|
| - const unsigned char *buf;
|
| - size_t size;
|
| - qcms_bool valid;
|
| - const char *invalid_reason;
|
| -};
|
| -
|
| -static void invalid_source(struct mem_source *mem, const char *reason)
|
| -{
|
| - mem->valid = false;
|
| - mem->invalid_reason = reason;
|
| -}
|
| -
|
| -static uint32_t read_u32(struct mem_source *mem, size_t offset)
|
| -{
|
| - /* Subtract from mem->size instead of the more intuitive adding to offset.
|
| - * This avoids overflowing offset. The subtraction is safe because
|
| - * mem->size is guaranteed to be > 4 */
|
| - if (offset > mem->size - 4) {
|
| - invalid_source(mem, "Invalid offset");
|
| - return 0;
|
| - } else {
|
| - be32 k;
|
| - memcpy(&k, mem->buf + offset, sizeof(k));
|
| - return be32_to_cpu(k);
|
| - }
|
| -}
|
| -
|
| -static uint16_t read_u16(struct mem_source *mem, size_t offset)
|
| -{
|
| - if (offset > mem->size - 2) {
|
| - invalid_source(mem, "Invalid offset");
|
| - return 0;
|
| - } else {
|
| - be16 k;
|
| - memcpy(&k, mem->buf + offset, sizeof(k));
|
| - return be16_to_cpu(k);
|
| - }
|
| -}
|
| -
|
| -static uint8_t read_u8(struct mem_source *mem, size_t offset)
|
| -{
|
| - if (offset > mem->size - 1) {
|
| - invalid_source(mem, "Invalid offset");
|
| - return 0;
|
| - } else {
|
| - return *(uint8_t*)(mem->buf + offset);
|
| - }
|
| -}
|
| -
|
| -static s15Fixed16Number read_s15Fixed16Number(struct mem_source *mem, size_t offset)
|
| -{
|
| - return read_u32(mem, offset);
|
| -}
|
| -
|
| -#if 0
|
| -static uInt16Number read_uInt16Number(struct mem_source *mem, size_t offset)
|
| -{
|
| - return read_u16(mem, offset);
|
| -}
|
| -#endif
|
| -
|
| -#define BAD_VALUE_PROFILE NULL
|
| -#define INVALID_PROFILE NULL
|
| -#define NO_MEM_PROFILE NULL
|
| -
|
| -/* An arbitrary 4MB limit on profile size */
|
| -#define MAX_PROFILE_SIZE 1024*1024*4
|
| -#define MAX_TAG_COUNT 1024
|
| -
|
| -static void check_CMM_type_signature(struct mem_source *src)
|
| -{
|
| - //uint32_t CMM_type_signature = read_u32(src, 4);
|
| - //TODO: do the check?
|
| -
|
| -}
|
| -
|
| -static void check_profile_version(struct mem_source *src)
|
| -{
|
| - uint8_t major_revision = read_u8(src, 8 + 0);
|
| - uint8_t minor_revision = read_u8(src, 8 + 1);
|
| - uint8_t reserved1 = read_u8(src, 8 + 2);
|
| - uint8_t reserved2 = read_u8(src, 8 + 3);
|
| - if (major_revision != 0x4) {
|
| - if (major_revision > 0x2)
|
| - invalid_source(src, "Unsupported major revision");
|
| - if (minor_revision > 0x40)
|
| - invalid_source(src, "Unsupported minor revision");
|
| - }
|
| - if (reserved1 != 0 || reserved2 != 0)
|
| - invalid_source(src, "Invalid reserved bytes");
|
| -}
|
| -
|
| -#define INPUT_DEVICE_PROFILE 0x73636e72 // 'scnr'
|
| -#define DISPLAY_DEVICE_PROFILE 0x6d6e7472 // 'mntr'
|
| -#define OUTPUT_DEVICE_PROFILE 0x70727472 // 'prtr'
|
| -#define DEVICE_LINK_PROFILE 0x6c696e6b // 'link'
|
| -#define COLOR_SPACE_PROFILE 0x73706163 // 'spac'
|
| -#define ABSTRACT_PROFILE 0x61627374 // 'abst'
|
| -#define NAMED_COLOR_PROFILE 0x6e6d636c // 'nmcl'
|
| -
|
| -static void read_class_signature(qcms_profile *profile, struct mem_source *mem)
|
| -{
|
| - profile->class = read_u32(mem, 12);
|
| - switch (profile->class) {
|
| - case DISPLAY_DEVICE_PROFILE:
|
| - case INPUT_DEVICE_PROFILE:
|
| - break;
|
| - case OUTPUT_DEVICE_PROFILE:
|
| - default:
|
| - invalid_source(mem, "Invalid Profile/Device Class signature");
|
| - }
|
| -}
|
| -
|
| -static void read_color_space(qcms_profile *profile, struct mem_source *mem)
|
| -{
|
| - profile->color_space = read_u32(mem, 16);
|
| - switch (profile->color_space) {
|
| - case RGB_SIGNATURE:
|
| - case GRAY_SIGNATURE:
|
| - break;
|
| - default:
|
| - invalid_source(mem, "Unsupported colorspace");
|
| - }
|
| -}
|
| -
|
| -struct tag
|
| -{
|
| - uint32_t signature;
|
| - uint32_t offset;
|
| - uint32_t size;
|
| -};
|
| -
|
| -struct tag_index {
|
| - uint32_t count;
|
| - struct tag *tags;
|
| -};
|
| -
|
| -static struct tag_index read_tag_table(qcms_profile *profile, struct mem_source *mem)
|
| -{
|
| - struct tag_index index = {0, NULL};
|
| - unsigned int i;
|
| -
|
| - index.count = read_u32(mem, 128);
|
| - if (index.count > MAX_TAG_COUNT) {
|
| - invalid_source(mem, "max number of tags exceeded");
|
| - return index;
|
| - }
|
| -
|
| - index.tags = malloc(sizeof(struct tag)*index.count);
|
| - if (index.tags) {
|
| - for (i = 0; i < index.count; i++) {
|
| - index.tags[i].signature = read_u32(mem, 128 + 4 + 4*i*3);
|
| - index.tags[i].offset = read_u32(mem, 128 + 4 + 4*i*3 + 4);
|
| - index.tags[i].size = read_u32(mem, 128 + 4 + 4*i*3 + 8);
|
| - }
|
| - }
|
| -
|
| - return index;
|
| -}
|
| -
|
| -// Checks a profile for obvious inconsistencies and returns
|
| -// true if the profile looks bogus and should probably be
|
| -// ignored.
|
| -qcms_bool qcms_profile_is_bogus(qcms_profile *profile)
|
| -{
|
| - float sum[3], target[3], tolerance[3];
|
| - float rX, rY, rZ, gX, gY, gZ, bX, bY, bZ;
|
| - bool negative;
|
| - unsigned i;
|
| -
|
| - // We currently only check the bogosity of RGB profiles
|
| - if (profile->color_space != RGB_SIGNATURE)
|
| - return false;
|
| -
|
| - rX = s15Fixed16Number_to_float(profile->redColorant.X);
|
| - rY = s15Fixed16Number_to_float(profile->redColorant.Y);
|
| - rZ = s15Fixed16Number_to_float(profile->redColorant.Z);
|
| -
|
| - gX = s15Fixed16Number_to_float(profile->greenColorant.X);
|
| - gY = s15Fixed16Number_to_float(profile->greenColorant.Y);
|
| - gZ = s15Fixed16Number_to_float(profile->greenColorant.Z);
|
| -
|
| - bX = s15Fixed16Number_to_float(profile->blueColorant.X);
|
| - bY = s15Fixed16Number_to_float(profile->blueColorant.Y);
|
| - bZ = s15Fixed16Number_to_float(profile->blueColorant.Z);
|
| -
|
| - // Check if any of the XYZ values are negative (see mozilla bug 498245)
|
| - // CIEXYZ tristimulus values cannot be negative according to the spec.
|
| - negative =
|
| - (rX < 0) || (rY < 0) || (rZ < 0) ||
|
| - (gX < 0) || (gY < 0) || (gZ < 0) ||
|
| - (bX < 0) || (bY < 0) || (bZ < 0);
|
| -
|
| - if (negative)
|
| - return true;
|
| -
|
| -
|
| - // Sum the values; they should add up to something close to white
|
| - sum[0] = rX + gX + bX;
|
| - sum[1] = rY + gY + bY;
|
| - sum[2] = rZ + gZ + bZ;
|
| -
|
| - // Build our target vector (see mozilla bug 460629)
|
| - target[0] = 0.96420;
|
| - target[1] = 1.00000;
|
| - target[2] = 0.82491;
|
| -
|
| - // Our tolerance vector - Recommended by Chris Murphy based on
|
| - // conversion from the LAB space criterion of no more than 3 in any one
|
| - // channel. This is similar to, but slightly more tolerant than Adobe's
|
| - // criterion.
|
| - tolerance[0] = 0.02;
|
| - tolerance[1] = 0.02;
|
| - tolerance[2] = 0.04;
|
| -
|
| - // Compare with our tolerance
|
| - for (i = 0; i < 3; ++i) {
|
| - if (!(((sum[i] - tolerance[i]) <= target[i]) &&
|
| - ((sum[i] + tolerance[i]) >= target[i])))
|
| - return true;
|
| - }
|
| -
|
| - // All Good
|
| - return false;
|
| -}
|
| -
|
| -#define TAG_bXYZ 0x6258595a
|
| -#define TAG_gXYZ 0x6758595a
|
| -#define TAG_rXYZ 0x7258595a
|
| -#define TAG_rTRC 0x72545243
|
| -#define TAG_bTRC 0x62545243
|
| -#define TAG_gTRC 0x67545243
|
| -#define TAG_kTRC 0x6b545243
|
| -#define TAG_A2B0 0x41324230
|
| -
|
| -static struct tag *find_tag(struct tag_index index, uint32_t tag_id)
|
| -{
|
| - unsigned int i;
|
| - struct tag *tag = NULL;
|
| - for (i = 0; i < index.count; i++) {
|
| - if (index.tags[i].signature == tag_id) {
|
| - return &index.tags[i];
|
| - }
|
| - }
|
| - return tag;
|
| -}
|
| -
|
| -#define XYZ_TYPE 0x58595a20 // 'XYZ '
|
| -#define CURVE_TYPE 0x63757276 // 'curv'
|
| -#define LUT16_TYPE 0x6d667432 // 'mft2'
|
| -#define LUT8_TYPE 0x6d667431 // 'mft1'
|
| -
|
| -static struct XYZNumber read_tag_XYZType(struct mem_source *src, struct tag_index index, uint32_t tag_id)
|
| -{
|
| - struct XYZNumber num = {0, 0, 0};
|
| - struct tag *tag = find_tag(index, tag_id);
|
| - if (tag) {
|
| - uint32_t offset = tag->offset;
|
| -
|
| - uint32_t type = read_u32(src, offset);
|
| - if (type != XYZ_TYPE)
|
| - invalid_source(src, "unexpected type, expected XYZ");
|
| - num.X = read_s15Fixed16Number(src, offset+8);
|
| - num.Y = read_s15Fixed16Number(src, offset+12);
|
| - num.Z = read_s15Fixed16Number(src, offset+16);
|
| - } else {
|
| - invalid_source(src, "missing xyztag");
|
| - }
|
| - return num;
|
| -}
|
| -
|
| -static struct curveType *read_tag_curveType(struct mem_source *src, struct tag_index index, uint32_t tag_id)
|
| -{
|
| - struct tag *tag = find_tag(index, tag_id);
|
| - struct curveType *curve = NULL;
|
| - if (tag) {
|
| - uint32_t offset = tag->offset;
|
| - uint32_t type = read_u32(src, offset);
|
| - uint32_t count = read_u32(src, offset+8);
|
| - unsigned int i;
|
| -
|
| - if (type != CURVE_TYPE) {
|
| - invalid_source(src, "unexpected type, expected CURV");
|
| - return NULL;
|
| - }
|
| -
|
| -#define MAX_CURVE_ENTRIES 40000 //arbitrary
|
| - if (count > MAX_CURVE_ENTRIES) {
|
| - invalid_source(src, "curve size too large");
|
| - return NULL;
|
| - }
|
| - curve = malloc(sizeof(struct curveType) + sizeof(uInt16Number)*count);
|
| - if (!curve)
|
| - return NULL;
|
| -
|
| - curve->count = count;
|
| - for (i=0; i<count; i++) {
|
| - curve->data[i] = read_u16(src, offset + 12 + i *2);
|
| - }
|
| - } else {
|
| - invalid_source(src, "missing curvetag");
|
| - }
|
| -
|
| - return curve;
|
| -}
|
| -
|
| -/* This function's not done yet */
|
| -static struct lutType *read_tag_lutType(struct mem_source *src, struct tag_index index, uint32_t tag_id)
|
| -{
|
| - struct tag *tag = find_tag(index, tag_id);
|
| - uint32_t offset = tag->offset;
|
| - uint32_t type = read_u32(src, offset);
|
| - uint16_t num_input_table_entries;
|
| - uint16_t num_output_table_entries;
|
| - uint8_t in_chan, grid_points, out_chan;
|
| - uint32_t clut_size;
|
| - struct lutType *lut;
|
| - int i;
|
| -
|
| - num_input_table_entries = read_u16(src, offset + 48);
|
| - num_output_table_entries = read_u16(src, offset + 50);
|
| -
|
| - in_chan = read_u8(src, offset + 8);
|
| - out_chan = read_u8(src, offset + 9);
|
| - grid_points = read_u8(src, offset + 10);
|
| -
|
| - if (!src->valid)
|
| - return NULL;
|
| -
|
| - clut_size = in_chan * grid_points * out_chan;
|
| -#define MAX_CLUT_SIZE 10000 // arbitrary
|
| - if (clut_size > MAX_CLUT_SIZE) {
|
| - return NULL;
|
| - }
|
| -
|
| - if (type != LUT16_TYPE && type != LUT8_TYPE)
|
| - return NULL;
|
| -
|
| - lut = malloc(sizeof(struct lutType) + (clut_size + num_input_table_entries + num_output_table_entries)*sizeof(uint8_t));
|
| - if (!lut)
|
| - return NULL;
|
| - lut->num_input_channels = read_u8(src, offset + 8);
|
| - lut->num_output_channels = read_u8(src, offset + 9);
|
| - lut->num_clut_grid_points = read_u8(src, offset + 10);
|
| - lut->e00 = read_s15Fixed16Number(src, offset+12);
|
| - lut->e01 = read_s15Fixed16Number(src, offset+16);
|
| - lut->e02 = read_s15Fixed16Number(src, offset+20);
|
| - lut->e10 = read_s15Fixed16Number(src, offset+24);
|
| - lut->e11 = read_s15Fixed16Number(src, offset+28);
|
| - lut->e12 = read_s15Fixed16Number(src, offset+32);
|
| - lut->e20 = read_s15Fixed16Number(src, offset+36);
|
| - lut->e21 = read_s15Fixed16Number(src, offset+40);
|
| - lut->e22 = read_s15Fixed16Number(src, offset+44);
|
| -
|
| - //TODO: finish up
|
| - return lut;
|
| -}
|
| -
|
| -static void read_rendering_intent(qcms_profile *profile, struct mem_source *src)
|
| -{
|
| - profile->rendering_intent = read_u32(src, 64);
|
| - switch (profile->rendering_intent) {
|
| - case QCMS_INTENT_PERCEPTUAL:
|
| - case QCMS_INTENT_SATURATION:
|
| - case QCMS_INTENT_RELATIVE_COLORIMETRIC:
|
| - case QCMS_INTENT_ABSOLUTE_COLORIMETRIC:
|
| - break;
|
| - default:
|
| - invalid_source(src, "unknown rendering intent");
|
| - }
|
| -}
|
| -
|
| -qcms_profile *qcms_profile_create(void)
|
| -{
|
| - return calloc(sizeof(qcms_profile), 1);
|
| -}
|
| -
|
| -/* build sRGB gamma table */
|
| -/* based on cmsBuildParametricGamma() */
|
| -static uint16_t *build_sRGB_gamma_table(int num_entries)
|
| -{
|
| - int i;
|
| - /* taken from lcms: Build_sRGBGamma() */
|
| - double gamma = 2.4;
|
| - double a = 1./1.055;
|
| - double b = 0.055/1.055;
|
| - double c = 1./12.92;
|
| - double d = 0.04045;
|
| -
|
| - uint16_t *table = malloc(sizeof(uint16_t) * num_entries);
|
| - if (!table)
|
| - return NULL;
|
| -
|
| - for (i=0; i<num_entries; i++) {
|
| - double x = (double)i / (num_entries-1);
|
| - double y, output;
|
| - // IEC 61966-2.1 (sRGB)
|
| - // Y = (aX + b)^Gamma | X >= d
|
| - // Y = cX | X < d
|
| - if (x >= d) {
|
| - double e = (a*x + b);
|
| - if (e > 0)
|
| - y = pow(e, gamma);
|
| - else
|
| - y = 0;
|
| - } else {
|
| - y = c*x;
|
| - }
|
| -
|
| - // Saturate -- this could likely move to a separate function
|
| - output = y * 65535. + .5;
|
| - if (output > 65535.)
|
| - output = 65535;
|
| - if (output < 0)
|
| - output = 0;
|
| - table[i] = (uint16_t)floor(output);
|
| - }
|
| - return table;
|
| -}
|
| -
|
| -static struct curveType *curve_from_table(uint16_t *table, int num_entries)
|
| -{
|
| - struct curveType *curve;
|
| - int i;
|
| - curve = malloc(sizeof(struct curveType) + sizeof(uInt16Number)*num_entries);
|
| - if (!curve)
|
| - return NULL;
|
| - curve->count = num_entries;
|
| - for (i = 0; i < num_entries; i++) {
|
| - curve->data[i] = table[i];
|
| - }
|
| - return curve;
|
| -}
|
| -
|
| -static uint16_t float_to_u8Fixed8Number(float a)
|
| -{
|
| - if (a > (255. + 255./256))
|
| - return 0xffff;
|
| - else if (a < 0.)
|
| - return 0;
|
| - else
|
| - return floor(a*256. + .5);
|
| -}
|
| -
|
| -static struct curveType *curve_from_gamma(float gamma)
|
| -{
|
| - struct curveType *curve;
|
| - int num_entries = 1;
|
| - curve = malloc(sizeof(struct curveType) + sizeof(uInt16Number)*num_entries);
|
| - if (!curve)
|
| - return NULL;
|
| - curve->count = num_entries;
|
| - curve->data[0] = float_to_u8Fixed8Number(gamma);
|
| - return curve;
|
| -}
|
| -
|
| -static void qcms_profile_fini(qcms_profile *profile)
|
| -{
|
| - free(profile->redTRC);
|
| - free(profile->blueTRC);
|
| - free(profile->greenTRC);
|
| - free(profile->grayTRC);
|
| - free(profile);
|
| -}
|
| -
|
| -//XXX: it would be nice if we had a way of ensuring
|
| -// everything in a profile was initialized regardless of how it was created
|
| -
|
| -//XXX: should this also be taking a black_point?
|
| -/* similar to CGColorSpaceCreateCalibratedRGB */
|
| -qcms_profile* qcms_profile_create_rgb_with_gamma(
|
| - qcms_CIE_xyY white_point,
|
| - qcms_CIE_xyYTRIPLE primaries,
|
| - float gamma)
|
| -{
|
| - qcms_profile* profile = qcms_profile_create();
|
| - if (!profile)
|
| - return NO_MEM_PROFILE;
|
| -
|
| - //XXX: should store the whitepoint
|
| - if (!set_rgb_colorants(profile, white_point, primaries)) {
|
| - qcms_profile_fini(profile);
|
| - return INVALID_PROFILE;
|
| - }
|
| -
|
| - profile->redTRC = curve_from_gamma(gamma);
|
| - profile->blueTRC = curve_from_gamma(gamma);
|
| - profile->greenTRC = curve_from_gamma(gamma);
|
| -
|
| - if (!profile->redTRC || !profile->blueTRC || !profile->greenTRC) {
|
| - qcms_profile_fini(profile);
|
| - return NO_MEM_PROFILE;
|
| - }
|
| - profile->class = DISPLAY_DEVICE_PROFILE;
|
| - profile->rendering_intent = QCMS_INTENT_PERCEPTUAL;
|
| - profile->color_space = RGB_SIGNATURE;
|
| - return profile;
|
| -}
|
| -
|
| -qcms_profile* qcms_profile_create_rgb_with_table(
|
| - qcms_CIE_xyY white_point,
|
| - qcms_CIE_xyYTRIPLE primaries,
|
| - uint16_t *table, int num_entries)
|
| -{
|
| - qcms_profile* profile = qcms_profile_create();
|
| - if (!profile)
|
| - return NO_MEM_PROFILE;
|
| -
|
| - //XXX: should store the whitepoint
|
| - if (!set_rgb_colorants(profile, white_point, primaries)) {
|
| - qcms_profile_fini(profile);
|
| - return INVALID_PROFILE;
|
| - }
|
| -
|
| - profile->redTRC = curve_from_table(table, num_entries);
|
| - profile->blueTRC = curve_from_table(table, num_entries);
|
| - profile->greenTRC = curve_from_table(table, num_entries);
|
| -
|
| - if (!profile->redTRC || !profile->blueTRC || !profile->greenTRC) {
|
| - qcms_profile_fini(profile);
|
| - return NO_MEM_PROFILE;
|
| - }
|
| - profile->class = DISPLAY_DEVICE_PROFILE;
|
| - profile->rendering_intent = QCMS_INTENT_PERCEPTUAL;
|
| - profile->color_space = RGB_SIGNATURE;
|
| - return profile;
|
| -}
|
| -
|
| -/* from lcms: cmsWhitePointFromTemp */
|
| -/* tempK must be >= 4000. and <= 25000.
|
| - * similar to argyll: icx_DTEMP2XYZ() */
|
| -static qcms_CIE_xyY white_point_from_temp(int temp_K)
|
| -{
|
| - qcms_CIE_xyY white_point;
|
| - double x, y;
|
| - double T, T2, T3;
|
| - // double M1, M2;
|
| -
|
| - // No optimization provided.
|
| - T = temp_K;
|
| - T2 = T*T; // Square
|
| - T3 = T2*T; // Cube
|
| -
|
| - // For correlated color temperature (T) between 4000K and 7000K:
|
| - if (T >= 4000. && T <= 7000.) {
|
| - x = -4.6070*(1E9/T3) + 2.9678*(1E6/T2) + 0.09911*(1E3/T) + 0.244063;
|
| - } else {
|
| - // or for correlated color temperature (T) between 7000K and 25000K:
|
| - if (T > 7000.0 && T <= 25000.0) {
|
| - x = -2.0064*(1E9/T3) + 1.9018*(1E6/T2) + 0.24748*(1E3/T) + 0.237040;
|
| - } else {
|
| - assert(0 && "invalid temp");
|
| - }
|
| - }
|
| -
|
| - // Obtain y(x)
|
| -
|
| - y = -3.000*(x*x) + 2.870*x - 0.275;
|
| -
|
| - // wave factors (not used, but here for futures extensions)
|
| -
|
| - // M1 = (-1.3515 - 1.7703*x + 5.9114 *y)/(0.0241 + 0.2562*x - 0.7341*y);
|
| - // M2 = (0.0300 - 31.4424*x + 30.0717*y)/(0.0241 + 0.2562*x - 0.7341*y);
|
| -
|
| - // Fill white_point struct
|
| - white_point.x = x;
|
| - white_point.y = y;
|
| - white_point.Y = 1.0;
|
| -
|
| - return white_point;
|
| -}
|
| -
|
| -qcms_profile* qcms_profile_sRGB(void)
|
| -{
|
| - qcms_profile *profile;
|
| - uint16_t *table;
|
| -
|
| - qcms_CIE_xyYTRIPLE Rec709Primaries = {
|
| - {0.6400, 0.3300, 1.0},
|
| - {0.3000, 0.6000, 1.0},
|
| - {0.1500, 0.0600, 1.0}
|
| - };
|
| - qcms_CIE_xyY D65;
|
| -
|
| - D65 = white_point_from_temp(6504);
|
| -
|
| - table = build_sRGB_gamma_table(1024);
|
| -
|
| - if (!table)
|
| - return NO_MEM_PROFILE;
|
| -
|
| - profile = qcms_profile_create_rgb_with_table(D65, Rec709Primaries, table, 1024);
|
| - free(table);
|
| - return profile;
|
| -}
|
| -
|
| -
|
| -/* qcms_profile_from_memory does not hold a reference to the memory passed in */
|
| -qcms_profile* qcms_profile_from_memory(const void *mem, size_t size)
|
| -{
|
| - uint32_t length;
|
| - struct mem_source source;
|
| - struct mem_source *src = &source;
|
| - struct tag_index index;
|
| - qcms_profile *profile;
|
| -
|
| - source.buf = mem;
|
| - source.size = size;
|
| - source.valid = true;
|
| -
|
| - length = read_u32(src, 0);
|
| - if (length <= size) {
|
| - // shrink the area that we can read if appropriate
|
| - source.size = length;
|
| - } else {
|
| - return INVALID_PROFILE;
|
| - }
|
| -
|
| - /* ensure that the profile size is sane so it's easier to reason about */
|
| - if (source.size <= 64 || source.size >= MAX_PROFILE_SIZE)
|
| - return INVALID_PROFILE;
|
| -
|
| - profile = qcms_profile_create();
|
| - if (!profile)
|
| - return NO_MEM_PROFILE;
|
| -
|
| - check_CMM_type_signature(src);
|
| - check_profile_version(src);
|
| - read_class_signature(profile, src);
|
| - read_rendering_intent(profile, src);
|
| - read_color_space(profile, src);
|
| - //TODO read rest of profile stuff
|
| -
|
| - if (!src->valid)
|
| - goto invalid_profile;
|
| -
|
| - index = read_tag_table(profile, src);
|
| - if (!src->valid || !index.tags)
|
| - goto invalid_tag_table;
|
| -
|
| - if (profile->class == DISPLAY_DEVICE_PROFILE || profile->class == INPUT_DEVICE_PROFILE) {
|
| - if (profile->color_space == RGB_SIGNATURE) {
|
| -
|
| - profile->redColorant = read_tag_XYZType(src, index, TAG_rXYZ);
|
| - profile->blueColorant = read_tag_XYZType(src, index, TAG_bXYZ);
|
| - profile->greenColorant = read_tag_XYZType(src, index, TAG_gXYZ);
|
| -
|
| - if (!src->valid)
|
| - goto invalid_tag_table;
|
| -
|
| - profile->redTRC = read_tag_curveType(src, index, TAG_rTRC);
|
| - profile->blueTRC = read_tag_curveType(src, index, TAG_bTRC);
|
| - profile->greenTRC = read_tag_curveType(src, index, TAG_gTRC);
|
| -
|
| - if (!profile->redTRC || !profile->blueTRC || !profile->greenTRC)
|
| - goto invalid_tag_table;
|
| -
|
| - } else if (profile->color_space == GRAY_SIGNATURE) {
|
| -
|
| - profile->grayTRC = read_tag_curveType(src, index, TAG_kTRC);
|
| - if (!profile->grayTRC)
|
| - goto invalid_tag_table;
|
| -
|
| - } else {
|
| - goto invalid_tag_table;
|
| - }
|
| - } else if (0 && profile->class == OUTPUT_DEVICE_PROFILE) {
|
| - profile->A2B0 = read_tag_lutType(src, index, TAG_A2B0);
|
| - } else {
|
| - goto invalid_tag_table;
|
| - }
|
| -
|
| - if (!src->valid)
|
| - goto invalid_tag_table;
|
| -
|
| - free(index.tags);
|
| -
|
| - return profile;
|
| -
|
| -invalid_tag_table:
|
| - free(index.tags);
|
| -invalid_profile:
|
| - qcms_profile_fini(profile);
|
| - return INVALID_PROFILE;
|
| -}
|
| -
|
| -qcms_intent qcms_profile_get_rendering_intent(qcms_profile *profile)
|
| -{
|
| - return profile->rendering_intent;
|
| -}
|
| -
|
| -icColorSpaceSignature
|
| -qcms_profile_get_color_space(qcms_profile *profile)
|
| -{
|
| - return profile->color_space;
|
| -}
|
| -
|
| -void qcms_profile_release(qcms_profile *profile)
|
| -{
|
| - if (profile->output_table_r)
|
| - precache_release(profile->output_table_r);
|
| - if (profile->output_table_g)
|
| - precache_release(profile->output_table_g);
|
| - if (profile->output_table_b)
|
| - precache_release(profile->output_table_b);
|
| -
|
| - qcms_profile_fini(profile);
|
| -}
|
| -
|
| -#include <stdio.h>
|
| -qcms_profile* qcms_profile_from_file(FILE *file)
|
| -{
|
| - uint32_t length, remaining_length;
|
| - qcms_profile *profile;
|
| - size_t read_length;
|
| - be32 length_be;
|
| - void *data;
|
| -
|
| - fread(&length_be, sizeof(length), 1, file);
|
| - length = be32_to_cpu(length_be);
|
| - if (length > MAX_PROFILE_SIZE)
|
| - return BAD_VALUE_PROFILE;
|
| -
|
| - /* allocate room for the entire profile */
|
| - data = malloc(length);
|
| - if (!data)
|
| - return NO_MEM_PROFILE;
|
| -
|
| - /* copy in length to the front so that the buffer will contain the entire profile */
|
| - *((be32*)data) = length_be;
|
| - remaining_length = length - sizeof(length_be);
|
| -
|
| - /* read the rest profile */
|
| - read_length = fread((unsigned char*)data + sizeof(length_be), 1, remaining_length, file);
|
| - if (read_length != remaining_length) {
|
| - free(data);
|
| - return INVALID_PROFILE;
|
| - }
|
| -
|
| - profile = qcms_profile_from_memory(data, length);
|
| - free(data);
|
| - return profile;
|
| -}
|
| -
|
| -qcms_profile* qcms_profile_from_path(const char *path)
|
| -{
|
| - qcms_profile *profile = NULL;
|
| - FILE *file = fopen(path, "rb");
|
| - if (file) {
|
| - profile = qcms_profile_from_file(file);
|
| - fclose(file);
|
| - }
|
| - return profile;
|
| -}
|
|
|