2ff56f8dee
2006-03-14 Michael Natterer <mitch@gimp.org> * tools/pdbgen/pdb/*.pdb: remove lots of perl crack: - create almost all parameter arrays manually instead of generating them from utility functions - removed lots of other utility functions - moved variable declarations into the enclosed code snippets where possible - some cleanup and API doc fixes * tools/pdbgen/stddefs.pdb: added some perl crack: define utility functions for all contributors which own more than some functions, so they can change their names and email addresses at a central place. * app/pdb/[many].c: regenerated. * libgimp/gimpcolor_pdb.c * libgimp/gimpdrawabletransform_pdb.c * libgimp/gimptransformtools_pdb.c * libgimp/gimpvectors_pdb.c: ditto. Changed affect only API docs.
975 lines
34 KiB
Text
975 lines
34 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>
|
|
# Derived from old transform_tools by
|
|
# Joao S. O. Bueno Calligaris <gwidion@mpc.com.br>
|
|
|
|
# Drawable Transformations
|
|
|
|
# shortcuts
|
|
|
|
sub transform_options_args () {
|
|
{ name => 'transform_direction', type => 'enum GimpTransformDirection',
|
|
desc => 'Direction of Transformation: { %%desc%% }' },
|
|
{ name => 'interpolation', type => 'enum GimpInterpolationType',
|
|
desc => 'Type of interpolation: { %%desc%% }' },
|
|
{ name => 'supersample', type => 'boolean',
|
|
desc => 'Whether to perform supersample' },
|
|
{ name => 'recursion_level', type => '0 < int32',
|
|
desc => 'Level of recursion (3 is a nice default)' },
|
|
{ name => 'clip_result', type => 'boolean',
|
|
desc => 'Whether to clip results' }
|
|
}
|
|
|
|
sub transform_options_default_args () {
|
|
{ name => 'interpolate', type => 'boolean',
|
|
desc => 'Whether to use interpolation and supersampling' },
|
|
{ name => 'clip_result', type => 'boolean',
|
|
desc => 'Whether to clip results' }
|
|
}
|
|
|
|
sub transform_invoke {
|
|
my ($progress_text, $assemble_matrix, $variables, $check) = @_;
|
|
my $success_check = 'gimp_item_is_attached (GIMP_ITEM (drawable));';
|
|
|
|
if ($check) {
|
|
$success_check = "(gimp_item_is_attached (GIMP_ITEM (drawable)) &&\n" . $check;
|
|
}
|
|
|
|
%invoke = (
|
|
vars => $variables,
|
|
code => <<"CODE"
|
|
{
|
|
gint x, y, width, height;
|
|
|
|
success = $success_check
|
|
|
|
if (success &&
|
|
gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
|
|
{
|
|
GimpMatrix3 matrix;
|
|
|
|
/* Assemble the transformation matrix */
|
|
$assemble_matrix
|
|
|
|
if (progress)
|
|
gimp_progress_start (progress, _(\"$progress_text\"), FALSE);
|
|
|
|
/* Transform the selection */
|
|
success = gimp_drawable_transform_affine (drawable, context,
|
|
&matrix, transform_direction,
|
|
interpolation, supersample,
|
|
recursion_level,
|
|
clip_result, progress);
|
|
|
|
if (progress)
|
|
gimp_progress_end (progress);
|
|
}
|
|
}
|
|
CODE
|
|
)
|
|
}
|
|
|
|
sub transform_default_invoke {
|
|
my ($progress_text, $assemble_matrix, $variables, $check) = @_;
|
|
my $success_check = 'gimp_item_is_attached (GIMP_ITEM (drawable));';
|
|
|
|
if ($check) {
|
|
$success_check = "(gimp_item_is_attached (GIMP_ITEM (drawable)) &&\n" . $check;
|
|
}
|
|
|
|
%invoke = (
|
|
vars => $variables,
|
|
code => <<"CODE"
|
|
{
|
|
gint x, y, width, height;
|
|
|
|
success = $success_check
|
|
|
|
if (success &&
|
|
gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
|
|
{
|
|
GimpMatrix3 matrix;
|
|
GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
|
|
|
|
/* Assemble the transformation matrix */
|
|
$assemble_matrix
|
|
|
|
if (interpolate)
|
|
interpolation_type = gimp->config->interpolation_type;
|
|
|
|
if (progress)
|
|
gimp_progress_start (progress, _(\"$progress_text\"), FALSE);
|
|
|
|
/* Transform the selection */
|
|
success = gimp_drawable_transform_affine (drawable, context,
|
|
&matrix, GIMP_TRANSFORM_FORWARD,
|
|
interpolation_type,
|
|
interpolate, 3,
|
|
clip_result, progress);
|
|
|
|
if (progress)
|
|
gimp_progress_end (progress);
|
|
}
|
|
}
|
|
CODE
|
|
)
|
|
}
|
|
|
|
|
|
# The defs
|
|
|
|
sub drawable_transform_flip_simple {
|
|
$blurb = <<'BLURB';
|
|
Flip the specified drawable either vertically or horizontally.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure flips the specified drawable if no selection exists. If
|
|
a selection exists, the portion of the drawable which lies under the
|
|
selection is cut from the drawable and made into a floating selection
|
|
which is then flipped. If auto_center is set to true, the flip is
|
|
around the selection's center. Otherwise, the coordinate of the axis
|
|
needs to be specified.
|
|
|
|
The return value is the ID of the flipped drawable. If there was no
|
|
selection, this will be equal to the drawable ID supplied as input.
|
|
Otherwise, this will be the newly created and flipped drawable.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'flip_type', type => &std_orientation_enum,
|
|
desc => 'Type of flip: %%desc%%' },
|
|
{ name => 'auto_center', type => 'boolean',
|
|
desc => 'Whether to automatically position the axis in the selection center' },
|
|
{ name => 'axis', type => 'float',
|
|
desc => 'coord. of flip axis' },
|
|
{ name => 'clip_result', type => 'boolean',
|
|
desc => 'Whether to clip results' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The flipped drawable' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
gint x, y, width, height;
|
|
|
|
success = gimp_item_is_attached (GIMP_ITEM (drawable));
|
|
|
|
if (success &&
|
|
gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
|
|
{
|
|
success = gimp_drawable_transform_flip (drawable, context,
|
|
flip_type,
|
|
auto_center, axis,
|
|
clip_result);
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
|
|
sub drawable_transform_flip {
|
|
$blurb = <<'BLURB';
|
|
Flip the specified drawable around a given line.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure flips the specified drawable if no selection exists. If
|
|
a selection exists, the portion of the drawable which lies under the
|
|
selection is cut from the drawable and made into a floating selection
|
|
which is then flipped. The axis to flip around is specified by
|
|
specifying two points from that line.
|
|
|
|
The return value is the ID of the flipped drawable. If there was no
|
|
selection, this will be equal to the drawable ID supplied as input.
|
|
Otherwise, this will be the newly created and flipped drawable. The clip
|
|
results parameter specifies wheter current selection will affect the transform.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'x0', type => 'float',
|
|
desc => 'horz. coord. of one end of axis' },
|
|
{ name => 'y0', type => 'float',
|
|
desc => 'vert. coord. of one end of axis' },
|
|
{ name => 'x1', type => 'float',
|
|
desc => 'horz. coord. of other end of axis' },
|
|
{ name => 'y1', type => 'float',
|
|
desc => 'vert. coord. of other end of axis' },
|
|
&transform_options_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The flipped drawable' }
|
|
);
|
|
|
|
transform_invoke ("Flipping", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_flip_free (&matrix,
|
|
x, y, width, height, x0, y0, x1, y1);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_flip_default {
|
|
$blurb = <<'BLURB';
|
|
Flip the specified drawable around a given line.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure is a variant of gimp_drawable_transform_flip() which
|
|
uses no interpolation/supersampling at all, or default values
|
|
(depending on the 'interpolate' parameter).
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'x0', type => 'float',
|
|
desc => 'horz. coord. of one end of axis' },
|
|
{ name => 'y0', type => 'float',
|
|
desc => 'vert. coord. of one end of axis' },
|
|
{ name => 'x1', type => 'float',
|
|
desc => 'horz. coord. of other end of axis' },
|
|
{ name => 'y1', type => 'float',
|
|
desc => 'vert. coord. of other end of axis' },
|
|
&transform_options_default_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The flipped drawable' }
|
|
);
|
|
|
|
transform_default_invoke ("Flipping", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_flip_free (&matrix,
|
|
x, y, width, height, x0, y0, x1, y1);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_perspective {
|
|
$blurb = <<'BLURB';
|
|
Perform a possibly non-affine transformation on the specified drawable, with extra parameters.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure performs a possibly non-affine transformation on the
|
|
specified drawable by allowing the corners of the original bounding
|
|
box to be arbitrarily remapped to any values. The specified drawable
|
|
is remapped if no selection exists. However, if a selection exists,
|
|
the portion of the drawable which lies under the selection is cut from
|
|
the drawable and made into a floating selection which is then remapped
|
|
as specified. The return value is the ID of the remapped drawable. If
|
|
there was no selection, this will be equal to the drawable ID supplied
|
|
as input. Otherwise, this will be the newly created and remapped
|
|
drawable. The 4 coordinates specify the new locations of each corner
|
|
of the original bounding box. By specifying these values, any affine
|
|
transformation (rotation, scaling, translation) can be
|
|
affected. Additionally, these values can be specified such that the
|
|
resulting transformed drawable will appear to have been projected via
|
|
a perspective transform.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' }
|
|
);
|
|
|
|
my $pos = 0;
|
|
foreach $where (qw(upper-left upper-right lower-left lower-right)) {
|
|
foreach (qw(x y)) {
|
|
push @inargs,
|
|
{ name => "$_$pos", type => 'float',
|
|
desc => "The new $_ coordinate of $where corner of original
|
|
bounding box",
|
|
alias => "trans_info[\U$_\E$pos]", no_declare => 1 }
|
|
}
|
|
$pos++;
|
|
}
|
|
@inargs = (@inargs,
|
|
&transform_options_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The newly mapped drawable' }
|
|
);
|
|
|
|
transform_invoke ("Perspective", <<CODE, [ 'gdouble trans_info[8]' ]);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_perspective (&matrix,
|
|
x, y, width, height,
|
|
trans_info[X0], trans_info[Y0],
|
|
trans_info[X1], trans_info[Y1],
|
|
trans_info[X2], trans_info[Y2],
|
|
trans_info[X3], trans_info[Y3]);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_perspective_default {
|
|
$blurb = <<'BLURB';
|
|
Perform a possibly non-affine transformation on the specified drawable, with extra parameters.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure is a variant of gimp_drawable_transform_perspective() which
|
|
uses no interpolation/supersampling at all, or default values
|
|
(depending on the 'interpolate' parameter).
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' }
|
|
);
|
|
|
|
my $pos = 0;
|
|
foreach $where (qw(upper-left upper-right lower-left lower-right)) {
|
|
foreach (qw(x y)) {
|
|
push @inargs,
|
|
{ name => "$_$pos", type => 'float',
|
|
desc => "The new $_ coordinate of $where corner of original
|
|
bounding box",
|
|
alias => "trans_info[\U$_\E$pos]", no_declare => 1 }
|
|
}
|
|
$pos++;
|
|
}
|
|
@inargs = (@inargs,
|
|
&transform_options_default_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The newly mapped drawable' }
|
|
);
|
|
|
|
transform_default_invoke ("Perspective", <<CODE, [ 'gdouble trans_info[8]' ]);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_perspective (&matrix,
|
|
x, y, width, height,
|
|
trans_info[X0], trans_info[Y0],
|
|
trans_info[X1], trans_info[Y1],
|
|
trans_info[X2], trans_info[Y2],
|
|
trans_info[X3], trans_info[Y3]);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_rotate_simple {
|
|
$blurb = <<'BLURB';
|
|
Rotate the specified drawable about given coordinates through the specified angle.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This function rotates the specified drawable if no selection
|
|
exists. If a selection exists, the portion of the drawable which lies
|
|
under the selection is cut from the drawable and made into a floating
|
|
selection which is then rotated by the specified amount. The return
|
|
value is the ID of the rotated drawable. If there was no selection,
|
|
this will be equal to the drawable ID supplied as input. Otherwise,
|
|
this will be the newly created and rotated drawable.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'rotate_type', type => 'enum GimpRotationType',
|
|
desc => 'Type of rotation: %%desc%%' },
|
|
{ name => 'auto_center', type => 'boolean',
|
|
desc => 'Whether to automatically rotate around the selection center' },
|
|
{ name => 'center_x', type => 'int32',
|
|
desc => 'The hor. coordinate of the center of rotation' },
|
|
{ name => 'center_y', type => 'int32',
|
|
desc => 'The vert. coordinate of the center of rotation' },
|
|
{ name => 'clip_result', type => 'boolean',
|
|
desc => 'Whether to clip results' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The rotated drawable' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
gint x, y, width, height;
|
|
|
|
success = gimp_item_is_attached (GIMP_ITEM (drawable));
|
|
|
|
if (success &&
|
|
gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
|
|
{
|
|
success = gimp_drawable_transform_rotate (drawable, context,
|
|
rotate_type,
|
|
auto_center, center_x, center_y,
|
|
clip_result);
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub drawable_transform_rotate {
|
|
$blurb = <<'BLURB';
|
|
Rotate the specified drawable about given coordinates through the specified angle.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This function rotates the specified drawable if no selection
|
|
exists. If a selection exists, the portion of the drawable which lies
|
|
under the selection is cut from the drawable and made into a floating
|
|
selection which is then rotated by the specified amount. The return
|
|
value is the ID of the rotated drawable. If there was no selection,
|
|
this will be equal to the drawable ID supplied as input. Otherwise,
|
|
this will be the newly created and rotated drawable.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'angle', type => 'float',
|
|
desc => 'The angle of rotation (radians)' },
|
|
{ name => 'auto_center', type => 'boolean',
|
|
desc => 'Whether to automatically rotate around the selection center' },
|
|
{ name => 'center_x', type => 'int32',
|
|
desc => 'The hor. coordinate of the center of rotation' },
|
|
{ name => 'center_y', type => 'int32',
|
|
desc => 'The vert. coordinate of the center of rotation' },
|
|
&transform_options_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The rotated drawable' }
|
|
);
|
|
|
|
transform_invoke ("Rotating", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
if (auto_center)
|
|
gimp_transform_matrix_rotate_rect (&matrix, x, y, width, height, angle);
|
|
else
|
|
gimp_transform_matrix_rotate_center (&matrix,
|
|
center_x, center_y, angle);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_rotate_default {
|
|
$blurb = <<'BLURB';
|
|
Rotate the specified drawable about given coordinates through the specified angle.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure is a variant of gimp_drawable_transform_rotate() which
|
|
uses no interpolation/supersampling at all, or default values
|
|
(depending on the 'interpolate' parameter).
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'angle', type => 'float',
|
|
desc => 'The angle of rotation (radians)' },
|
|
{ name => 'auto_center', type => 'boolean',
|
|
desc => 'Whether to automatically rotate around the selection center' },
|
|
{ name => 'center_x', type => 'int32',
|
|
desc => 'The hor. coordinate of the center of rotation' },
|
|
{ name => 'center_y', type => 'int32',
|
|
desc => 'The vert. coordinate of the center of rotation' },
|
|
&transform_options_default_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The rotated drawable' }
|
|
);
|
|
|
|
transform_default_invoke ("Rotating", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
if (auto_center)
|
|
gimp_transform_matrix_rotate_rect (&matrix, x, y, width, height, angle);
|
|
else
|
|
gimp_transform_matrix_rotate_center (&matrix,
|
|
center_x, center_y, angle);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_scale {
|
|
$blurb = 'Scale the specified drawable with extra parameters';
|
|
|
|
$help = <<'HELP';
|
|
This procedure scales the specified drawable if no selection
|
|
exists. If a selection exists, the portion of the drawable which lies
|
|
under the selection is cut from the drawable and made into a floating
|
|
selection which is then scaled by the specified amount. The return
|
|
value is the ID of the scaled drawable. If there was no selection,
|
|
this will be equal to the drawable ID supplied as input. Otherwise,
|
|
this will be the newly created and scaled drawable.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'x0', type => 'float',
|
|
desc => 'The new x coordinate of the upper-left corner of the
|
|
scaled region',
|
|
alias => 'trans_info[X0]', no_declare => 1 },
|
|
{ name => 'y0', type => 'float',
|
|
desc => 'The new y coordinate of the upper-left corner of the
|
|
scaled region',
|
|
alias => 'trans_info[Y0]', no_declare => 1 },
|
|
{ name => 'x1', type => 'float',
|
|
desc => 'The new x coordinate of the lower-right corner of the
|
|
scaled region',
|
|
alias => 'trans_info[X1]', no_declare => 1 },
|
|
{ name => 'y1', type => 'float',
|
|
desc => 'The new y coordinate of the lower-right corner of the
|
|
scaled region',
|
|
alias => 'trans_info[Y1]', no_declare => 1 },
|
|
&transform_options_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The scaled drawable' }
|
|
);
|
|
|
|
transform_invoke ("Scaling", <<CODE, [ 'gdouble trans_info[4]' ], <<CODE2);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_scale (&matrix,
|
|
x, y, width, height,
|
|
trans_info[X0],
|
|
trans_info[Y0],
|
|
trans_info[X1] - trans_info[X0],
|
|
trans_info[Y1] - trans_info[Y0]);
|
|
CODE
|
|
trans_info[X0] < trans_info[X1] &&
|
|
trans_info[Y0] < trans_info[Y1]);
|
|
CODE2
|
|
}
|
|
|
|
|
|
sub drawable_transform_scale_default {
|
|
$blurb = 'Scale the specified drawable with extra parameters';
|
|
|
|
$help = <<'HELP';
|
|
This procedure is a variant of gimp_drawable_transform_scale() which
|
|
uses no interpolation/supersampling at all, or default values
|
|
(depending on the 'interpolate' parameter).
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'x0', type => 'float',
|
|
desc => 'The new x coordinate of the upper-left corner of the
|
|
scaled region',
|
|
alias => 'trans_info[X0]', no_declare => 1 },
|
|
{ name => 'y0', type => 'float',
|
|
desc => 'The new y coordinate of the upper-left corner of the
|
|
scaled region',
|
|
alias => 'trans_info[Y0]', no_declare => 1 },
|
|
{ name => 'x1', type => 'float',
|
|
desc => 'The new x coordinate of the lower-right corner of the
|
|
scaled region',
|
|
alias => 'trans_info[X1]', no_declare => 1 },
|
|
{ name => 'y1', type => 'float',
|
|
desc => 'The new y coordinate of the lower-right corner of the
|
|
scaled region',
|
|
alias => 'trans_info[Y1]', no_declare => 1 },
|
|
&transform_options_default_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The scaled drawable' }
|
|
);
|
|
|
|
transform_default_invoke ("Scaling", <<CODE, [ 'gdouble trans_info[4]' ], <<CODE2);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_scale (&matrix,
|
|
x, y, width, height,
|
|
trans_info[X0],
|
|
trans_info[Y0],
|
|
trans_info[X1] - trans_info[X0],
|
|
trans_info[Y1] - trans_info[Y0]);
|
|
CODE
|
|
trans_info[X0] < trans_info[X1] &&
|
|
trans_info[Y0] < trans_info[Y1]);
|
|
CODE2
|
|
}
|
|
|
|
|
|
sub drawable_transform_shear {
|
|
$blurb = <<'BLURB';
|
|
Shear the specified drawable about its center by the specified magnitude, with extra parameters.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure shears the specified drawable if no selection
|
|
exists. If a selection exists, the portion of the drawable which lies
|
|
under the selection is cut from the drawable and made into a floating
|
|
selection which is then sheard by the specified amount. The return
|
|
value is the ID of the sheard drawable. If there was no selection,
|
|
this will be equal to the drawable ID supplied as input. Otherwise,
|
|
this will be the newly created and sheard drawable. The shear type
|
|
parameter indicates whether the shear will be applied horizontally or
|
|
vertically. The magnitude can be either positive or negative and
|
|
indicates the extent (in pixels) to shear by.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'shear_type', type => &std_orientation_enum,
|
|
desc => 'Type of shear: %%desc%%' },
|
|
{ name => 'magnitude', type => 'float',
|
|
desc => 'The magnitude of the shear' },
|
|
&transform_options_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The sheared drawable' }
|
|
);
|
|
|
|
transform_invoke ("Shearing", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_shear (&matrix,
|
|
x, y, width, height,
|
|
shear_type, magnitude);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_shear_default {
|
|
$blurb = <<'BLURB';
|
|
Shear the specified drawable about its center by the specified magnitude, with extra parameters.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure is a variant of gimp_drawable_transform_shear() which
|
|
uses no interpolation/supersampling at all, or default values
|
|
(depending on the 'interpolate' parameter).
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'shear_type', type => &std_orientation_enum,
|
|
desc => 'Type of shear: %%desc%%' },
|
|
{ name => 'magnitude', type => 'float',
|
|
desc => 'The magnitude of the shear' },
|
|
&transform_options_default_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The sheared drawable' }
|
|
);
|
|
|
|
transform_default_invoke ("Shearing", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_shear (&matrix,
|
|
x, y, width, height,
|
|
shear_type, magnitude);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_2d {
|
|
$blurb = <<'BLURB';
|
|
Transform the specified drawable in 2d, with extra parameters.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure transforms the specified drawable if no selection
|
|
exists. If a selection exists, the portion of the drawable which lies
|
|
under the selection is cut from the drawable and made into a floating
|
|
selection which is then transformed. The transformation is done by
|
|
scaling the image by the x and y scale factors about the point
|
|
(source_x, source_y), then rotating around the same point, then
|
|
translating that point to the new position (dest_x, dest_y). The
|
|
return value is the ID of the rotated drawable. If there was no
|
|
selection, this will be equal to the drawable ID supplied as
|
|
input. Otherwise, this will be the newly created and transformed
|
|
drawable.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'source_x', type => 'float',
|
|
desc => 'X coordinate of the transformation center' },
|
|
{ name => 'source_y', type => 'float',
|
|
desc => 'Y coordinate of the transformation center' },
|
|
{ name => 'scale_x', type => 'float',
|
|
desc => 'Amount to scale in x direction' },
|
|
{ name => 'scale_y', type => 'float',
|
|
desc => 'Amount to scale in y direction' },
|
|
{ name => 'angle', type => 'float',
|
|
desc => 'The angle of rotation (radians)' },
|
|
{ name => 'dest_x', type => 'float',
|
|
desc => 'X coordinate of where the center goes' },
|
|
{ name => 'dest_y', type => 'float',
|
|
desc => 'Y coordinate of where the center goes' },
|
|
&transform_options_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The transformed drawable' }
|
|
);
|
|
|
|
transform_invoke ("2D Transform", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_matrix3_translate (&matrix, -source_x, -source_y);
|
|
gimp_matrix3_scale (&matrix, scale_x, scale_y);
|
|
gimp_matrix3_rotate (&matrix, angle);
|
|
gimp_matrix3_translate (&matrix, dest_x, dest_y);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_2d_default {
|
|
$blurb = <<'BLURB';
|
|
Transform the specified drawable in 2d, with extra parameters.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure is a variant of gimp_drawable_transform_2d() which
|
|
uses no interpolation/supersampling at all, or default values
|
|
(depending on the 'interpolate' parameter).
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'source_x', type => 'float',
|
|
desc => 'X coordinate of the transformation center' },
|
|
{ name => 'source_y', type => 'float',
|
|
desc => 'Y coordinate of the transformation center' },
|
|
{ name => 'scale_x', type => 'float',
|
|
desc => 'Amount to scale in x direction' },
|
|
{ name => 'scale_y', type => 'float',
|
|
desc => 'Amount to scale in y direction' },
|
|
{ name => 'angle', type => 'float',
|
|
desc => 'The angle of rotation (radians)' },
|
|
{ name => 'dest_x', type => 'float',
|
|
desc => 'X coordinate of where the center goes' },
|
|
{ name => 'dest_y', type => 'float',
|
|
desc => 'Y coordinate of where the center goes' },
|
|
&transform_options_default_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The transformed drawable' }
|
|
);
|
|
|
|
transform_default_invoke ("2D Transforming", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_matrix3_translate (&matrix, -source_x, -source_y);
|
|
gimp_matrix3_scale (&matrix, scale_x, scale_y);
|
|
gimp_matrix3_rotate (&matrix, angle);
|
|
gimp_matrix3_translate (&matrix, dest_x, dest_y);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_matrix {
|
|
$blurb = <<'BLURB';
|
|
Transform the specified drawable in 2d, with extra parameters.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure transforms the specified drawable if no selection
|
|
exists. If a selection exists, the portion of the drawable which lies
|
|
under the selection is cut from the drawable and made into a floating
|
|
selection which is then transformed. The transformation is done by
|
|
assembling a 3x3 matrix from the coefficients passed. The return
|
|
value is the ID of the rotated drawable. If there was no selection,
|
|
this will be equal to the drawable ID supplied as input. Otherwise,
|
|
this will be the newly created and transformed drawable.
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'coeff_0_0', type => 'float',
|
|
desc => 'coefficient (0,0) of the transformation matrix' },
|
|
{ name => 'coeff_0_1', type => 'float',
|
|
desc => 'coefficient (0,1) of the transformation matrix' },
|
|
{ name => 'coeff_0_2', type => 'float',
|
|
desc => 'coefficient (0,2) of the transformation matrix' },
|
|
{ name => 'coeff_1_0', type => 'float',
|
|
desc => 'coefficient (1,0) of the transformation matrix' },
|
|
{ name => 'coeff_1_1', type => 'float',
|
|
desc => 'coefficient (1,1) of the transformation matrix' },
|
|
{ name => 'coeff_1_2', type => 'float',
|
|
desc => 'coefficient (1,2) of the transformation matrix' },
|
|
{ name => 'coeff_2_0', type => 'float',
|
|
desc => 'coefficient (2,0) of the transformation matrix' },
|
|
{ name => 'coeff_2_1', type => 'float',
|
|
desc => 'coefficient (2,1) of the transformation matrix' },
|
|
{ name => 'coeff_2_2', type => 'float',
|
|
desc => 'coefficient (2,2) of the transformation matrix' },
|
|
&transform_options_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The transformed drawable' }
|
|
);
|
|
|
|
transform_invoke ("2D Transforming", <<CODE);
|
|
matrix.coeff[0][0] = coeff_0_0;
|
|
matrix.coeff[0][1] = coeff_0_1;
|
|
matrix.coeff[0][2] = coeff_0_2;
|
|
matrix.coeff[1][0] = coeff_1_0;
|
|
matrix.coeff[1][1] = coeff_1_1;
|
|
matrix.coeff[1][2] = coeff_1_2;
|
|
matrix.coeff[2][0] = coeff_2_0;
|
|
matrix.coeff[2][1] = coeff_2_1;
|
|
matrix.coeff[2][2] = coeff_2_2;
|
|
CODE
|
|
}
|
|
|
|
|
|
sub drawable_transform_matrix_default {
|
|
$blurb = <<'BLURB';
|
|
Transform the specified drawable in 2d, with extra parameters.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure is a variant of gimp_drawable_transform_matrix() which
|
|
uses no interpolation/supersampling at all, or default values
|
|
(depending on the 'interpolate' parameter).
|
|
HELP
|
|
|
|
&joao_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'drawable', type => 'drawable',
|
|
desc => 'The affected drawable' },
|
|
{ name => 'coeff_0_0', type => 'float',
|
|
desc => 'coefficient (0,0) of the transformation matrix' },
|
|
{ name => 'coeff_0_1', type => 'float',
|
|
desc => 'coefficient (0,1) of the transformation matrix' },
|
|
{ name => 'coeff_0_2', type => 'float',
|
|
desc => 'coefficient (0,2) of the transformation matrix' },
|
|
{ name => 'coeff_1_0', type => 'float',
|
|
desc => 'coefficient (1,0) of the transformation matrix' },
|
|
{ name => 'coeff_1_1', type => 'float',
|
|
desc => 'coefficient (1,1) of the transformation matrix' },
|
|
{ name => 'coeff_1_2', type => 'float',
|
|
desc => 'coefficient (1,2) of the transformation matrix' },
|
|
{ name => 'coeff_2_0', type => 'float',
|
|
desc => 'coefficient (2,0) of the transformation matrix' },
|
|
{ name => 'coeff_2_1', type => 'float',
|
|
desc => 'coefficient (2,1) of the transformation matrix' },
|
|
{ name => 'coeff_2_2', type => 'float',
|
|
desc => 'coefficient (2,2) of the transformation matrix' },
|
|
&transform_options_default_args
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'drawable', type => 'drawable', no_declare => 1,
|
|
desc => 'The transformed drawable' }
|
|
);
|
|
|
|
transform_default_invoke ("2D Transforming", <<CODE);
|
|
matrix.coeff[0][0] = coeff_0_0;
|
|
matrix.coeff[0][1] = coeff_0_1;
|
|
matrix.coeff[0][2] = coeff_0_2;
|
|
matrix.coeff[1][0] = coeff_1_0;
|
|
matrix.coeff[1][1] = coeff_1_1;
|
|
matrix.coeff[1][2] = coeff_1_2;
|
|
matrix.coeff[2][0] = coeff_2_0;
|
|
matrix.coeff[2][1] = coeff_2_1;
|
|
matrix.coeff[2][2] = coeff_2_2;
|
|
CODE
|
|
}
|
|
|
|
|
|
@headers = qw("libgimpmath/gimpmath.h" "config/gimpcoreconfig.h"
|
|
"core/gimp.h" "core/gimp-transform-utils.h" "core/gimpimage.h"
|
|
"core/gimpdrawable.h" "core/gimpdrawable-transform.h"
|
|
"core/gimpprogress.h"
|
|
"gimp-intl.h");
|
|
|
|
@procs = qw(drawable_transform_flip_simple
|
|
drawable_transform_flip drawable_transform_flip_default
|
|
drawable_transform_perspective
|
|
drawable_transform_perspective_default
|
|
drawable_transform_rotate_simple
|
|
drawable_transform_rotate drawable_transform_rotate_default
|
|
drawable_transform_scale drawable_transform_scale_default
|
|
drawable_transform_shear drawable_transform_shear_default
|
|
drawable_transform_2d drawable_transform_2d_default
|
|
drawable_transform_matrix drawable_transform_matrix_default);
|
|
|
|
%exports = (app => [@procs], lib => [@procs]);
|
|
|
|
$desc = 'Transformation procedures';
|
|
|
|
1;
|