0de4f68090
2006-03-25 Michael Natterer <mitch@gimp.org> * tools/pdbgen/pdb/brush.pdb * tools/pdbgen/pdb/brushes.pdb * tools/pdbgen/pdb/channel.pdb * tools/pdbgen/pdb/color.pdb * tools/pdbgen/pdb/context.pdb * tools/pdbgen/pdb/edit.pdb * tools/pdbgen/pdb/gradient.pdb * tools/pdbgen/pdb/gradient_select.pdb * tools/pdbgen/pdb/gradients.pdb * tools/pdbgen/pdb/image.pdb * tools/pdbgen/pdb/layer.pdb * tools/pdbgen/pdb/paint_tools.pdb * tools/pdbgen/pdb/plug_in.pdb * tools/pdbgen/pdb/selection.pdb * tools/pdbgen/pdb/selection_tools.pdb * tools/pdbgen/pdb/text_tool.pdb: removed all ':' before and all '()' around %%desc%%. * tools/pdbgen/app.pl: add () to int32, float and boolean descriptions automatically. They all look the same now. * tools/pdbgen/lib.pl: tweaked regex so %%desc%% doesn't appear in libgimp API docs. * app/pdb/brush_cmds.c * app/pdb/brushes_cmds.c * app/pdb/channel_cmds.c * app/pdb/color_cmds.c * app/pdb/context_cmds.c * app/pdb/floating_sel_cmds.c * app/pdb/image_cmds.c * app/pdb/layer_cmds.c * app/pdb/paint_tools_cmds.c * app/pdb/plug_in_cmds.c * app/pdb/selection_cmds.c * app/pdb/selection_tools_cmds.c * app/pdb/text_tool_cmds.c * libgimp/gimpedit_pdb.c * libgimp/gimpplugin_pdb.c: regenerated.
314 lines
12 KiB
Text
314 lines
12 KiB
Text
# The GIMP -- an 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 2 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, write to the Free Software
|
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
# "Perlized" from C source by Manish Singh <yosh@gimp.org>
|
|
|
|
sub by_color_select {
|
|
$blurb = <<'BLURB';
|
|
Create a selection by selecting all pixels (in the specified drawable) with the
|
|
same (or similar) color to that specified.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This tool creates a selection over the specified image. A by-color selection is
|
|
determined by the supplied color under the constraints of the specified
|
|
threshold. Essentially, all pixels (in the drawable) that have color
|
|
sufficiently close to the specified color (as determined by the threshold
|
|
value) are included in the selection. The antialiasing parameter allows the
|
|
final selection mask to contain intermediate values based on close misses to
|
|
the threshold bar. Feathering can be enabled optionally and is controlled with
|
|
the "feather_radius" parameter. If the sample_merged parameter is TRUE,
|
|
the data of the composite image will be used instead of that for the specified
|
|
drawable. This is equivalent to sampling for colors after merging all visible
|
|
layers. In the case of a merged sampling, the supplied drawable is ignored.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
|
|
@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 %%desc%%' },
|
|
{ name => 'operation', type => 'enum GimpChannelOps',
|
|
desc => 'The selection operation: %%desc%%' },
|
|
{ name => 'antialias', type => 'boolean',
|
|
desc => 'Antialiasing %%desc%%' },
|
|
{ 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,
|
|
FALSE /* don't select transparent */,
|
|
operation,
|
|
antialias,
|
|
feather,
|
|
feather_radius,
|
|
feather_radius);
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub ellipse_select {
|
|
$blurb = 'Create an elliptical selection over the specified image.';
|
|
|
|
$help = <<'HELP';
|
|
This tool creates an elliptical selection over the specified image. The
|
|
elliptical region can be either added to, subtracted from, or replace the
|
|
contents of the previous selection mask. If antialiasing is turned on, the
|
|
edges of the elliptical region will contain intermediate values which give the
|
|
appearance of a sharper, less pixelized edge. This should be set as TRUE most
|
|
of the time. If the feather option is enabled, the resulting selection is
|
|
blurred before combining. The blur is a gaussian blur with the specified
|
|
feather radius.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
|
|
@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 %%desc%%' },
|
|
{ name => 'height', type => '0 < float',
|
|
desc => 'The height of the ellipse %%desc%%' },
|
|
{ name => 'operation', type => 'enum GimpChannelOps',
|
|
desc => 'The selection operation: %%desc%%' },
|
|
{ name => 'antialias', type => 'boolean',
|
|
desc => 'Antialiasing %%desc%%' },
|
|
{ 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);
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub free_select {
|
|
$blurb = 'Create a polygonal selection over the specified image.';
|
|
|
|
$help = <<'HELP';
|
|
This tool creates a polygonal selection over the specified image. The polygonal
|
|
region can be either added to, subtracted from, or replace the contents of the
|
|
previous selection mask. The polygon is specified through an array of floating
|
|
point numbers and its length. The length of array must be 2n, where n is the
|
|
number of points. Each point is defined by 2 floating point values which
|
|
correspond to the x and y coordinates. If the final point does not connect to
|
|
the starting point, a connecting segment is automatically added. If the feather
|
|
option is enabled, the resulting selection is blurred before combining. The
|
|
blur is a gaussian blur with the specified feather radius.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
|
|
@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: %%desc%%' },
|
|
{ name => 'antialias', type => 'boolean',
|
|
desc => 'Antialiasing %%desc%%' },
|
|
{ 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);
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub fuzzy_select {
|
|
$blurb = <<'BLURB';
|
|
Create a fuzzy selection starting at the specified coordinates on the specified
|
|
drawable.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This tool creates a fuzzy selection over the specified image. A fuzzy selection
|
|
is determined by a seed fill under the constraints of the specified threshold.
|
|
Essentially, the color at the specified coordinates (in the drawable) is
|
|
measured and the selection expands outwards from that point to any adjacent
|
|
pixels which are not significantly different (as determined by the threshold
|
|
value). This process continues until no more expansion is possible. The
|
|
antialiasing parameter allows the final selection mask to contain intermediate
|
|
values based on close misses to the threshold bar at pixels along the seed fill
|
|
boundary. Feathering can be enabled optionally and is controlled with the
|
|
"feather_radius" paramter. If the sample_merged parameter is TRUE, the data
|
|
of the composite image will be used instead of that for the specified drawable.
|
|
This is equivalent to sampling for colors after merging all visible layers. In
|
|
the case of a merged sampling, the supplied drawable is ignored. If the sample
|
|
is merged, the specified coordinates are relative to the image origin;
|
|
otherwise, they are relative to the drawable's origin.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
|
|
@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 %%desc%%' },
|
|
{ name => 'operation', type => 'enum GimpChannelOps',
|
|
desc => 'The selection operation: %%desc%%' },
|
|
{ name => 'antialias', type => 'boolean',
|
|
desc => 'Antialiasing %%desc%%' },
|
|
{ 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,
|
|
FALSE /* don't select transparent */,
|
|
operation,
|
|
antialias,
|
|
feather,
|
|
feather_radius,
|
|
feather_radius);
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub rect_select {
|
|
$blurb = 'Create a rectangular selection over the specified image;';
|
|
|
|
$help = <<'HELP';
|
|
This tool creates a rectangular selection over the specified image. The
|
|
rectangular region can be either added to, subtracted from, or replace the
|
|
contents of the previous selection mask. If the feather option is enabled, the
|
|
resulting selection is blurred before combining. The blur is a gaussian blur
|
|
with the specified feather radius.
|
|
HELP
|
|
|
|
&std_pdb_misc;
|
|
|
|
@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 %%desc%%' },
|
|
{ name => 'height', type => '0 < float',
|
|
desc => 'The height of the rectangle %%desc%%' },
|
|
{ name => 'operation', type => 'enum GimpChannelOps',
|
|
desc => 'The selection operation: %%desc%%' },
|
|
{ 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);
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
|
|
@headers = qw("core/gimpchannel-select.h" "gimp-intl.h");
|
|
|
|
@procs = qw(by_color_select ellipse_select free_select fuzzy_select
|
|
rect_select);
|
|
|
|
%exports = (app => [@procs], lib => [@procs]);
|
|
|
|
$desc = 'Selection Tool procedures';
|
|
|
|
1;
|