gimp/app/core/gimpimage-profile.c

510 lines
16 KiB
C

/* GIMP - The GNU Image Manipulation Program
* Copyright (C) 1995 Spencer Kimball and Peter Mattis
*
* gimpimage-profile.c
* Copyright (C) 2015 Michael Natterer <mitch@gimp.org>
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#include "config.h"
#include <string.h>
#include <lcms2.h>
#include <cairo.h>
#include <gdk-pixbuf/gdk-pixbuf.h>
#include <gegl.h>
#include "libgimpconfig/gimpconfig.h"
#include "libgimpcolor/gimpcolor.h"
#include "libgimpbase/gimpbase.h"
#include "core-types.h"
#include "config/gimpcoreconfig.h"
#include "gegl/gimp-babl.h"
#include "gimp.h"
#include "gimpdrawable.h"
#include "gimperror.h"
#include "gimpimage.h"
#include "gimpimage-colormap.h"
#include "gimpimage-profile.h"
#include "gimpimage-undo.h"
#include "gimpprogress.h"
#include "gimp-intl.h"
/* local function prototypes */
static void gimp_image_convert_profile_rgb (GimpImage *image,
GimpColorProfile src_profile,
GimpColorProfile dest_profile,
GimpColorRenderingIntent intent,
gboolean bpc,
GimpProgress *progress);
static void gimp_image_convert_profile_indexed (GimpImage *image,
GimpColorProfile src_profile,
GimpColorProfile dest_profile,
GimpColorRenderingIntent intent,
gboolean bpc,
GimpProgress *progress);
/* public functions */
gboolean
gimp_image_validate_icc_parasite (GimpImage *image,
const GimpParasite *icc_parasite,
GError **error)
{
g_return_val_if_fail (GIMP_IS_IMAGE (image), FALSE);
g_return_val_if_fail (icc_parasite != NULL, FALSE);
g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
if (strcmp (gimp_parasite_name (icc_parasite),
GIMP_ICC_PROFILE_PARASITE_NAME) != 0)
{
g_set_error_literal (error, GIMP_ERROR, GIMP_FAILED,
_("ICC profile validation failed: "
"Parasite's name is not 'icc-profile'"));
return FALSE;
}
if (gimp_parasite_flags (icc_parasite) != (GIMP_PARASITE_PERSISTENT |
GIMP_PARASITE_UNDOABLE))
{
g_set_error_literal (error, GIMP_ERROR, GIMP_FAILED,
_("ICC profile validation failed: "
"Parasite's flags are not (PERSISTENT | UNDOABLE)"));
return FALSE;
}
return gimp_image_validate_icc_profile (image,
gimp_parasite_data (icc_parasite),
gimp_parasite_data_size (icc_parasite),
error);
}
const GimpParasite *
gimp_image_get_icc_parasite (GimpImage *image)
{
g_return_val_if_fail (GIMP_IS_IMAGE (image), NULL);
return gimp_image_parasite_find (image, GIMP_ICC_PROFILE_PARASITE_NAME);
}
void
gimp_image_set_icc_parasite (GimpImage *image,
const GimpParasite *icc_parasite)
{
g_return_if_fail (GIMP_IS_IMAGE (image));
if (icc_parasite)
{
g_return_if_fail (gimp_image_validate_icc_parasite (image, icc_parasite,
NULL) == TRUE);
gimp_image_parasite_attach (image, icc_parasite);
}
else
{
gimp_image_parasite_detach (image, GIMP_ICC_PROFILE_PARASITE_NAME);
}
}
gboolean
gimp_image_validate_icc_profile (GimpImage *image,
const guint8 *data,
gsize length,
GError **error)
{
GimpColorProfile profile;
g_return_val_if_fail (GIMP_IS_IMAGE (image), FALSE);
g_return_val_if_fail (data != NULL, FALSE);
g_return_val_if_fail (length != 0, FALSE);
g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
profile = gimp_color_profile_open_from_data (data, length, error);
if (! profile)
{
g_prefix_error (error, _("ICC profile validation failed: "));
return FALSE;
}
if (! gimp_image_validate_color_profile (image, profile, error))
{
gimp_color_profile_close (profile);
return FALSE;
}
gimp_color_profile_close (profile);
return TRUE;
}
const guint8 *
gimp_image_get_icc_profile (GimpImage *image,
gsize *length)
{
const GimpParasite *parasite;
g_return_val_if_fail (GIMP_IS_IMAGE (image), FALSE);
parasite = gimp_image_parasite_find (image, GIMP_ICC_PROFILE_PARASITE_NAME);
if (parasite)
{
if (length)
*length = gimp_parasite_data_size (parasite);
return gimp_parasite_data (parasite);
}
if (length)
*length = 0;
return NULL;
}
gboolean
gimp_image_set_icc_profile (GimpImage *image,
const guint8 *data,
gsize length,
GError **error)
{
GimpParasite *parasite = NULL;
g_return_val_if_fail (GIMP_IS_IMAGE (image), FALSE);
g_return_val_if_fail (data == NULL || length != 0, FALSE);
g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
if (data)
{
parasite = gimp_parasite_new (GIMP_ICC_PROFILE_PARASITE_NAME,
GIMP_PARASITE_PERSISTENT |
GIMP_PARASITE_UNDOABLE,
length, data);
if (! gimp_image_validate_icc_parasite (image, parasite, error))
{
gimp_parasite_free (parasite);
return FALSE;
}
}
gimp_image_set_icc_parasite (image, parasite);
if (parasite)
gimp_parasite_free (parasite);
return TRUE;
}
gboolean
gimp_image_validate_color_profile (GimpImage *image,
GimpColorProfile profile,
GError **error)
{
g_return_val_if_fail (GIMP_IS_IMAGE (image), FALSE);
g_return_val_if_fail (profile != NULL, FALSE);
g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
if (gimp_image_get_base_type (image) == GIMP_GRAY)
{
g_set_error_literal (error, GIMP_ERROR, GIMP_FAILED,
_("ICC profile validation failed: "
"Cannot attach a color profile to a GRAY image"));
return FALSE;
}
if (! gimp_color_profile_is_rgb (profile))
{
g_set_error_literal (error, GIMP_ERROR, GIMP_FAILED,
_("ICC profile validation failed: "
"Color profile is not for RGB color space"));
return FALSE;
}
return TRUE;
}
GimpColorProfile
gimp_image_get_color_profile (GimpImage *image)
{
const GimpParasite *parasite;
g_return_val_if_fail (GIMP_IS_IMAGE (image), NULL);
parasite = gimp_image_get_icc_parasite (image);
if (parasite)
return gimp_color_profile_open_from_data (gimp_parasite_data (parasite),
gimp_parasite_data_size (parasite),
NULL);
return NULL;
}
gboolean
gimp_image_set_color_profile (GimpImage *image,
GimpColorProfile profile,
GError **error)
{
guint8 *data = NULL;
gsize length = 0;
g_return_val_if_fail (GIMP_IS_IMAGE (image), FALSE);
g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
if (profile)
{
data = gimp_color_profile_save_to_data (profile, &length, error);
if (! data)
return FALSE;
}
if (! gimp_image_set_icc_profile (image, data, length, error))
{
g_free (data);
return FALSE;
}
g_free (data);
return TRUE;
}
gboolean
gimp_image_convert_color_profile (GimpImage *image,
GimpColorProfile dest_profile,
GimpColorRenderingIntent intent,
gboolean bpc,
GimpProgress *progress,
GError **error)
{
GimpColorProfile src_profile;
GimpColorProfile builtin_profile;
const Babl *layer_format;
gchar *src_label;
gchar *dest_label;
g_return_val_if_fail (GIMP_IS_IMAGE (image), FALSE);
g_return_val_if_fail (dest_profile != NULL, FALSE);
g_return_val_if_fail (progress == NULL || GIMP_IS_PROGRESS (progress), FALSE);
g_return_val_if_fail (error == NULL || *error == NULL, FALSE);
if (! gimp_image_validate_color_profile (image, dest_profile, error))
return FALSE;
src_profile = gimp_color_managed_get_color_profile (GIMP_COLOR_MANAGED (image));
if (gimp_color_profile_is_equal (src_profile, dest_profile))
{
gimp_color_profile_close (src_profile);
return TRUE;
}
src_label = gimp_color_profile_get_label (src_profile);
dest_label = gimp_color_profile_get_label (dest_profile);
if (progress)
gimp_progress_start (progress, FALSE,
_("Converting from '%s' to '%s'"),
src_label, dest_label);
g_free (dest_label);
g_free (src_label);
gimp_image_undo_group_start (image, GIMP_UNDO_GROUP_IMAGE_CONVERT,
_("Color profile conversion"));
layer_format = gimp_image_get_layer_format (image, FALSE);
if (gimp_babl_format_get_linear (layer_format))
builtin_profile = gimp_color_profile_new_linear_rgb ();
else
builtin_profile = gimp_color_profile_new_srgb ();
if (gimp_color_profile_is_equal (dest_profile, builtin_profile))
{
/* don't tag the image with the built-in profile */
gimp_image_set_color_profile (image, NULL, NULL);
}
else
{
gimp_image_set_color_profile (image, dest_profile, NULL);
}
gimp_color_profile_close (builtin_profile);
/* omg... */
gimp_image_parasite_detach (image, "icc-profile-name");
switch (gimp_image_get_base_type (image))
{
case GIMP_RGB:
gimp_image_convert_profile_rgb (image,
src_profile, dest_profile,
intent, bpc,
progress);
break;
case GIMP_GRAY:
break;
case GIMP_INDEXED:
gimp_image_convert_profile_indexed (image,
src_profile, dest_profile,
intent, bpc,
progress);
break;
}
gimp_image_undo_group_end (image);
if (progress)
gimp_progress_end (progress);
gimp_color_profile_close (src_profile);
return TRUE;
}
/* private functions */
static void
gimp_image_convert_profile_rgb (GimpImage *image,
GimpColorProfile src_profile,
GimpColorProfile dest_profile,
GimpColorRenderingIntent intent,
gboolean bpc,
GimpProgress *progress)
{
GList *layers;
GList *list;
gint n_drawables;
gint nth_drawable;
layers = gimp_image_get_layer_list (image);
n_drawables = g_list_length (layers);
for (list = layers, nth_drawable = 0;
list;
list = g_list_next (list), nth_drawable++)
{
GimpDrawable *drawable = list->data;
const Babl *iter_format;
cmsUInt32Number lcms_format;
cmsUInt32Number flags;
cmsHTRANSFORM transform;
if (gimp_viewable_get_children (GIMP_VIEWABLE (drawable)))
continue;
iter_format =
gimp_color_profile_get_format (gimp_drawable_get_format (drawable),
&lcms_format);
flags = cmsFLAGS_NOOPTIMIZE;
if (bpc)
flags |= cmsFLAGS_BLACKPOINTCOMPENSATION;
transform = cmsCreateTransform (src_profile, lcms_format,
dest_profile, lcms_format,
intent, flags);
if (transform)
{
GeglBuffer *buffer;
GeglBufferIterator *iter;
buffer = gimp_drawable_get_buffer (drawable);
gimp_drawable_push_undo (drawable, NULL, NULL,
0, 0,
gegl_buffer_get_width (buffer),
gegl_buffer_get_height (buffer));
iter = gegl_buffer_iterator_new (buffer, NULL, 0,
iter_format,
GEGL_ACCESS_READWRITE,
GEGL_ABYSS_NONE);
while (gegl_buffer_iterator_next (iter))
{
cmsDoTransform (transform,
iter->data[0], iter->data[0], iter->length);
}
gimp_drawable_update (drawable, 0, 0,
gegl_buffer_get_width (buffer),
gegl_buffer_get_height (buffer));
cmsDeleteTransform (transform);
}
if (progress)
gimp_progress_set_value (progress,
(gdouble) nth_drawable / (gdouble) n_drawables);
}
g_list_free (layers);
}
static void
gimp_image_convert_profile_indexed (GimpImage *image,
GimpColorProfile src_profile,
GimpColorProfile dest_profile,
GimpColorRenderingIntent intent,
gboolean bpc,
GimpProgress *progress)
{
GimpColorTransform transform;
guchar *cmap;
gint n_colors;
n_colors = gimp_image_get_colormap_size (image);
cmap = g_memdup (gimp_image_get_colormap (image), n_colors * 3);
transform = cmsCreateTransform (src_profile, TYPE_RGB_8,
dest_profile, TYPE_RGB_8,
intent,
cmsFLAGS_NOOPTIMIZE |
(bpc ? cmsFLAGS_BLACKPOINTCOMPENSATION : 0));
if (transform)
{
cmsDoTransform (transform, cmap, cmap, n_colors);
cmsDeleteTransform (transform);
gimp_image_set_colormap (image, cmap, n_colors, TRUE);
}
else
{
g_warning ("cmsCreateTransform() failed!");
}
g_free (cmap);
}