581 lines
14 KiB
Plaintext
581 lines
14 KiB
Plaintext
|
# PIKA - Photo and Image Kooker Application
|
||
|
|
# Copyright (C) 1995 Spencer Kimball and Peter Mattis
|
||
|
|
|
||
|
|
# 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 <https://www.gnu.org/licenses/>.
|
||
|
|
|
||
|
|
# "Perlized" from C source by Manish Singh <yosh@gimp.org>
|
||
|
|
|
||
|
|
sub image_get_color_profile {
|
||
|
|
$blurb = "Returns the image's color profile";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure returns the image's color profile, or NULL if the image
|
||
|
|
has no color profile assigned.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&mitch_pdb_misc('2015', '2.10');
|
||
|
|
|
||
|
|
$lib_private = 1;
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'profile_data', type => 'bytes',
|
||
|
|
desc => "The image's serialized color profile." }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_image_get_color_profile (image);
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
const guint8 *data;
|
||
|
|
gsize length;
|
||
|
|
|
||
|
|
data = pika_color_profile_get_icc_profile (profile, &length);
|
||
|
|
|
||
|
|
profile_data = g_bytes_new (data, length);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_get_effective_color_profile {
|
||
|
|
$blurb = "Returns the color profile that is used for the image";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure returns the color profile that is actually used for
|
||
|
|
this image, which is the profile returned by
|
||
|
|
pika_image_get_color_profile() if the image has a profile assigned, or
|
||
|
|
a generated default RGB or grayscale profile, according to the image's type.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&mitch_pdb_misc('2015', '2.10');
|
||
|
|
|
||
|
|
$lib_private = 1;
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'profile_data', type => 'bytes',
|
||
|
|
desc => "The image's serialized color profile." }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_color_managed_get_color_profile (PIKA_COLOR_MANAGED (image));
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
const guint8 *data;
|
||
|
|
gsize length;
|
||
|
|
|
||
|
|
data = pika_color_profile_get_icc_profile (profile, &length);
|
||
|
|
|
||
|
|
profile_data = g_bytes_new (data, length);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_set_color_profile {
|
||
|
|
$blurb = "Sets the image's color profile";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure sets the image's color profile, or unsets it if NULL is
|
||
|
|
passed as 'color_profile'. This procedure does no color conversion.
|
||
|
|
However, it will change the pixel format of all layers to contain the
|
||
|
|
babl space matching the profile. You must call this procedure before
|
||
|
|
adding layers to the image.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&mitch_pdb_misc('2015', '2.10');
|
||
|
|
|
||
|
|
$lib_private = 1;
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'color_profile', type => 'bytes',
|
||
|
|
desc => 'The new serialized color profile' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
if (color_profile)
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_color_profile_new_from_icc_profile (g_bytes_get_data (color_profile, NULL),
|
||
|
|
g_bytes_get_size (color_profile),
|
||
|
|
error);
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
success = pika_image_assign_color_profile (image, profile,
|
||
|
|
progress, error);
|
||
|
|
g_object_unref (profile);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
success = pika_image_assign_color_profile (image, NULL,
|
||
|
|
progress, error);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_set_color_profile_from_file {
|
||
|
|
$blurb = "Sets the image's color profile from an ICC file";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure sets the image's color profile from a file containing
|
||
|
|
an ICC profile, or unsets it if NULL is passed as 'file'. This
|
||
|
|
procedure does no color conversion. However, it will change the pixel
|
||
|
|
format of all layers to contain the babl space matching the
|
||
|
|
profile. You must call this procedure before adding layers to the
|
||
|
|
image.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&mitch_pdb_misc('2015', '2.10');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file containing the new color profile' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
if (file)
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_color_profile_new_from_file (file, error);
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
success = pika_image_assign_color_profile (image, profile,
|
||
|
|
progress, error);
|
||
|
|
g_object_unref (profile);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
success = pika_image_assign_color_profile (image, NULL,
|
||
|
|
progress, error);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_get_simulation_profile {
|
||
|
|
$blurb = "Returns the image's simulation color profile";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure returns the image's simulation color profile, or NULL if the image
|
||
|
|
has no simulation color profile assigned.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&alxsa_pdb_misc('2022', '3.0');
|
||
|
|
|
||
|
|
$lib_private = 1;
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'profile_data', type => 'bytes',
|
||
|
|
desc => "The image's serialized simulation color profile." }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_image_get_simulation_profile (image);
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
const guint8 *data;
|
||
|
|
gsize length;
|
||
|
|
|
||
|
|
data = pika_color_profile_get_icc_profile (profile, &length);
|
||
|
|
|
||
|
|
profile_data = g_bytes_new (data, length);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_set_simulation_profile {
|
||
|
|
$blurb = "Sets the image's simulation color profile";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure sets the image's simulation color profile, or unsets it if NULL is
|
||
|
|
passed as 'color_profile'. This procedure does no color conversion.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&alxsa_pdb_misc('2022', '3.0');
|
||
|
|
|
||
|
|
$lib_private = 1;
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'color_profile', type => 'bytes',
|
||
|
|
desc => 'The new serialized simulation color profile'}
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
if (color_profile)
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_color_profile_new_from_icc_profile (g_bytes_get_data (color_profile, NULL),
|
||
|
|
g_bytes_get_size (color_profile),
|
||
|
|
error);
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
pika_image_set_simulation_profile (image, profile);
|
||
|
|
g_object_unref (profile);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
pika_image_set_simulation_profile (image, NULL);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_set_simulation_profile_from_file {
|
||
|
|
$blurb = "Sets the image's simulation color profile from an ICC file";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure sets the image's simulation color profile from a file containing
|
||
|
|
an ICC profile, or unsets it if NULL is passed as 'file'. This
|
||
|
|
procedure does no color conversion.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&alxsa_pdb_misc('2022', '3.0');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file containing the new simulation color profile' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
if (file)
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_color_profile_new_from_file (file, error);
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
pika_image_set_simulation_profile (image, profile);
|
||
|
|
g_object_unref (profile);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
pika_image_set_simulation_profile (image, NULL);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_get_simulation_intent {
|
||
|
|
$blurb = "Returns the image's simulation rendering intent";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure returns the image's simulation rendering intent.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&alxsa_pdb_misc('2022', '3.0');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'intent', type => 'enum PikaColorRenderingIntent',
|
||
|
|
desc => "The image's simulation rendering intent." }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
intent = pika_image_get_simulation_intent (image);
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_set_simulation_intent {
|
||
|
|
$blurb = "Sets the image's simulation rendering intent";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure sets the image's simulation rendering intent.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&alxsa_pdb_misc('2022', '3.0');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'intent', type => 'enum PikaColorRenderingIntent',
|
||
|
|
desc => 'A PikaColorRenderingIntent' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
pika_image_set_simulation_intent (image, intent);
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_get_simulation_bpc {
|
||
|
|
$blurb = "Returns whether the image has Black Point Compensation enabled for its simulation";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure returns whether the image has Black Point Compensation enabled for its simulation
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&alxsa_pdb_misc('2022', '3.0');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'bpc', type => 'boolean',
|
||
|
|
desc => "The Black Point Compensation status." }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
bpc = pika_image_get_simulation_bpc (image);
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_set_simulation_bpc {
|
||
|
|
$blurb = "Sets whether the image has Black Point Compensation enabled for its simulation";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure whether the image has Black Point Compensation enabled for its simulation
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&alxsa_pdb_misc('2022', '3.0');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'bpc', type => 'boolean',
|
||
|
|
desc => 'The Black Point Compensation status.' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
pika_image_set_simulation_bpc (image, bpc);
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_convert_color_profile {
|
||
|
|
$blurb = "Convert the image's layers to a color profile";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure converts from the image's color profile (or the default
|
||
|
|
RGB or grayscale profile if none is set) to the given color profile. Only
|
||
|
|
RGB and grayscale color profiles are accepted, according to the image's
|
||
|
|
type.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&mitch_pdb_misc('2015', '2.10');
|
||
|
|
|
||
|
|
$lib_private = 1;
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'color_profile', type => 'bytes',
|
||
|
|
desc => 'The serialized color profile' },
|
||
|
|
{ name => 'intent', type => 'enum PikaColorRenderingIntent',
|
||
|
|
desc => 'Rendering intent' },
|
||
|
|
{ name => 'bpc', type => 'boolean',
|
||
|
|
desc => 'Black point compensation' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
if (color_profile)
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_color_profile_new_from_icc_profile (g_bytes_get_data (color_profile, NULL),
|
||
|
|
g_bytes_get_size (color_profile),
|
||
|
|
error);
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
success = pika_image_convert_color_profile (image, profile,
|
||
|
|
intent, bpc,
|
||
|
|
progress, error);
|
||
|
|
g_object_unref (profile);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub image_convert_color_profile_from_file {
|
||
|
|
$blurb = "Convert the image's layers to a color profile";
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure converts from the image's color profile (or the default
|
||
|
|
RGB or grayscale profile if none is set) to an ICC profile specified by
|
||
|
|
'file'. Only RGB and grayscale color profiles are accepted, according to
|
||
|
|
the image's type.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&mitch_pdb_misc('2015', '2.10');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file containing the new color profile' },
|
||
|
|
{ name => 'intent', type => 'enum PikaColorRenderingIntent',
|
||
|
|
desc => 'Rendering intent' },
|
||
|
|
{ name => 'bpc', type => 'boolean',
|
||
|
|
desc => 'Black point compensation' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
if (file)
|
||
|
|
{
|
||
|
|
PikaColorProfile *profile;
|
||
|
|
|
||
|
|
profile = pika_color_profile_new_from_file (file, error);
|
||
|
|
|
||
|
|
if (profile)
|
||
|
|
{
|
||
|
|
success = pika_image_convert_color_profile (image, profile,
|
||
|
|
intent, bpc,
|
||
|
|
progress, error);
|
||
|
|
g_object_unref (profile);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
@headers = qw(<cairo.h>
|
||
|
|
"libpikacolor/pikacolor.h"
|
||
|
|
"core/pikaimage-color-profile.h"
|
||
|
|
"pika-intl.h");
|
||
|
|
|
||
|
|
@procs = qw(image_get_color_profile
|
||
|
|
image_get_effective_color_profile
|
||
|
|
image_set_color_profile
|
||
|
|
image_set_color_profile_from_file
|
||
|
|
image_get_simulation_profile
|
||
|
|
image_set_simulation_profile
|
||
|
|
image_set_simulation_profile_from_file
|
||
|
|
image_get_simulation_intent
|
||
|
|
image_set_simulation_intent
|
||
|
|
image_get_simulation_bpc
|
||
|
|
image_set_simulation_bpc
|
||
|
|
image_convert_color_profile
|
||
|
|
image_convert_color_profile_from_file);
|
||
|
|
|
||
|
|
%exports = (app => [@procs], lib => [@procs]);
|
||
|
|
|
||
|
|
$desc = 'Image Color Profile';
|
||
|
|
$doc_title = 'pikaimagecolorprofile';
|
||
|
|
$doc_short_desc = 'Operations on an image\'s color profile.';
|
||
|
|
$doc_long_desc = 'Operations on an image\'s color profile.';
|
||
|
|
|
||
|
|
1;
|
