mirror of
https://gitlab.gnome.org/GNOME/gimp.git
synced 2025-10-06 01:12:40 +02:00
dc3e815ff0
Several types functions were using the wording "float" historically to mean double-precision, e.g. the float array type (which was in fact a double array). Or the scanner function gimp_scanner_parse_float() was in fact returning a double value. What if we wanted someday to actually add float (usually this naming means in C the single-precision IEEE 754 floating point representation) support? How would we name this? Now technically it's not entirely wrong (a double is still a floating point). So I've been wondering if that is because maybe we never planned to have float and double precision may be good enough for all usage in a plug-in API (which doesn't have to be as generic so the higher precision is enough)? But how can we be sure? Also we already had some functions using the wording double (e.g. gimp_procedure_add_double_argument()), so let's just go the safe route and use the accurate wording. The additional change in PDB is internal, but there too, I was also finding very confusing that we were naming double-precision float as 'float' type. So I took the opportunity to update this. It doesn't change any signature. In fact the whole commit doesn't change any type or code logic, only naming, except for one bug fix in the middle which I encountered while renaming: in gimp_scanner_parse_deprecated_color(), I discovered a hidden bug in scanning (color-hsv*) values, which was mistakenly using a double type for an array of float.
950 lines
32 KiB
Plaintext
950 lines
32 KiB
Plaintext
# GIMP - The GNU Image Manipulation Program
|
|
# 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 <= double <= 1.0',
|
|
desc => 'Brightness adjustment' },
|
|
{ name => 'contrast', type => '-1.0 <= double <= 1.0',
|
|
desc => 'Contrast adjustment' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/gimpbrightnesscontrastconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
|
|
{
|
|
GObject *config = g_object_new (GIMP_TYPE_BRIGHTNESS_CONTRAST_CONFIG,
|
|
"brightness", brightness,
|
|
"contrast", contrast,
|
|
NULL);
|
|
|
|
gimp_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Brightness-Contrast"),
|
|
"gimp: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 GimpTransferMode',
|
|
desc => 'Transfer mode' },
|
|
{ name => 'preserve_lum', type => 'boolean',
|
|
desc => 'Preserve luminosity values at each pixel' },
|
|
{ name => 'cyan_red', type => '-100 <= double <= 100',
|
|
desc => 'Cyan-Red color balance' },
|
|
{ name => 'magenta_green', type => '-100 <= double <= 100',
|
|
desc => 'Magenta-Green color balance' },
|
|
{ name => 'yellow_blue', type => '-100 <= double <= 100',
|
|
desc => 'Yellow-Blue color balance' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/gimpcolorbalanceconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
|
|
{
|
|
GObject *config = g_object_new (GIMP_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);
|
|
|
|
gimp_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Color Balance"),
|
|
"gimp: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 <= double <= 360',
|
|
desc => 'Hue in degrees' },
|
|
{ name => 'saturation', type => '0 <= double <= 100',
|
|
desc => 'Saturation in percent' },
|
|
{ name => 'lightness', type => '-100 <= double <= 100',
|
|
desc => 'Lightness in percent' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error) &&
|
|
! gimp_drawable_is_gray (drawable))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "gimp:colorize",
|
|
"hue", hue / 360.0,
|
|
"saturation", saturation / 100.0,
|
|
"lightness", lightness / 100.0,
|
|
NULL);
|
|
|
|
gimp_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 gimp_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 GimpHistogramChannel',
|
|
desc => 'The channel to modify' },
|
|
{ name => 'values', type => 'doublearray',
|
|
desc => 'The explicit curve',
|
|
array => { name => 'num_values', type => '256 <= size <= 2096',
|
|
desc => 'The number of values in the new curve' } }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/gimpcurvesconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error) &&
|
|
(num_values >= 256) &&
|
|
(num_values <= 4096) &&
|
|
(gimp_drawable_has_alpha (drawable) || channel != GIMP_HISTOGRAM_ALPHA) &&
|
|
(! gimp_drawable_is_gray (drawable) ||
|
|
channel == GIMP_HISTOGRAM_VALUE || channel == GIMP_HISTOGRAM_ALPHA) &&
|
|
channel != GIMP_HISTOGRAM_LUMINANCE)
|
|
{
|
|
GObject *config = gimp_curves_config_new_explicit (channel,
|
|
values,
|
|
num_values);
|
|
|
|
gimp_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Curves"),
|
|
"gimp: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 gimp_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 GimpHistogramChannel',
|
|
desc => 'The channel to modify' },
|
|
{ name => 'points', type => 'doublearray',
|
|
desc => 'The spline control points: { cp1.x, cp1.y, cp2.x, cp2.y,
|
|
... }',
|
|
array => { name => 'num_points', type => '4 <= size <= 2048',
|
|
desc => 'The number of values in the control point array' }
|
|
}
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/gimpcurvesconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error) &&
|
|
! (num_points & 1) &&
|
|
(gimp_drawable_has_alpha (drawable) || channel != GIMP_HISTOGRAM_ALPHA) &&
|
|
(! gimp_drawable_is_gray (drawable) ||
|
|
channel == GIMP_HISTOGRAM_VALUE || channel == GIMP_HISTOGRAM_ALPHA) &&
|
|
channel != GIMP_HISTOGRAM_LUMINANCE)
|
|
{
|
|
GObject *config = gimp_curves_config_new_spline (channel,
|
|
points,
|
|
num_points / 2);
|
|
|
|
gimp_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Curves"),
|
|
"gimp: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 (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error) &&
|
|
gimp_drawable_is_rgb (drawable))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "gegl:component-extract",
|
|
"component", component,
|
|
"invert", invert,
|
|
"linear", linear,
|
|
NULL);
|
|
|
|
gimp_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 GimpDesaturateMode',
|
|
desc => 'The formula to use to desaturate' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error) &&
|
|
gimp_drawable_is_rgb (drawable))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "gimp:desaturate",
|
|
"mode", desaturate_mode,
|
|
NULL);
|
|
|
|
gimp_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/gimpdrawable-equalize.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (! gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) ||
|
|
! gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
|
|
success = FALSE;
|
|
|
|
if (success)
|
|
gimp_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 gimp_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 GimpHistogramChannel',
|
|
desc => 'The channel to query' },
|
|
{ name => 'start_range', type => '0.0 <= double <= 1.0',
|
|
desc => 'Start of the intensity measurement range' },
|
|
{ name => 'end_range', type => '0.0 <= double <= 1.0',
|
|
desc => 'End of the intensity measurement range' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'mean', type => 'double', void_ret => 1,
|
|
desc => 'Mean intensity value' },
|
|
{ name => 'std_dev', type => 'double',
|
|
desc => 'Standard deviation of intensity values' },
|
|
{ name => 'median', type => 'double',
|
|
desc => 'Median intensity value' },
|
|
{ name => 'pixels', type => 'double',
|
|
desc => 'Alpha-weighted pixel count for entire image' },
|
|
{ name => 'count', type => 'double',
|
|
desc => 'Alpha-weighted pixel count for range' },
|
|
{ name => 'percentile', type => 'double',
|
|
desc => 'Percentile that range falls under' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("core/gimpdrawable-histogram.h"
|
|
"core/gimphistogram.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (! gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL, 0, error) ||
|
|
(! gimp_drawable_has_alpha (drawable) &&
|
|
channel == GIMP_HISTOGRAM_ALPHA) ||
|
|
(gimp_drawable_is_gray (drawable) &&
|
|
channel != GIMP_HISTOGRAM_VALUE && channel != GIMP_HISTOGRAM_ALPHA))
|
|
success = FALSE;
|
|
|
|
if (success)
|
|
{
|
|
GimpHistogram *histogram;
|
|
gint n_bins;
|
|
gint start;
|
|
GimpTRCType trc;
|
|
gint end;
|
|
|
|
trc = gimp_drawable_get_trc (drawable);
|
|
|
|
histogram = gimp_histogram_new (trc);
|
|
gimp_drawable_calculate_histogram (drawable, histogram, FALSE);
|
|
|
|
n_bins = gimp_histogram_n_bins (histogram);
|
|
|
|
start = ROUND (start_range * (n_bins - 1));
|
|
end = ROUND (end_range * (n_bins - 1));
|
|
|
|
mean = gimp_histogram_get_mean (histogram, channel,
|
|
start, end);
|
|
std_dev = gimp_histogram_get_std_dev (histogram, channel,
|
|
start, end);
|
|
median = gimp_histogram_get_median (histogram, channel,
|
|
start, end);
|
|
pixels = gimp_histogram_get_count (histogram, channel, 0, n_bins - 1);
|
|
count = gimp_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 GimpHueRange',
|
|
desc => 'Range of affected hues' },
|
|
{ name => 'hue_offset', type => '-180 <= double <= 180',
|
|
desc => 'Hue offset in degrees' },
|
|
{ name => 'lightness', type => '-100 <= double <= 100',
|
|
desc => 'Lightness modification' },
|
|
{ name => 'saturation', type => '-100 <= double <= 100',
|
|
desc => 'Saturation modification' },
|
|
{ name => 'overlap', type => '0 <= double <= 100',
|
|
desc => 'Overlap other hue channels' }
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/gimphuesaturationconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
|
|
{
|
|
GObject *config = g_object_new (GIMP_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);
|
|
|
|
gimp_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Hue-Saturation"),
|
|
"gimp: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 (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
|
|
{
|
|
gimp_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 GimpHistogramChannel',
|
|
desc => 'The channel to modify' },
|
|
{ name => 'low_input', type => '0.0 <= double <= 1.0',
|
|
desc => "Intensity of lowest input" },
|
|
{ name => 'high_input', type => '0.0 <= double <= 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 <= double <= 10',
|
|
desc => 'Gamma adjustment factor' },
|
|
{ name => 'low_output', type => '0.0 <= double <= 1.0',
|
|
desc => "Intensity of lowest output" },
|
|
{ name => 'high_output', type => '0.0 <= double <= 1.0',
|
|
desc => "Intensity of highest output" },
|
|
{ name => 'clamp_output', type => 'boolean',
|
|
desc => 'Clamp final output values' },
|
|
);
|
|
|
|
%invoke = (
|
|
headers => [ qw("operations/gimplevelsconfig.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error) &&
|
|
(gimp_drawable_has_alpha (drawable) || channel != GIMP_HISTOGRAM_ALPHA) &&
|
|
(! gimp_drawable_is_gray (drawable) ||
|
|
channel == GIMP_HISTOGRAM_VALUE || channel == GIMP_HISTOGRAM_ALPHA) &&
|
|
channel != GIMP_HISTOGRAM_LUMINANCE)
|
|
{
|
|
GObject *config = g_object_new (GIMP_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);
|
|
|
|
gimp_drawable_apply_operation_by_name (drawable, progress,
|
|
C_("undo-type", "Levels"),
|
|
"gimp: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/gimpdrawable-levels.h") ],
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
|
|
{
|
|
gimp_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 <= double <= 100',
|
|
desc => 'Adjust exposure of shadows' },
|
|
{ name => 'highlights', type => '-100 <= double <= 100',
|
|
desc => 'Adjust exposure of highlights' },
|
|
{ name => 'whitepoint', type => '-10 <= double <= 10',
|
|
desc => 'Shift white point' },
|
|
{ name => 'radius', type => '0.1 <= double <= 1500',
|
|
desc => 'Spatial extent' },
|
|
{ name => 'compress', type => '0 <= double <= 100',
|
|
desc => 'Compress the effect on shadows/highlights and preserve midtones' },
|
|
{ name => 'shadows_ccorrect', type => '0 <= double <= 100',
|
|
desc => 'Adjust saturation of shadows' },
|
|
{ name => 'highlights_ccorrect', type => '0 <= double <= 100',
|
|
desc => 'Adjust saturation of highlights' },
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_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);
|
|
|
|
gimp_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 (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "gimp:posterize",
|
|
"levels", levels,
|
|
NULL);
|
|
|
|
gimp_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 GimpHistogramChannel',
|
|
desc => 'The channel to base the threshold on' },
|
|
{ name => 'low_threshold', type => '0.0 <= double <= 1.0',
|
|
desc => 'The low threshold value' },
|
|
{ name => 'high_threshold', type => '0.0 <= double <= 1.0',
|
|
desc => 'The high threshold value' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
|
|
GIMP_PDB_ITEM_CONTENT, error) &&
|
|
gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
|
|
{
|
|
GeglNode *node =
|
|
gegl_node_new_child (NULL,
|
|
"operation", "gimp:threshold",
|
|
"channel", channel,
|
|
"low", low_threshold,
|
|
"high", high_threshold,
|
|
NULL);
|
|
|
|
gimp_drawable_apply_operation (drawable, progress,
|
|
C_("undo-type", "Threshold"),
|
|
node);
|
|
g_object_unref (node);
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
|
|
@headers = qw("libgimpmath/gimpmath.h"
|
|
"core/gimp.h"
|
|
"core/gimpdrawable.h"
|
|
"core/gimpdrawable-operation.h"
|
|
"gimppdb-utils.h"
|
|
"gimp-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 = 'gimpdrawablecolor';
|
|
$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;
|