950 lines
32 KiB
Plaintext
950 lines
32 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 drawable_brightness_contrast {
|
|
$blurb = 'Modify brightness/contrast in the specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
This procedures allows the brightness and contrast of the specified drawable to
|
|
be modified. Both 'brightness' and 'contrast' parameters are defined between
|
|
-1.0 and 1.0.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$date = '1997';
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'brightness', type => '-1.0 <= float <= 1.0',
|
|
desc => 'Brightness adjustment' },
|
|
{ name => 'contrast', type => '-1.0 <= float <= 1.0',
|
|
desc => 'Contrast adjustment' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/pikabrightnesscontrastconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
{
|
|
GObject *config = g_object_new (PIKA_TYPE_BRIGHTNESS_CONTRAST_CONFIG,
|
|
"brightness", brightness,
|
|
"contrast", contrast,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Brightness-Contrast"),
|
|
"pika:brightness-contrast",
|
|
config);
|
|
g_object_unref (config);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_color_balance {
|
|
$blurb = 'Modify the color balance of the specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
Modify the color balance of the specified drawable. There are three axis which
|
|
can be modified: cyan-red, magenta-green, and yellow-blue. Negative values
|
|
increase the amount of the former, positive values increase the amount of the
|
|
latter. Color balance can be controlled with the 'transfer_mode' setting, which
|
|
allows shadows, mid-tones, and highlights in an image to be affected
|
|
differently. The 'preserve-lum' parameter, if TRUE, ensures that the
|
|
luminosity of each pixel remains fixed.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$date = '1997';
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'transfer_mode', type => 'enum PikaTransferMode',
|
|
desc => 'Transfer mode' },
|
|
{ name => 'preserve_lum', type => 'boolean',
|
|
desc => 'Preserve luminosity values at each pixel' },
|
|
{ name => 'cyan_red', type => '-100 <= float <= 100',
|
|
desc => 'Cyan-Red color balance' },
|
|
{ name => 'magenta_green', type => '-100 <= float <= 100',
|
|
desc => 'Magenta-Green color balance' },
|
|
{ name => 'yellow_blue', type => '-100 <= float <= 100',
|
|
desc => 'Yellow-Blue color balance' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/pikacolorbalanceconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
{
|
|
GObject *config = g_object_new (PIKA_TYPE_COLOR_BALANCE_CONFIG,
|
|
"range", transfer_mode,
|
|
"preserve-luminosity", preserve_lum,
|
|
NULL);
|
|
|
|
g_object_set (config,
|
|
"cyan-red", cyan_red / 100.0,
|
|
"magenta-green", magenta_green / 100.0,
|
|
"yellow-blue", yellow_blue / 100.0,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Color Balance"),
|
|
"pika:color-balance",
|
|
config);
|
|
g_object_unref (config);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_colorize_hsl {
|
|
$blurb = 'Render the drawable as a grayscale image seen through a colored glass.';
|
|
|
|
$help = <<'HELP';
|
|
Desaturates the drawable, then tints it with the specified color. This tool is
|
|
only valid on RGB color images. It will not operate on grayscale drawables.
|
|
HELP
|
|
|
|
&neo_pdb_misc('2004', '2.10');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'hue', type => '0 <= float <= 360',
|
|
desc => 'Hue in degrees' },
|
|
{ name => 'saturation', type => '0 <= float <= 100',
|
|
desc => 'Saturation in percent' },
|
|
{ name => 'lightness', type => '-100 <= float <= 100',
|
|
desc => 'Lightness in percent' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error) &&
|
|
! pika_drawable_is_gray (drawable))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "pika:colorize",
|
|
"hue", hue / 360.0,
|
|
"saturation", saturation / 100.0,
|
|
"lightness", lightness / 100.0,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation (drawable, progress,
|
|
C_("undo-type", "Colorize"),
|
|
node);
|
|
g_object_unref (node);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_curves_explicit {
|
|
$blurb = 'Modifies the intensity curve(s) for specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
Modifies the intensity mapping for one channel in the specified
|
|
drawable. The channel can be either an intensity component, or the
|
|
value. The 'values' parameter is an array of doubles which explicitly
|
|
defines how each pixel value in the drawable will be modified. Use
|
|
the pika_drawable_curves_spline() function to modify intensity levels
|
|
with Catmull Rom splines.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'channel', type => 'enum PikaHistogramChannel',
|
|
desc => 'The channel to modify' },
|
|
{ name => 'values', type => 'floatarray',
|
|
desc => 'The explicit curve',
|
|
array => { name => 'num_values', type => '256 <= int32 <= 2096',
|
|
desc => 'The number of values in the new curve' } }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/pikacurvesconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error) &&
|
|
(num_values >= 256) &&
|
|
(num_values <= 4096) &&
|
|
(pika_drawable_has_alpha (drawable) || channel != PIKA_HISTOGRAM_ALPHA) &&
|
|
(! pika_drawable_is_gray (drawable) ||
|
|
channel == PIKA_HISTOGRAM_VALUE || channel == PIKA_HISTOGRAM_ALPHA) &&
|
|
channel != PIKA_HISTOGRAM_LUMINANCE)
|
|
{
|
|
GObject *config = pika_curves_config_new_explicit (channel,
|
|
values,
|
|
num_values);
|
|
|
|
pika_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Curves"),
|
|
"pika:curves",
|
|
config);
|
|
g_object_unref (config);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_curves_spline {
|
|
$blurb = 'Modifies the intensity curve(s) for specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
Modifies the intensity mapping for one channel in the specified
|
|
drawable. The channel can be either an intensity component, or the
|
|
value. The 'points' parameter is an array of doubles which define a
|
|
set of control points which describe a Catmull Rom spline which yields
|
|
the final intensity curve. Use the pika_drawable_curves_explicit()
|
|
function to explicitly modify intensity levels.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'channel', type => 'enum PikaHistogramChannel',
|
|
desc => 'The channel to modify' },
|
|
{ name => 'points', type => 'floatarray',
|
|
desc => 'The spline control points: { cp1.x, cp1.y, cp2.x, cp2.y,
|
|
... }',
|
|
array => { name => 'num_points', type => '4 <= int32 <= 2048',
|
|
desc => 'The number of values in the control point array' }
|
|
}
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/pikacurvesconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error) &&
|
|
! (num_points & 1) &&
|
|
(pika_drawable_has_alpha (drawable) || channel != PIKA_HISTOGRAM_ALPHA) &&
|
|
(! pika_drawable_is_gray (drawable) ||
|
|
channel == PIKA_HISTOGRAM_VALUE || channel == PIKA_HISTOGRAM_ALPHA) &&
|
|
channel != PIKA_HISTOGRAM_LUMINANCE)
|
|
{
|
|
GObject *config = pika_curves_config_new_spline (channel,
|
|
points,
|
|
num_points / 2);
|
|
|
|
pika_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Curves"),
|
|
"pika:curves",
|
|
config);
|
|
g_object_unref (config);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_extract_component {
|
|
$blurb = 'Extract a color model component.';
|
|
$help = 'Extract a color model component.';
|
|
|
|
&std_pdb_compat('gegl:component-extract');
|
|
$date = '2021';
|
|
$since = '2.10.34';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'component', type => '0 <= int32 <= 20',
|
|
desc => 'Component (RGB Red (0), RGB Green (1), RGB Blue (2), Hue (3), HSV Saturation (4), HSV Value (5),' .
|
|
' HSL Saturation (6), HSL Lightness (7), CMYK Cyan (8), CMYK Magenta (9), CMYK Yellow (10), CMYK Key (11),' .
|
|
' Y\'CbCr Y\' (12), Y\'CbCr Cb (13), Y\'CbCr Cr (14), LAB L (15), LAB A (16), LAB B (17), LCH C(ab) (18),' .
|
|
' LCH H(ab) (19), Alpha (20))' },
|
|
{ name => 'invert', type => 'boolean',
|
|
desc => 'Invert the extracted component' },
|
|
{ name => 'linear', type => 'boolean',
|
|
desc => 'Use linear output instead of gamma corrected' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error) &&
|
|
pika_drawable_is_rgb (drawable))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "gegl:component-extract",
|
|
"component", component,
|
|
"invert", invert,
|
|
"linear", linear,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation (drawable, progress,
|
|
C_("undo-type", "Extract Component"),
|
|
node);
|
|
g_object_unref (node);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_desaturate {
|
|
$blurb = <<'BLURB';
|
|
Desaturate the contents of the specified drawable, with the specified formula.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure desaturates the contents of the specified drawable,
|
|
with the specified formula. This procedure only works on drawables of
|
|
type RGB color.
|
|
HELP
|
|
|
|
$author = $copyright = 'Karine Delvare';
|
|
$date = '2005';
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'desaturate_mode', type => 'enum PikaDesaturateMode',
|
|
desc => 'The formula to use to desaturate' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error) &&
|
|
pika_drawable_is_rgb (drawable))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "pika:desaturate",
|
|
"mode", desaturate_mode,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation (drawable, progress,
|
|
C_("undo-type", "Desaturate"),
|
|
node);
|
|
g_object_unref (node);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_equalize {
|
|
$blurb = 'Equalize the contents of the specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure equalizes the contents of the specified drawable. Each
|
|
intensity channel is equalized independently. The equalized intensity
|
|
is given as inten' = (255 - inten). The 'mask_only' option specifies
|
|
whether to adjust only the area of the image within the selection
|
|
bounds, or the entire image based on the histogram of the selected
|
|
area. If there is no selection, the entire image is adjusted based on
|
|
the histogram for the entire image.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'mask_only', type => 'boolean',
|
|
desc => 'Equalization option' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("core/pikadrawable-equalize.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (! pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) ||
|
|
! pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
success = FALSE;
|
|
|
|
if (success)
|
|
pika_drawable_equalize (drawable, mask_only);
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_histogram {
|
|
$blurb = <<'BLURB';
|
|
Returns information on the intensity histogram for the specified drawable.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
|
|
This tool makes it possible to gather information about the intensity
|
|
histogram of a drawable. A channel to examine is first specified. This
|
|
can be either value, red, green, or blue, depending on whether the
|
|
drawable is of type color or grayscale. Second, a range of intensities
|
|
are specified. The pika_drawable_histogram() function returns
|
|
statistics based on the pixels in the drawable that fall under this
|
|
range of values. Mean, standard deviation, median, number of pixels,
|
|
and percentile are all returned. Additionally, the total count of
|
|
pixels in the image is returned. Counts of pixels are weighted by any
|
|
associated alpha values and by the current selection mask. That is,
|
|
pixels that lie outside an active selection mask will not be
|
|
counted. Similarly, pixels with transparent alpha values will not be
|
|
counted. The returned mean, std_dev and median are in the range
|
|
(0..255) for 8-bit images or if the plug-in is not precision-aware,
|
|
and in the range (0.0..1.0) otherwise.
|
|
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'channel', type => 'enum PikaHistogramChannel',
|
|
desc => 'The channel to query' },
|
|
{ name => 'start_range', type => '0.0 <= float <= 1.0',
|
|
desc => 'Start of the intensity measurement range' },
|
|
{ name => 'end_range', type => '0.0 <= float <= 1.0',
|
|
desc => 'End of the intensity measurement range' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'mean', type => 'float', void_ret => 1,
|
|
desc => 'Mean intensity value' },
|
|
{ name => 'std_dev', type => 'float',
|
|
desc => 'Standard deviation of intensity values' },
|
|
{ name => 'median', type => 'float',
|
|
desc => 'Median intensity value' },
|
|
{ name => 'pixels', type => 'float',
|
|
desc => 'Alpha-weighted pixel count for entire image' },
|
|
{ name => 'count', type => 'float',
|
|
desc => 'Alpha-weighted pixel count for range' },
|
|
{ name => 'percentile', type => 'float',
|
|
desc => 'Percentile that range falls under' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("core/pikadrawable-histogram.h"
|
|
"core/pikahistogram.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (! pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL, 0, error) ||
|
|
(! pika_drawable_has_alpha (drawable) &&
|
|
channel == PIKA_HISTOGRAM_ALPHA) ||
|
|
(pika_drawable_is_gray (drawable) &&
|
|
channel != PIKA_HISTOGRAM_VALUE && channel != PIKA_HISTOGRAM_ALPHA))
|
|
success = FALSE;
|
|
|
|
if (success)
|
|
{
|
|
PikaHistogram *histogram;
|
|
gint n_bins;
|
|
gint start;
|
|
PikaTRCType trc;
|
|
gint end;
|
|
|
|
trc = pika_drawable_get_trc (drawable);
|
|
|
|
histogram = pika_histogram_new (trc);
|
|
pika_drawable_calculate_histogram (drawable, histogram, FALSE);
|
|
|
|
n_bins = pika_histogram_n_bins (histogram);
|
|
|
|
start = ROUND (start_range * (n_bins - 1));
|
|
end = ROUND (end_range * (n_bins - 1));
|
|
|
|
mean = pika_histogram_get_mean (histogram, channel,
|
|
start, end);
|
|
std_dev = pika_histogram_get_std_dev (histogram, channel,
|
|
start, end);
|
|
median = pika_histogram_get_median (histogram, channel,
|
|
start, end);
|
|
pixels = pika_histogram_get_count (histogram, channel, 0, n_bins - 1);
|
|
count = pika_histogram_get_count (histogram, channel,
|
|
start, end);
|
|
percentile = count / pixels;
|
|
|
|
g_object_unref (histogram);
|
|
|
|
if (n_bins == 256)
|
|
{
|
|
mean *= 255;
|
|
std_dev *= 255;
|
|
median *= 255;
|
|
}
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_hue_saturation {
|
|
$blurb = <<'BLURB';
|
|
Modify hue, lightness, and saturation in the specified drawable.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure allows the hue, lightness, and saturation in the specified
|
|
drawable to be modified. The 'hue-range' parameter provides the capability to
|
|
limit range of affected hues. The 'overlap' parameter provides blending into
|
|
neighboring hue channels when rendering.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'hue_range', type => 'enum PikaHueRange',
|
|
desc => 'Range of affected hues' },
|
|
{ name => 'hue_offset', type => '-180 <= float <= 180',
|
|
desc => 'Hue offset in degrees' },
|
|
{ name => 'lightness', type => '-100 <= float <= 100',
|
|
desc => 'Lightness modification' },
|
|
{ name => 'saturation', type => '-100 <= float <= 100',
|
|
desc => 'Saturation modification' },
|
|
{ name => 'overlap', type => '0 <= float <= 100',
|
|
desc => 'Overlap other hue channels' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/pikahuesaturationconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
{
|
|
GObject *config = g_object_new (PIKA_TYPE_HUE_SATURATION_CONFIG,
|
|
"range", hue_range,
|
|
NULL);
|
|
|
|
g_object_set (config,
|
|
"hue", hue_offset / 180.0,
|
|
"saturation", saturation / 100.0,
|
|
"lightness", lightness / 100.0,
|
|
"overlap", overlap / 100.0,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Hue-Saturation"),
|
|
"pika:hue-saturation",
|
|
config);
|
|
g_object_unref (config);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_invert {
|
|
$blurb = 'Invert the contents of the specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure inverts the contents of the specified drawable. Each
|
|
intensity channel is inverted independently. The inverted intensity is
|
|
given as inten' = (255 - inten). If 'linear' is TRUE, the drawable is
|
|
inverted in linear space.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'linear', type => 'boolean',
|
|
desc => 'Whether to invert in linear space' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
{
|
|
pika_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Invert"),
|
|
linear ?
|
|
"gegl:invert-linear" :
|
|
"gegl:invert-gamma",
|
|
NULL);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_levels {
|
|
$blurb = 'Modifies intensity levels in the specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
This tool allows intensity levels in the specified drawable to be remapped
|
|
according to a set of parameters. The low/high input levels specify an initial
|
|
mapping from the source intensities. The gamma value determines how intensities
|
|
between the low and high input intensities are interpolated. A gamma value of
|
|
1.0 results in a linear interpolation. Higher gamma values result in more
|
|
high-level intensities. Lower gamma values result in more low-level
|
|
intensities. The low/high output levels constrain the final intensity
|
|
mapping--that is, no final intensity will be lower than the low output level
|
|
and no final intensity will be higher than the high output level. This tool is
|
|
only valid on RGB color and grayscale images.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'channel', type => 'enum PikaHistogramChannel',
|
|
desc => 'The channel to modify' },
|
|
{ name => 'low_input', type => '0.0 <= float <= 1.0',
|
|
desc => "Intensity of lowest input" },
|
|
{ name => 'high_input', type => '0.0 <= float <= 1.0',
|
|
desc => "Intensity of highest input" },
|
|
{ name => 'clamp_input', type => 'boolean',
|
|
desc => 'Clamp input values before applying output levels' },
|
|
{ name => 'gamma', type => '0.1 <= float <= 10',
|
|
desc => 'Gamma adjustment factor' },
|
|
{ name => 'low_output', type => '0.0 <= float <= 1.0',
|
|
desc => "Intensity of lowest output" },
|
|
{ name => 'high_output', type => '0.0 <= float <= 1.0',
|
|
desc => "Intensity of highest output" },
|
|
{ name => 'clamp_output', type => 'boolean',
|
|
desc => 'Clamp final output values' },
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/pikalevelsconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error) &&
|
|
(pika_drawable_has_alpha (drawable) || channel != PIKA_HISTOGRAM_ALPHA) &&
|
|
(! pika_drawable_is_gray (drawable) ||
|
|
channel == PIKA_HISTOGRAM_VALUE || channel == PIKA_HISTOGRAM_ALPHA) &&
|
|
channel != PIKA_HISTOGRAM_LUMINANCE)
|
|
{
|
|
GObject *config = g_object_new (PIKA_TYPE_LEVELS_CONFIG,
|
|
"channel", channel,
|
|
NULL);
|
|
|
|
g_object_set (config,
|
|
"low-input", low_input,
|
|
"high-input", high_input,
|
|
"clamp-input", clamp_input,
|
|
"gamma", gamma,
|
|
"low-output", low_output,
|
|
"high-output", high_output,
|
|
"clamp-output", clamp_output,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Levels"),
|
|
"pika:levels",
|
|
config);
|
|
g_object_unref (config);
|
|
}
|
|
else
|
|
success = TRUE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_levels_stretch {
|
|
$blurb = 'Automatically modifies intensity levels in the specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure allows intensity levels in the specified drawable to be
|
|
remapped according to a set of guessed parameters. It is equivalent to
|
|
clicking the "Auto" button in the Levels tool.
|
|
HELP
|
|
|
|
$author = $copyright = 'Joao S.O. Bueno, Shawn Willden';
|
|
$date = '2003';
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("core/pikadrawable-levels.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
{
|
|
pika_drawable_levels_stretch (drawable, progress);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_shadows_highlights {
|
|
$blurb = 'Perform shadows and highlights correction.';
|
|
|
|
$help = <<'HELP';
|
|
This filter allows adjusting shadows and highlights in the image
|
|
separately. The implementation closely follow its counterpart in the
|
|
Darktable photography software.
|
|
HELP
|
|
|
|
&std_pdb_compat('gegl:shadows-highlights');
|
|
$date = '2021';
|
|
$since = '2.10.34';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'shadows', type => '-100 <= float <= 100',
|
|
desc => 'Adjust exposure of shadows' },
|
|
{ name => 'highlights', type => '-100 <= float <= 100',
|
|
desc => 'Adjust exposure of highlights' },
|
|
{ name => 'whitepoint', type => '-10 <= float <= 10',
|
|
desc => 'Shift white point' },
|
|
{ name => 'radius', type => '0.1 <= float <= 1500',
|
|
desc => 'Spatial extent' },
|
|
{ name => 'compress', type => '0 <= float <= 100',
|
|
desc => 'Compress the effect on shadows/highlights and preserve midtones' },
|
|
{ name => 'shadows_ccorrect', type => '0 <= float <= 100',
|
|
desc => 'Adjust saturation of shadows' },
|
|
{ name => 'highlights_ccorrect', type => '0 <= float <= 100',
|
|
desc => 'Adjust saturation of highlights' },
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
{
|
|
GeglNode *node;
|
|
node = gegl_node_new_child (NULL,
|
|
"operation", "gegl:shadows-highlights",
|
|
"shadows", shadows,
|
|
"highlights", highlights,
|
|
"whitepoint", whitepoint,
|
|
"radius", radius,
|
|
"compress", compress,
|
|
"shadows-ccorrect", shadows_ccorrect,
|
|
"highlights-ccorrect", highlights_ccorrect,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation (drawable, progress,
|
|
C_("undo-type", "Shadows-Highlights"),
|
|
node);
|
|
g_object_unref (node);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_posterize {
|
|
$blurb = 'Posterize the specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
This procedures reduces the number of shades allows in each intensity channel
|
|
to the specified 'levels' parameter.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$date = '1997';
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'levels', type => '2 <= int32 <= 255',
|
|
desc => 'Levels of posterization' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "pika:posterize",
|
|
"levels", levels,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation (drawable, progress,
|
|
C_("undo-type", "Posterize"),
|
|
node);
|
|
g_object_unref (node);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_threshold {
|
|
$blurb = 'Threshold the specified drawable.';
|
|
|
|
$help = <<'HELP';
|
|
This procedures generates a threshold map of the specified
|
|
drawable. All pixels between the values of 'low_threshold' and
|
|
'high_threshold', on the scale of 'channel' are replaced with white,
|
|
and all other pixels with black.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
$date = '1997';
|
|
$since = '2.10';
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The drawable' },
|
|
{ name => 'channel', type => 'enum PikaHistogramChannel',
|
|
desc => 'The channel to base the threshold on' },
|
|
{ name => 'low_threshold', type => '0.0 <= float <= 1.0',
|
|
desc => 'The low threshold value' },
|
|
{ name => 'high_threshold', type => '0.0 <= float <= 1.0',
|
|
desc => 'The high threshold value' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (pika_pdb_item_is_attached (PIKA_ITEM (drawable), NULL,
|
|
PIKA_PDB_ITEM_CONTENT, error) &&
|
|
pika_pdb_item_is_not_group (PIKA_ITEM (drawable), error))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "pika:threshold",
|
|
"channel", channel,
|
|
"low", low_threshold,
|
|
"high", high_threshold,
|
|
NULL);
|
|
|
|
pika_drawable_apply_operation (drawable, progress,
|
|
C_("undo-type", "Threshold"),
|
|
node);
|
|
g_object_unref (node);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
|
|
@headers = qw("libpikamath/pikamath.h"
|
|
"core/pika.h"
|
|
"core/pikadrawable.h"
|
|
"core/pikadrawable-operation.h"
|
|
"pikapdb-utils.h"
|
|
"pika-intl.h");
|
|
|
|
@procs = qw(drawable_brightness_contrast
|
|
drawable_color_balance
|
|
drawable_colorize_hsl
|
|
drawable_curves_explicit
|
|
drawable_curves_spline
|
|
drawable_extract_component
|
|
drawable_desaturate
|
|
drawable_equalize
|
|
drawable_histogram
|
|
drawable_hue_saturation
|
|
drawable_invert
|
|
drawable_levels
|
|
drawable_levels_stretch
|
|
drawable_shadows_highlights
|
|
drawable_posterize
|
|
drawable_threshold);
|
|
|
|
%exports = (app => [@procs], lib => [@procs]);
|
|
|
|
$desc = 'Color';
|
|
$doc_title = 'pikadrawablecolor';
|
|
$doc_short_desc = "Functions for manipulating a drawable's color.";
|
|
$doc_long_desc = "Functions for manipulating a drawable's color, including curves and histograms.";
|
|
|
|
1;
|
