c57b4f0fa3
so it works nicely on all precisions, disable HSV color matching for now, need to decide what to do with it.
417 lines
14 KiB
Text
417 lines
14 KiB
Text
# 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 <http://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,
|
|
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,
|
|
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;
|