From 04b0b0caf46f9b0f408b7c4d2774f96335c487a6 Mon Sep 17 00:00:00 2001 From: Přemysl Eric Janouch Date: Sat, 27 Jan 2024 23:43:06 +0100 Subject: WIP: Thread-safe colour management --- fiv-io-profile.c | 443 ------------------------------------------------------- 1 file changed, 443 deletions(-) delete mode 100644 fiv-io-profile.c (limited to 'fiv-io-profile.c') diff --git a/fiv-io-profile.c b/fiv-io-profile.c deleted file mode 100644 index 387b201..0000000 --- a/fiv-io-profile.c +++ /dev/null @@ -1,443 +0,0 @@ -// -// fiv-profile.c: colour management -// -// Copyright (c) 2024, Přemysl Eric Janouch -// -// Permission to use, copy, modify, and/or distribute this software for any -// purpose with or without fee is hereby granted. -// -// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES -// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF -// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY -// SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES -// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION -// OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN -// CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. -// - -#include "config.h" - -#include -#include - -#include "fiv-io.h" - -// Colour management must be handled before RGB conversions. -#ifdef HAVE_LCMS2 -#include -#endif // HAVE_LCMS2 -#ifdef HAVE_LCMS2_FAST_FLOAT -#include -#endif // HAVE_LCMS2_FAST_FLOAT - -// --- Contexts ---------------------------------------------------------------- - -struct _FivIoCmm { - GObject parent_instance; -#ifdef HAVE_LCMS2 - cmsContext context; - - // https://github.com/mm2/Little-CMS/issues/430 - gboolean broken_premul; -#endif -}; - -G_DEFINE_TYPE(FivIoCmm, fiv_io_cmm, G_TYPE_OBJECT) - -static void -fiv_io_cmm_finalize(GObject *gobject) -{ - FivIoCmm *self = FIV_IO_CMM(gobject); -#ifdef HAVE_LCMS2 - cmsDeleteContext(self->context); -#endif - - G_OBJECT_CLASS(fiv_io_cmm_parent_class)->finalize(gobject); -} - -static void -fiv_io_cmm_class_init(FivIoCmmClass *klass) -{ - GObjectClass *object_class = G_OBJECT_CLASS(klass); - object_class->finalize = fiv_io_cmm_finalize; -} - -static void -fiv_io_cmm_init(FivIoCmm *self) -{ - (void) self; - -#ifdef HAVE_LCMS2 - self->context = cmsCreateContext(NULL, self); -#endif -#ifdef HAVE_LCMS2_FAST_FLOAT - if (cmsPluginTHR(self->context, cmsFastFloatExtensions())) - self->broken_premul = LCMS_VERSION <= 2160; -#endif // HAVE_LCMS2_FAST_FLOAT -} - -// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -FivIoCmm * -fiv_io_cmm_get_default() -{ - static gsize initialization_value = 0; - static FivIoCmm *default_ = NULL; - if (g_once_init_enter(&initialization_value)) { - gsize setup_value = 1; - default_ = g_object_new(FIV_TYPE_IO_CMM, NULL); - g_once_init_leave(&initialization_value, setup_value); - } - return default_; -} - -FivIoProfile * -fiv_io_cmm_get_profile(FivIoCmm *self, const void *data, size_t len) -{ - if (!self) - self = fiv_io_cmm_get_default(); - -#ifdef HAVE_LCMS2 - return cmsOpenProfileFromMemTHR(self->context, data, len); -#else - (void) data; - (void) len; - return NULL; -#endif -} - -FivIoProfile * -fiv_io_cmm_get_profile_sRGB(FivIoCmm *self) -{ - if (!self) - self = fiv_io_cmm_get_default(); - -#ifdef HAVE_LCMS2 - return cmsCreate_sRGBProfileTHR(self->context); -#else - return NULL; -#endif -} - -FivIoProfile * -fiv_io_cmm_get_profile_parametric(FivIoCmm *self, - double gamma, double whitepoint[2], double primaries[6]) -{ - if (!self) - self = fiv_io_cmm_get_default(); - -#ifdef HAVE_LCMS2 - const cmsCIExyY cmsWP = {whitepoint[0], whitepoint[1], 1.0}; - const cmsCIExyYTRIPLE cmsP = { - {primaries[0], primaries[1], 1.0}, - {primaries[2], primaries[3], 1.0}, - {primaries[4], primaries[5], 1.0}, - }; - - cmsToneCurve *curve = cmsBuildGamma(self->context, gamma); - if (!curve) - return NULL; - - cmsHPROFILE profile = cmsCreateRGBProfileTHR(self->context, - &cmsWP, &cmsP, (cmsToneCurve *[3]){curve, curve, curve}); - cmsFreeToneCurve(curve); - return profile; -#else - (void) gamma; - (void) whitepoint; - (void) primaries; - return NULL; -#endif -} - -FivIoProfile * -fiv_io_cmm_get_profile_sRGB_gamma(FivIoCmm *self, double gamma) -{ - return fiv_io_cmm_get_profile_parametric(self, gamma, - (double[2]){0.3127, 0.3290}, - (double[6]){0.6400, 0.3300, 0.3000, 0.6000, 0.1500, 0.0600}); -} - -FivIoProfile * -fiv_io_cmm_get_profile_from_bytes(FivIoCmm *self, GBytes *bytes) -{ - gsize len = 0; - gconstpointer p = g_bytes_get_data(bytes, &len); - return fiv_io_cmm_get_profile(self, p, len); -} - -// --- Profiles ---------------------------------------------------------------- - -GBytes * -fiv_io_profile_to_bytes(FivIoProfile *profile) -{ -#ifdef HAVE_LCMS2 - cmsUInt32Number len = 0; - (void) cmsSaveProfileToMem(profile, NULL, &len); - gchar *data = g_malloc0(len); - if (!cmsSaveProfileToMem(profile, data, &len)) { - g_free(data); - return NULL; - } - return g_bytes_new_take(data, len); -#else - (void) profile; - return NULL; -#endif -} - -void -fiv_io_profile_free(FivIoProfile *self) -{ -#ifdef HAVE_LCMS2 - cmsCloseProfile(self); -#else - (void) self; -#endif -} - -// --- Image loading ----------------------------------------------------------- - -// TODO(p): In general, try to use CAIRO_FORMAT_RGB30 or CAIRO_FORMAT_RGBA128F. -#ifndef HAVE_LCMS2 -#define FIV_IO_PROFILE_ARGB32 0 -#define FIV_IO_PROFILE_4X16LE 0 -#else -#define FIV_IO_PROFILE_ARGB32 \ - (G_BYTE_ORDER == G_LITTLE_ENDIAN ? TYPE_BGRA_8 : TYPE_ARGB_8) -#define FIV_IO_PROFILE_4X16LE \ - (G_BYTE_ORDER == G_LITTLE_ENDIAN ? TYPE_BGRA_16 : TYPE_BGRA_16_SE) -#endif - -// CAIRO_STRIDE_ALIGNMENT is 4 bytes, so there will be no padding with -// ARGB/BGRA/XRGB/BGRX. -static void -trivial_cmyk_to_host_byte_order_argb(unsigned char *p, int len) -{ - // This CMYK handling has been seen in gdk-pixbuf/JPEG, GIMP/JPEG, skcms. - // It will typically produce horribly oversaturated results. - // Assume that all YCCK/CMYK JPEG files use inverted CMYK, as Photoshop - // does, see https://bugzilla.gnome.org/show_bug.cgi?id=618096 - while (len--) { - int c = p[0], m = p[1], y = p[2], k = p[3]; -#if G_BYTE_ORDER == G_LITTLE_ENDIAN - p[0] = k * y / 255; - p[1] = k * m / 255; - p[2] = k * c / 255; - p[3] = 255; -#else - p[3] = k * y / 255; - p[2] = k * m / 255; - p[1] = k * c / 255; - p[0] = 255; -#endif - p += 4; - } -} - -void -fiv_io_cmm_cmyk(FivIoCmm *self, - FivIoImage *image, FivIoProfile *source, FivIoProfile *target) -{ - if (!self) - self = fiv_io_cmm_get_default(); - -#ifndef HAVE_LCMS2 - (void) self; - (void) source; - (void) target; -#else - cmsHTRANSFORM transform = NULL; - if (source && target) { - transform = cmsCreateTransformTHR(self->context, - source, TYPE_CMYK_8_REV, target, - FIV_IO_PROFILE_ARGB32, INTENT_PERCEPTUAL, 0); - } - if (transform) { - cmsDoTransform( - transform, image->data, image->data, image->width * image->height); - cmsDeleteTransform(transform); - return; - } -#endif - trivial_cmyk_to_host_byte_order_argb( - image->data, image->width * image->height); -} - -static bool -fiv_io_cmm_rgb_direct(FivIoCmm *self, unsigned char *data, int w, int h, - FivIoProfile *source, FivIoProfile *target, - uint32_t source_format, uint32_t target_format) -{ - if (!self) - self = fiv_io_cmm_get_default(); - -#ifndef HAVE_LCMS2 - (void) self; - (void) data; - (void) w; - (void) h; - (void) source; - (void) source_format; - (void) target; - (void) target_format; - return false; -#else - // TODO(p): We should make this optional. - cmsHPROFILE src_fallback = NULL; - if (target && !source) - source = src_fallback = cmsCreate_sRGBProfileTHR(self->context); - - cmsHTRANSFORM transform = NULL; - if (source && target) { - transform = cmsCreateTransformTHR(self->context, - source, source_format, target, target_format, INTENT_PERCEPTUAL, 0); - } - if (transform) { - cmsDoTransform(transform, data, data, w * h); - cmsDeleteTransform(transform); - } - if (src_fallback) - cmsCloseProfile(src_fallback); - return transform != NULL; -#endif -} - -static void -fiv_io_cmm_xrgb32(FivIoCmm *self, - FivIoImage *image, FivIoProfile *source, FivIoProfile *target) -{ - fiv_io_cmm_rgb_direct(self, image->data, image->width, image->height, - source, target, FIV_IO_PROFILE_ARGB32, FIV_IO_PROFILE_ARGB32); -} - -void -fiv_io_cmm_4x16le_direct(FivIoCmm *self, unsigned char *data, - int w, int h, FivIoProfile *source, FivIoProfile *target) -{ - fiv_io_cmm_rgb_direct(self, data, w, h, source, target, - FIV_IO_PROFILE_4X16LE, FIV_IO_PROFILE_4X16LE); -} - -// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -void -fiv_io_cmm_page(FivIoCmm *self, FivIoImage *page, FivIoProfile *target, - void (*frame_cb) (FivIoCmm *, FivIoImage *, FivIoProfile *, FivIoProfile *)) -{ - FivIoProfile *source = NULL; - if (page->icc) - source = fiv_io_cmm_get_profile_from_bytes(self, page->icc); - - // TODO(p): All animations need to be composited in a linear colour space. - for (FivIoImage *frame = page; frame != NULL; frame = frame->frame_next) - frame_cb(self, frame, source, target); - - if (source) - fiv_io_profile_free(source); -} - -// From libwebp, verified to exactly match [x * a / 255]. -#define PREMULTIPLY8(a, x) (((uint32_t) (x) * (uint32_t) (a) * 32897U) >> 23) - -void -fiv_io_premultiply_argb32(FivIoImage *image) -{ - if (image->format != CAIRO_FORMAT_ARGB32) - return; - - for (uint32_t y = 0; y < image->height; y++) { - uint32_t *dstp = (uint32_t *) (image->data + image->stride * y); - for (uint32_t x = 0; x < image->width; x++) { - uint32_t argb = dstp[x], a = argb >> 24; - dstp[x] = a << 24 | - PREMULTIPLY8(a, 0xFF & (argb >> 16)) << 16 | - PREMULTIPLY8(a, 0xFF & (argb >> 8)) << 8 | - PREMULTIPLY8(a, 0xFF & argb); - } - } -} - -#if defined HAVE_LCMS2 && LCMS_VERSION >= 2130 - -#define FIV_IO_PROFILE_ARGB32_PREMUL \ - (G_BYTE_ORDER == G_LITTLE_ENDIAN ? TYPE_BGRA_8_PREMUL : TYPE_ARGB_8_PREMUL) - -static void -fiv_io_cmm_argb32(FivIoCmm *self, FivIoImage *image, - FivIoProfile *source, FivIoProfile *target) -{ - g_return_if_fail(image->format == CAIRO_FORMAT_ARGB32); - - // TODO: With self->broken_premul, - // this probably also needs to be wrapped in un-premultiplication. - fiv_io_cmm_rgb_direct(self, image->data, image->width, image->height, - source, target, - FIV_IO_PROFILE_ARGB32_PREMUL, FIV_IO_PROFILE_ARGB32_PREMUL); -} - -void -fiv_io_cmm_argb32_premultiply(FivIoCmm *self, - FivIoImage *image, FivIoProfile *source, FivIoProfile *target) -{ - if (!self) - self = fiv_io_cmm_get_default(); - - if (image->format != CAIRO_FORMAT_ARGB32) { - fiv_io_cmm_xrgb32(self, image, source, target); - } else if (self->broken_premul) { - fiv_io_cmm_xrgb32(self, image, source, target); - fiv_io_premultiply_argb32(image); - } else if (!fiv_io_cmm_rgb_direct(self, image->data, - image->width, image->height, source, target, - FIV_IO_PROFILE_ARGB32, FIV_IO_PROFILE_ARGB32_PREMUL)) { - g_debug("failed to create a premultiplying transform"); - fiv_io_premultiply_argb32(image); - } -} - -#else // ! HAVE_LCMS2 || LCMS_VERSION < 2130 - -// TODO(p): Unpremultiply, transform, repremultiply. Or require lcms2>=2.13. -#define fiv_io_cmm_argb32(self, image, source, target) - -void -fiv_io_cmm_argb32_premultiply(FivIoCmm *self, - FivIoImage *image, FivIoProfile *source, FivIoProfile *target) -{ - fiv_io_cmm_xrgb32(self, image, source, target); - fiv_io_premultiply_argb32(image); -} - -#endif // ! HAVE_LCMS2 || LCMS_VERSION < 2130 - -// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -void -fiv_io_cmm_any(FivIoCmm *self, - FivIoImage *image, FivIoProfile *source, FivIoProfile *target) -{ - // TODO(p): Ensure we do colour management early enough, so that - // no avoidable increase of quantization error occurs beforehands, - // and also for correct alpha compositing. - switch (image->format) { - break; case CAIRO_FORMAT_RGB24: - fiv_io_cmm_xrgb32(self, image, source, target); - break; case CAIRO_FORMAT_ARGB32: - fiv_io_cmm_argb32(self, image, source, target); - break; default: - g_debug("CM attempted on an unsupported surface format"); - } -} - -// TODO(p): Offer better integration, upgrade the bit depth if appropriate. -FivIoImage * -fiv_io_cmm_finish(FivIoCmm *self, FivIoImage *image, FivIoProfile *target) -{ - if (!target) - return image; - - for (FivIoImage *page = image; page != NULL; page = page->page_next) - fiv_io_cmm_page(self, page, target, fiv_io_cmm_any); - return image; -} -- cgit v1.2.3-70-g09d2