26d696ce9d
"Item links" concept is no more in the GUI so we are progressively removing reference and implementation of this in the core code.
878 lines
29 KiB
Text
878 lines
29 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 <https://www.gnu.org/licenses/>.
|
|
|
|
# "Perlized" from C source by Manish Singh <yosh@gimp.org>
|
|
|
|
# Item Transformations
|
|
|
|
# shortcuts
|
|
|
|
sub transform_invoke {
|
|
my ($progress_text, $assemble_matrix, $check) = @_;
|
|
my $success_check = <<"CODE";
|
|
success = gimp_pdb_item_is_attached (item, NULL,
|
|
GIMP_PDB_ITEM_CONTENT |
|
|
GIMP_PDB_ITEM_POSITION, error);
|
|
CODE
|
|
|
|
if ($check) {
|
|
$success_check = <<"CODE"
|
|
success = (gimp_pdb_item_is_attached (item, NULL,
|
|
GIMP_PDB_ITEM_CONTENT |
|
|
GIMP_PDB_ITEM_POSITION, error) &&
|
|
$check);
|
|
CODE
|
|
}
|
|
|
|
%invoke = (
|
|
code => <<"CODE"
|
|
{
|
|
gint x, y, width, height;
|
|
|
|
$success_check
|
|
|
|
if (success &&
|
|
gimp_item_mask_intersect (item, &x, &y, &width, &height))
|
|
{
|
|
GimpPDBContext *pdb_context = GIMP_PDB_CONTEXT (context);
|
|
GimpImage *image = gimp_item_get_image (item);
|
|
GimpChannel *mask = gimp_image_get_mask (image);
|
|
GimpMatrix3 matrix;
|
|
gint off_x, off_y;
|
|
|
|
gimp_item_get_offset (item, &off_x, &off_y);
|
|
x += off_x;
|
|
y += off_y;
|
|
|
|
/* Assemble the transformation matrix */
|
|
$assemble_matrix
|
|
|
|
if (progress)
|
|
gimp_progress_start (progress, FALSE, _(\"$progress_text\"));
|
|
|
|
if (GIMP_IS_DRAWABLE (item) &&
|
|
item != GIMP_ITEM (mask) &&
|
|
! gimp_viewable_get_children (GIMP_VIEWABLE (item)) &&
|
|
! gimp_channel_is_empty (mask))
|
|
{
|
|
GimpDrawable *drawable;
|
|
|
|
drawable = gimp_drawable_transform_affine (GIMP_DRAWABLE (item),
|
|
context, &matrix,
|
|
pdb_context->transform_direction,
|
|
pdb_context->interpolation,
|
|
pdb_context->transform_resize,
|
|
progress);
|
|
|
|
if (drawable)
|
|
item = GIMP_ITEM (drawable);
|
|
else
|
|
success = FALSE;
|
|
}
|
|
else if (gimp_item_get_linked (item))
|
|
{
|
|
gimp_item_linked_transform (item, context, &matrix,
|
|
pdb_context->transform_direction,
|
|
pdb_context->interpolation,
|
|
pdb_context->transform_resize,
|
|
progress);
|
|
}
|
|
else
|
|
{
|
|
gimp_item_transform (item, context, &matrix,
|
|
pdb_context->transform_direction,
|
|
pdb_context->interpolation,
|
|
gimp_item_get_clip (
|
|
item, pdb_context->transform_resize),
|
|
progress);
|
|
}
|
|
|
|
if (progress)
|
|
gimp_progress_end (progress);
|
|
}
|
|
}
|
|
CODE
|
|
)
|
|
}
|
|
|
|
# The defs
|
|
|
|
sub item_transform_translate {
|
|
$blurb = 'Translate the item by the specified offsets.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure translates the item by the amounts specified in the
|
|
off_x and off_y arguments. These can be negative, and are considered
|
|
offsets from the current position. The offsets will be rounded to the
|
|
nearest pixel unless the item is a path.
|
|
|
|
|
|
If the item is attached to an image and has its linked flag set to
|
|
TRUE, all additional items contained in the image which have the
|
|
linked flag set to TRUE will also be translated by the specified
|
|
offsets.
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2018', '2.10');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The item' },
|
|
{ name => 'off_x', type => 'float',
|
|
desc => "Offset in x direction" },
|
|
{ name => 'off_y', type => 'float',
|
|
desc => "Offset in y direction" }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The translated item' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
if (gimp_pdb_item_is_modifiable (item,
|
|
GIMP_PDB_ITEM_POSITION, error))
|
|
{
|
|
if (gimp_item_get_linked (item) && gimp_item_is_attached (item))
|
|
{
|
|
gimp_item_linked_translate (item, off_x, off_y, TRUE);
|
|
}
|
|
else
|
|
{
|
|
gimp_item_translate (item, off_x, off_y, TRUE);
|
|
}
|
|
}
|
|
else
|
|
success = FALSE;
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
sub item_transform_flip_simple {
|
|
$blurb = <<'BLURB';
|
|
Flip the specified item either vertically or horizontally.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure flips the specified item.
|
|
|
|
|
|
If a selection exists and the item is a drawable, 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 floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be flipped around its center if auto_center is set to TRUE,
|
|
otherwise the coordinate of the axis needs to be specified.
|
|
The return value will be equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2004', '2.2');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ name => 'flip_type',
|
|
type => 'enum GimpOrientationType (no GIMP_ORIENTATION_UNKNOWN)',
|
|
desc => 'Type of flip' },
|
|
{ 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' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The flipped item' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
gint x, y, width, height;
|
|
|
|
success = gimp_pdb_item_is_attached (item, NULL,
|
|
GIMP_PDB_ITEM_CONTENT |
|
|
GIMP_PDB_ITEM_POSITION, error);
|
|
|
|
if (success &&
|
|
gimp_item_mask_intersect (item, &x, &y, &width, &height))
|
|
{
|
|
GimpPDBContext *pdb_context = GIMP_PDB_CONTEXT (context);
|
|
GimpImage *image = gimp_item_get_image (item);
|
|
GimpChannel *mask = gimp_image_get_mask (image);
|
|
gint off_x, off_y;
|
|
|
|
gimp_item_get_offset (item, &off_x, &off_y);
|
|
x += off_x;
|
|
y += off_y;
|
|
|
|
gimp_transform_get_flip_axis (x, y, width, height,
|
|
flip_type, auto_center, &axis);
|
|
|
|
if (GIMP_IS_DRAWABLE (item) &&
|
|
item != GIMP_ITEM (mask) &&
|
|
! gimp_viewable_get_children (GIMP_VIEWABLE (item)) &&
|
|
! gimp_channel_is_empty (mask))
|
|
{
|
|
GimpDrawable *drawable;
|
|
|
|
drawable = gimp_drawable_transform_flip (GIMP_DRAWABLE (item), context,
|
|
flip_type, axis,
|
|
pdb_context->transform_resize);
|
|
|
|
if (drawable)
|
|
item = GIMP_ITEM (drawable);
|
|
else
|
|
success = FALSE;
|
|
}
|
|
else
|
|
{
|
|
gimp_item_flip (item, context,
|
|
flip_type, axis,
|
|
gimp_item_get_clip (
|
|
item, pdb_context->transform_resize));
|
|
}
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
|
|
sub item_transform_flip {
|
|
$blurb = <<'BLURB';
|
|
Flip the specified item around a given line.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure flips the specified item.
|
|
|
|
|
|
If a selection exists and the item is a drawable, 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 floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be flipped around the specified axis.
|
|
The return value will be equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_interpolation(), gimp_context_set_transform_direction(),
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2010', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ 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' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The flipped item' }
|
|
);
|
|
|
|
transform_invoke ("Flipping", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_flip_free (&matrix, x0, y0, x1, y1);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub item_transform_perspective {
|
|
$blurb = <<'BLURB';
|
|
Perform a possibly non-affine transformation on the specified item.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure performs a possibly non-affine transformation on the
|
|
specified item by allowing the corners of the original bounding box to
|
|
be arbitrarily remapped to any values.
|
|
|
|
|
|
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 item will appear to have been projected via a perspective
|
|
transform.
|
|
|
|
|
|
If a selection exists and the item is a drawable, 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 as specified.
|
|
The return value is the ID of the transformed floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be transformed according to the specified mapping.
|
|
Additionally, if the item has its linked flag set to TRUE, all
|
|
additional items contained in the image which have the linked flag set
|
|
to TRUE will also be transformed the same way. The return value will be
|
|
equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_interpolation(), gimp_context_set_transform_direction(),
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2010', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ name => 'x0', type => 'float',
|
|
desc => 'The new x coordinate of upper-left corner of original
|
|
bounding box' },
|
|
{ name => 'y0', type => 'float',
|
|
desc => 'The new y coordinate of upper-left corner of original
|
|
bounding box' },
|
|
{ name => 'x1', type => 'float',
|
|
desc => 'The new x coordinate of upper-right corner of original
|
|
bounding box' },
|
|
{ name => 'y1', type => 'float',
|
|
desc => 'The new y coordinate of upper-right corner of original
|
|
bounding box' },
|
|
{ name => 'x2', type => 'float',
|
|
desc => 'The new x coordinate of lower-left corner of original
|
|
bounding box' },
|
|
{ name => 'y2', type => 'float',
|
|
desc => 'The new y coordinate of lower-left corner of original
|
|
bounding box' },
|
|
{ name => 'x3', type => 'float',
|
|
desc => 'The new x coordinate of lower-right corner of original
|
|
bounding box' },
|
|
{ name => 'y3', type => 'float',
|
|
desc => 'The new y coordinate of lower-right corner of original
|
|
bounding box' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The transformed item' }
|
|
);
|
|
|
|
transform_invoke ("Perspective", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_perspective (&matrix,
|
|
x, y, width, height,
|
|
x0, y0, x1, y1,
|
|
x2, y2, x3, y3);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub item_transform_rotate_simple {
|
|
$blurb = <<'BLURB';
|
|
Rotate the specified item about given coordinates through the specified angle.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This function rotates the specified item.
|
|
|
|
|
|
If a selection exists and the item is a drawable, 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. If auto_center is set to TRUE, the rotation is around the
|
|
selection's center. Otherwise, the coordinate of the center point
|
|
needs to be specified. The return value is the ID of the rotated
|
|
floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be rotated around its center if auto_center is set to TRUE,
|
|
otherwise the coordinate of the center point needs to be specified.
|
|
Additionally, if the item has its linked flag set to TRUE, all
|
|
additional items contained in the image which have the linked flag set
|
|
to TRUE will also be rotated around the same center point. The return
|
|
value will be equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2010', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ name => 'rotate_type', type => 'enum GimpRotationType',
|
|
desc => 'Type of rotation' },
|
|
{ name => 'auto_center', type => 'boolean',
|
|
desc => 'Whether to automatically rotate around the selection center' },
|
|
{ name => 'center_x', type => 'float',
|
|
desc => 'The hor. coordinate of the center of rotation' },
|
|
{ name => 'center_y', type => 'float',
|
|
desc => 'The vert. coordinate of the center of rotation' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The rotated item' }
|
|
);
|
|
|
|
%invoke = (
|
|
code => <<'CODE'
|
|
{
|
|
gint x, y, width, height;
|
|
|
|
success = gimp_pdb_item_is_attached (item, NULL,
|
|
GIMP_PDB_ITEM_CONTENT |
|
|
GIMP_PDB_ITEM_POSITION, error);
|
|
|
|
if (success &&
|
|
gimp_item_mask_intersect (item, &x, &y, &width, &height))
|
|
{
|
|
GimpPDBContext *pdb_context = GIMP_PDB_CONTEXT (context);
|
|
GimpImage *image = gimp_item_get_image (item);
|
|
GimpChannel *mask = gimp_image_get_mask (image);
|
|
gint off_x, off_y;
|
|
|
|
gimp_item_get_offset (item, &off_x, &off_y);
|
|
x += off_x;
|
|
y += off_y;
|
|
|
|
gimp_transform_get_rotate_center (x, y, width, height,
|
|
auto_center, ¢er_x, ¢er_y);
|
|
|
|
if (GIMP_IS_DRAWABLE (item) &&
|
|
item != GIMP_ITEM (mask) &&
|
|
! gimp_viewable_get_children (GIMP_VIEWABLE (item)) &&
|
|
! gimp_channel_is_empty (mask))
|
|
{
|
|
GimpDrawable *drawable;
|
|
|
|
drawable = gimp_drawable_transform_rotate (GIMP_DRAWABLE (item),
|
|
context,
|
|
rotate_type,
|
|
center_x, center_y,
|
|
pdb_context->transform_resize);
|
|
|
|
if (drawable)
|
|
item = GIMP_ITEM (drawable);
|
|
else
|
|
success = FALSE;
|
|
}
|
|
else if (gimp_item_get_linked (item))
|
|
{
|
|
gimp_item_linked_rotate (item, context,
|
|
rotate_type,
|
|
center_x, center_y,
|
|
pdb_context->transform_resize);
|
|
}
|
|
else
|
|
{
|
|
gimp_item_rotate (item, context,
|
|
rotate_type,
|
|
center_x, center_y,
|
|
gimp_item_get_clip (
|
|
item, pdb_context->transform_resize));
|
|
}
|
|
}
|
|
}
|
|
CODE
|
|
);
|
|
}
|
|
|
|
|
|
sub item_transform_rotate {
|
|
$blurb = <<'BLURB';
|
|
Rotate the specified item about given coordinates through the
|
|
specified angle.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This function rotates the specified item.
|
|
|
|
|
|
If a selection exists and the item is a drawable, 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. If auto_center is set to TRUE, the rotation is around the
|
|
selection's center. Otherwise, the coordinate of the center point
|
|
needs to be specified. The return value is the ID of the rotated
|
|
floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be rotated around its center if auto_center is set to TRUE,
|
|
otherwise the coordinate of the center point needs to be specified.
|
|
Additionally, if the item has its linked flag set to TRUE, all
|
|
additional items contained in the image which have the linked flag set
|
|
to TRUE will also be rotated around the same center point. The return
|
|
value will be equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_interpolation(), gimp_context_set_transform_direction(),
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2010', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ 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 => 'float',
|
|
desc => 'The hor. coordinate of the center of rotation' },
|
|
{ name => 'center_y', type => 'float',
|
|
desc => 'The vert. coordinate of the center of rotation' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The rotated item' }
|
|
);
|
|
|
|
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 item_transform_scale {
|
|
$blurb = 'Scale the specified item.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure scales the specified item.
|
|
|
|
|
|
The 2 coordinates specify the new locations of the top-left and
|
|
bottom-roght corners of the original bounding box.
|
|
|
|
|
|
If a selection exists and the item is a drawable, 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 as specified. The
|
|
return value is the ID of the scaled floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be scaled according to the specified coordinates.
|
|
Additionally, if the item has its linked flag set to TRUE, all
|
|
additional items contained in the image which have the linked flag set
|
|
to TRUE will also be scaled the same way. The return value will be
|
|
equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_interpolation(), gimp_context_set_transform_direction(),
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2010', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ name => 'x0', type => 'float',
|
|
desc => 'The new x coordinate of the upper-left corner of the
|
|
scaled region' },
|
|
{ name => 'y0', type => 'float',
|
|
desc => 'The new y coordinate of the upper-left corner of the
|
|
scaled region' },
|
|
{ name => 'x1', type => 'float',
|
|
desc => 'The new x coordinate of the lower-right corner of the
|
|
scaled region' },
|
|
{ name => 'y1', type => 'float',
|
|
desc => 'The new y coordinate of the lower-right corner of the
|
|
scaled region' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The scaled item' }
|
|
);
|
|
|
|
transform_invoke ("Scaling", <<CODE, 'x0 < x1 && y0 < y1');
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_scale (&matrix,
|
|
x, y, width, height,
|
|
x0, y0, x1 - x0, y1 - y0);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub item_transform_shear {
|
|
$blurb = <<'BLURB';
|
|
Shear the specified item about its center by the specified magnitude.
|
|
BLURB
|
|
|
|
$help = <<'HELP';
|
|
This procedure shears the specified item.
|
|
|
|
|
|
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.
|
|
|
|
|
|
If a selection exists and the item is a drawable, the portion of the
|
|
drawable which lies under the selection is cut from the drawable and
|
|
made into a floating selection which is then sheared as specified.
|
|
The return value is the ID of the sheared floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be sheared according to the specified parameters.
|
|
Additionally, if the item has its linked flag set to TRUE, all
|
|
additional items contained in the image which have the linked flag set
|
|
to TRUE will also be sheared the same way. The return value will be
|
|
equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_interpolation(), gimp_context_set_transform_direction(),
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2010', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ name => 'shear_type',
|
|
type => 'enum GimpOrientationType (no GIMP_ORIENTATION_UNKNOWN)',
|
|
desc => 'Type of shear' },
|
|
{ name => 'magnitude', type => 'float',
|
|
desc => 'The magnitude of the shear' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The sheared item' }
|
|
);
|
|
|
|
transform_invoke ("Shearing", <<CODE);
|
|
gimp_matrix3_identity (&matrix);
|
|
gimp_transform_matrix_shear (&matrix,
|
|
x, y, width, height,
|
|
shear_type, magnitude);
|
|
CODE
|
|
}
|
|
|
|
|
|
sub item_transform_2d {
|
|
$blurb = 'Transform the specified item in 2d.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure transforms the specified item.
|
|
|
|
|
|
The transformation is done by scaling 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).
|
|
|
|
|
|
If a selection exists and the item is a drawable, 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 as specified.
|
|
The return value is the ID of the transformed floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be transformed according to the specified parameters.
|
|
Additionally, if the item has its linked flag set to TRUE, all
|
|
additional items contained in the image which have the linked flag set
|
|
to TRUE will also be transformed the same way. The return value will
|
|
be equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_interpolation(), gimp_context_set_transform_direction(),
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2010', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ 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' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The transformed item' }
|
|
);
|
|
|
|
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 item_transform_matrix {
|
|
$blurb = 'Transform the specified item in 2d.';
|
|
|
|
$help = <<'HELP';
|
|
This procedure transforms the specified item.
|
|
|
|
|
|
The transformation is done by assembling a 3x3 matrix from the
|
|
coefficients passed.
|
|
|
|
|
|
If a selection exists and the item is a drawable, 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 as specified.
|
|
The return value is the ID of the transformed floating selection.
|
|
|
|
|
|
If there is no selection or the item is not a drawable, the entire
|
|
item will be transformed according to the specified matrix.
|
|
Additionally, if the item has its linked flag set to TRUE, all
|
|
additional items contained in the image which have the linked flag set
|
|
to TRUE will also be transformed the same way. The return value will
|
|
be equal to the item ID supplied as input.
|
|
|
|
|
|
This procedure is affected by the following context setters:
|
|
gimp_context_set_interpolation(), gimp_context_set_transform_direction(),
|
|
gimp_context_set_transform_resize().
|
|
HELP
|
|
|
|
&mitch_pdb_misc('2010', '2.8');
|
|
|
|
@inargs = (
|
|
{ name => 'item', type => 'item',
|
|
desc => 'The affected item' },
|
|
{ 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' }
|
|
);
|
|
|
|
@outargs = (
|
|
{ name => 'item', type => 'item', no_declare => 1,
|
|
desc => 'The transformed item' }
|
|
);
|
|
|
|
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
|
|
}
|
|
|
|
|
|
@headers = qw("libgimpmath/gimpmath.h"
|
|
"core/gimp-transform-utils.h"
|
|
"core/gimpchannel.h"
|
|
"core/gimpdrawable.h"
|
|
"core/gimpdrawable-transform.h"
|
|
"core/gimpimage.h"
|
|
"core/gimpitem-linked.h"
|
|
"core/gimpprogress.h"
|
|
"gimppdb-utils.h"
|
|
"gimppdbcontext.h"
|
|
"gimp-intl.h");
|
|
|
|
@procs = qw(item_transform_translate
|
|
item_transform_flip_simple
|
|
item_transform_flip
|
|
item_transform_perspective
|
|
item_transform_rotate_simple
|
|
item_transform_rotate
|
|
item_transform_scale
|
|
item_transform_shear
|
|
item_transform_2d
|
|
item_transform_matrix);
|
|
|
|
%exports = (app => [@procs], lib => [@procs]);
|
|
|
|
$desc = 'Transformation procedures';
|
|
$doc_title = 'gimpitemtransform';
|
|
$doc_short_desc = 'Functions to perform transformations on items.';
|
|
$doc_long_desc = 'Functions to perform transformations on items.';
|
|
|
|
1;
|