summaryrefslogtreecommitdiffstats
path: root/pdb/groups/selection_tools.pdb
diff options
context:
space:
mode:
Diffstat (limited to 'pdb/groups/selection_tools.pdb')
-rw-r--r--pdb/groups/selection_tools.pdb419
1 files changed, 419 insertions, 0 deletions
diff --git a/pdb/groups/selection_tools.pdb b/pdb/groups/selection_tools.pdb
new file mode 100644
index 0000000..b71f86d
--- /dev/null
+++ b/pdb/groups/selection_tools.pdb
@@ -0,0 +1,419 @@
+# 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 by_color_select {
+ &std_pdb_deprecated ('gimp-image-select-color');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'color', type => 'color',
+ desc => 'The color to select' },
+ { name => 'threshold', type => '0 <= int32 <= 255',
+ desc => 'Threshold in intensity levels' },
+ { name => 'operation', type => 'enum GimpChannelOps',
+ desc => 'The selection operation' },
+ { name => 'antialias', type => 'boolean',
+ desc => 'Antialiasing' },
+ { name => 'feather', type => 'boolean',
+ desc => 'Feather option for selections' },
+ { name => 'feather_radius', type => '0 <= float',
+ desc => 'Radius for feather operation' },
+ { name => 'sample_merged', type => 'boolean',
+ desc => 'Use the composite image, not the drawable' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+
+ gimp_channel_select_by_color (gimp_image_get_mask (image), drawable,
+ sample_merged,
+ &color,
+ threshold / 255.0,
+ FALSE /* don't select transparent */,
+ GIMP_SELECT_CRITERION_COMPOSITE,
+ operation,
+ antialias,
+ feather,
+ feather_radius,
+ feather_radius);
+}
+CODE
+ );
+}
+
+
+sub by_color_select_full {
+ &std_pdb_deprecated ('gimp-image-select-color');
+ &david_pdb_misc('2006','2.4');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'color', type => 'color',
+ desc => 'The color to select' },
+ { name => 'threshold', type => '0 <= int32 <= 255',
+ desc => 'Threshold in intensity levels' },
+ { name => 'operation', type => 'enum GimpChannelOps',
+ desc => 'The selection operation' },
+ { name => 'antialias', type => 'boolean',
+ desc => 'Antialiasing' },
+ { name => 'feather', type => 'boolean',
+ desc => 'Feather option for selections' },
+ { name => 'feather_radius_x', type => '0 <= float',
+ desc => 'Radius for feather operation in X direction' },
+ { name => 'feather_radius_y', type => '0 <= float',
+ desc => 'Radius for feather operation in Y direction' },
+ { name => 'sample_merged', type => 'boolean',
+ desc => 'Use the composite image, not the drawable' },
+ { name => 'select_transparent', type => 'boolean',
+ desc => "Whether to consider transparent pixels for selection.
+ If TRUE, transparency is considered as a unique selectable
+ color." },
+ { name => 'select_criterion', type => 'enum GimpSelectCriterion',
+ desc => "The criterion used to determine color similarity.
+ SELECT_CRITERION_COMPOSITE is the standard choice.
+ " },
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+
+ gimp_channel_select_by_color (gimp_image_get_mask (image), drawable,
+ sample_merged,
+ &color,
+ threshold / 255.0,
+ select_transparent,
+ select_criterion,
+ operation,
+ antialias,
+ feather,
+ feather_radius_x,
+ feather_radius_y);
+}
+CODE
+ );
+}
+
+
+sub ellipse_select {
+ &std_pdb_deprecated ('gimp-image-select-ellipse');
+
+ @inargs = (
+ { name => 'image', type => 'image',
+ desc => 'The image' },
+ { name => 'x', type => 'float',
+ desc => 'x coordinate of upper-left corner of ellipse bounding box' },
+ { name => 'y', type => 'float',
+ desc => 'y coordinate of upper-left corner of ellipse bounding box' },
+ { name => 'width', type => '0 < float',
+ desc => 'The width of the ellipse' },
+ { name => 'height', type => '0 < float',
+ desc => 'The height of the ellipse' },
+ { name => 'operation', type => 'enum GimpChannelOps',
+ desc => 'The selection operation' },
+ { name => 'antialias', type => 'boolean',
+ desc => 'Antialiasing' },
+ { name => 'feather', type => 'boolean',
+ desc => 'Feather option for selections' },
+ { name => 'feather_radius', type => '0 <= float',
+ desc => 'Radius for feather operation' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gimp_channel_select_ellipse (gimp_image_get_mask (image),
+ (gint) x, (gint) y,
+ (gint) width, (gint) height,
+ operation,
+ antialias,
+ feather,
+ feather_radius,
+ feather_radius,
+ TRUE);
+}
+CODE
+ );
+}
+
+
+sub free_select {
+ &std_pdb_deprecated ('gimp-image-select-polygon');
+
+ @inargs = (
+ { name => 'image', type => 'image',
+ desc => 'The image' },
+ { name => 'segs', type => 'floatarray',
+ desc => 'Array of points: { p1.x, p1.y, p2.x, p2.y, ...,
+ pn.x, pn.y}',
+ array => { type => '2 <= int32',
+ desc => 'Number of points (count 1 coordinate as two
+ points)' } },
+ { name => 'operation', type => 'enum GimpChannelOps',
+ desc => 'The selection operation' },
+ { name => 'antialias', type => 'boolean',
+ desc => 'Antialiasing' },
+ { name => 'feather', type => 'boolean',
+ desc => 'Feather option for selections' },
+ { name => 'feather_radius', type => '0 <= float',
+ desc => 'Radius for feather operation' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gimp_channel_select_polygon (gimp_image_get_mask (image),
+ _("Free Select"),
+ num_segs / 2,
+ (GimpVector2 *) segs,
+ operation,
+ antialias,
+ feather,
+ feather_radius,
+ feather_radius,
+ TRUE);
+}
+CODE
+ );
+}
+
+
+sub fuzzy_select {
+ &std_pdb_deprecated ('gimp-image-select-contiguous-color');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'x', type => 'float',
+ desc => 'x coordinate of initial seed fill point: (image
+ coordinates)' },
+ { name => 'y', type => 'float',
+ desc => 'y coordinate of initial seed fill point: (image
+ coordinates)' },
+ { name => 'threshold', type => '0 <= int32 <= 255',
+ desc => 'Threshold in intensity levels' },
+ { name => 'operation', type => 'enum GimpChannelOps',
+ desc => 'The selection operation' },
+ { name => 'antialias', type => 'boolean',
+ desc => 'Antialiasing' },
+ { name => 'feather', type => 'boolean',
+ desc => 'Feather option for selections' },
+ { name => 'feather_radius', type => '0 <= float',
+ desc => 'Radius for feather operation' },
+ { name => 'sample_merged', type => 'boolean',
+ desc => 'Use the composite image, not the drawable' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+
+ gimp_channel_select_fuzzy (gimp_image_get_mask (image),
+ drawable,
+ sample_merged,
+ x, y,
+ threshold / 255.0,
+ FALSE /* don't select transparent */,
+ GIMP_SELECT_CRITERION_COMPOSITE,
+ FALSE /* no diagonal neighbors */,
+ operation,
+ antialias,
+ feather,
+ feather_radius,
+ feather_radius);
+}
+CODE
+ );
+}
+
+
+sub fuzzy_select_full {
+ &std_pdb_deprecated ('gimp-image-select-contiguous-color');
+ &david_pdb_misc("2006","2.4");
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'x', type => 'float',
+ desc => 'x coordinate of initial seed fill point: (image
+ coordinates)' },
+ { name => 'y', type => 'float',
+ desc => 'y coordinate of initial seed fill point: (image
+ coordinates)' },
+ { name => 'threshold', type => '0 <= int32 <= 255',
+ desc => 'Threshold in intensity levels' },
+ { name => 'operation', type => 'enum GimpChannelOps',
+ desc => 'The selection operation' },
+ { name => 'antialias', type => 'boolean',
+ desc => 'Antialiasing' },
+ { name => 'feather', type => 'boolean',
+ desc => 'Feather option for selections' },
+ { name => 'feather_radius_x', type => '0 <= float',
+ desc => 'Radius for feather operation in X direction' },
+ { name => 'feather_radius_y', type => '0 <= float',
+ desc => 'Radius for feather operation in Y direction' },
+ { name => 'sample_merged', type => 'boolean',
+ desc => 'Use the composite image, not the drawable' },
+ { name => 'select_transparent', type => 'boolean',
+ desc => "Whether to consider transparent pixels for selection.
+ If TRUE, transparency is considered as a unique selectable
+ color." },
+ { name => 'select_criterion', type => 'enum GimpSelectCriterion',
+ desc => "The criterion used to determine color similarity.
+ SELECT_CRITERION_COMPOSITE is the standard choice.
+ " },
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+
+ gimp_channel_select_fuzzy (gimp_image_get_mask (image),
+ drawable,
+ sample_merged,
+ x, y,
+ threshold / 255.0,
+ select_transparent,
+ select_criterion,
+ FALSE /* no diagonal neighbors */,
+ operation,
+ antialias,
+ feather,
+ feather_radius_x,
+ feather_radius_y);
+}
+CODE
+ );
+}
+
+
+sub rect_select {
+ &std_pdb_deprecated ('gimp-image-select-rectangle');
+
+ @inargs = (
+ { name => 'image', type => 'image',
+ desc => 'The image' },
+ { name => 'x', type => 'float',
+ desc => 'x coordinate of upper-left corner of rectangle' },
+ { name => 'y', type => 'float',
+ desc => 'y coordinate of upper-left corner of rectangle' },
+ { name => 'width', type => '0 < float',
+ desc => 'The width of the rectangle' },
+ { name => 'height', type => '0 < float',
+ desc => 'The height of the rectangle' },
+ { name => 'operation', type => 'enum GimpChannelOps',
+ desc => 'The selection operation' },
+ { name => 'feather', type => 'boolean',
+ desc => 'Feather option for selections' },
+ { name => 'feather_radius', type => '0 <= float',
+ desc => 'Radius for feather operation' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gimp_channel_select_rectangle (gimp_image_get_mask (image),
+ (gint) x, (gint) y,
+ (gint) width, (gint) height,
+ operation,
+ feather,
+ feather_radius,
+ feather_radius,
+ TRUE);
+}
+CODE
+ );
+}
+
+
+sub round_rect_select {
+ &std_pdb_deprecated ('gimp-image-select-round-rectangle');
+ &martin_pdb_misc("2006","2.4");
+
+ @inargs = (
+ { name => 'image', type => 'image',
+ desc => 'The image' },
+ { name => 'x', type => 'float',
+ desc => 'x coordinate of upper-left corner of rectangle' },
+ { name => 'y', type => 'float',
+ desc => 'y coordinate of upper-left corner of rectangle' },
+ { name => 'width', type => '0 < float',
+ desc => 'The width of the rectangle' },
+ { name => 'height', type => '0 < float',
+ desc => 'The height of the rectangle' },
+ { name => 'corner_radius_x', type => '0 < float < GIMP_MAX_IMAGE_SIZE',
+ desc => 'The corner radius in X direction' },
+ { name => 'corner_radius_y', type => '0 < float < GIMP_MAX_IMAGE_SIZE',
+ desc => 'The corner radius in Y direction' },
+ { name => 'operation', type => 'enum GimpChannelOps',
+ desc => 'The selection operation' },
+ { name => 'antialias', type => 'boolean',
+ desc => 'Antialiasing' },
+ { name => 'feather', type => 'boolean',
+ desc => 'Feather option for selections' },
+ { name => 'feather_radius_x', type => '0 <= float',
+ desc => 'Radius for feather operation in X direction' },
+ { name => 'feather_radius_y', type => '0 <= float',
+ desc => 'Radius for feather operation in Y direction' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gimp_channel_select_round_rect (gimp_image_get_mask (image),
+ (gint) x, (gint) y,
+ (gint) width, (gint) height,
+ corner_radius_x,
+ corner_radius_y,
+ operation,
+ antialias,
+ feather,
+ feather_radius_x,
+ feather_radius_y,
+ TRUE);
+}
+CODE
+ );
+}
+
+
+@headers = qw("libgimpbase/gimpbase.h"
+ "core/gimpchannel-select.h"
+ "gimp-intl.h");
+
+@procs = qw(by_color_select by_color_select_full
+ ellipse_select
+ free_select
+ fuzzy_select fuzzy_select_full
+ rect_select round_rect_select);
+
+%exports = (app => [@procs], lib => [@procs]);
+
+$desc = 'Selection Tool procedures';
+$doc_title = 'gimpselectiontools';
+$doc_short_desc = 'Access to toolbox selection tools.';
+$doc_long_desc = 'Functions giving access to toolbox selection tools.';
+
+1;
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-19 14:29:13 +0000