summaryrefslogtreecommitdiffstats
path: root/pdb/groups/item_transform.pdb
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--pdb/groups/item_transform.pdb890
1 files changed, 890 insertions, 0 deletions
diff --git a/pdb/groups/item_transform.pdb b/pdb/groups/item_transform.pdb
new file mode 100644
index 0000000..81ee417
--- /dev/null
+++ b/pdb/groups/item_transform.pdb
@@ -0,0 +1,890 @@
+# 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.
+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 flipped around the same 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_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 if (gimp_item_get_linked (item))
+ {
+ gimp_item_linked_flip (item, context,
+ flip_type, axis,
+ pdb_context->transform_resize);
+ }
+ 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. 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
+flipped around the same 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, &center_x, &center_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;
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-03 12:40:37 +0000