summaryrefslogtreecommitdiffstats
path: root/pdb/groups/transform_tools.pdb
diff options
context:
space:
mode:
Diffstat (limited to 'pdb/groups/transform_tools.pdb')
-rw-r--r--pdb/groups/transform_tools.pdb556
1 files changed, 556 insertions, 0 deletions
diff --git a/pdb/groups/transform_tools.pdb b/pdb/groups/transform_tools.pdb
new file mode 100644
index 0000000..9e7dd62
--- /dev/null
+++ b/pdb/groups/transform_tools.pdb
@@ -0,0 +1,556 @@
+# 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>
+
+sub flip {
+ &std_pdb_deprecated ('gimp-item-transform-flip-simple');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'flip_type',
+ type => 'enum GimpOrientationType (no GIMP_ORIENTATION_UNKNOWN)',
+ desc => 'Type of flip' }
+ );
+
+ @outargs = (
+ { name => 'drawable', type => 'drawable', no_declare => 1,
+ desc => 'The flipped drawable' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gint x, y, width, height;
+
+ success = gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+ GIMP_PDB_ITEM_CONTENT |
+ GIMP_PDB_ITEM_POSITION, error);
+
+ if (success &&
+ gimp_item_mask_intersect (GIMP_ITEM (drawable), &x, &y, &width, &height))
+ {
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+ GimpChannel *mask = gimp_image_get_mask (image);
+ gdouble axis;
+
+ gimp_transform_get_flip_axis (x, y, width, height,
+ flip_type, TRUE, &axis);
+
+ if (drawable != GIMP_DRAWABLE (mask) &&
+ ! gimp_viewable_get_children (GIMP_VIEWABLE (drawable)) &&
+ ! gimp_channel_is_empty (mask))
+ {
+ if (! gimp_drawable_transform_flip (drawable, context,
+ flip_type, axis, FALSE))
+ {
+ success = FALSE;
+ }
+ }
+ else
+ {
+ gimp_item_flip (GIMP_ITEM (drawable), context,
+ flip_type, axis,
+ gimp_item_get_clip (GIMP_ITEM (drawable), FALSE));
+ }
+ }
+}
+CODE
+ );
+}
+
+sub perspective {
+ &std_pdb_deprecated ('gimp-item-transform-perspective');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'interpolation', type => 'boolean',
+ desc => 'Whether to use interpolation' },
+ { 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 => 'drawable', type => 'drawable', no_declare => 1,
+ desc => 'The newly mapped drawable' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gint x, y, width, height;
+
+ success = gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+ GIMP_PDB_ITEM_CONTENT |
+ GIMP_PDB_ITEM_POSITION, error);
+
+ if (success &&
+ gimp_item_mask_intersect (GIMP_ITEM (drawable), &x, &y, &width, &height))
+ {
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+ GimpChannel *mask = gimp_image_get_mask (image);
+ GimpMatrix3 matrix;
+ GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
+ gint off_x, off_y;
+
+ gimp_item_get_offset (GIMP_ITEM (drawable), &off_x, &off_y);
+
+ x += off_x;
+ y += off_y;
+
+ /* Assemble the transformation matrix */
+ gimp_matrix3_identity (&matrix);
+ gimp_transform_matrix_perspective (&matrix,
+ x, y, width, height,
+ x0, y0, x1, y1,
+ x2, y2, x3, y3);
+
+ if (interpolation)
+ interpolation_type = gimp->config->interpolation_type;
+
+ if (progress)
+ gimp_progress_start (progress, FALSE, _("Perspective"));
+
+ if (drawable != GIMP_DRAWABLE (mask) &&
+ ! gimp_viewable_get_children (GIMP_VIEWABLE (drawable)) &&
+ ! gimp_channel_is_empty (mask))
+ {
+ if (! gimp_drawable_transform_affine (drawable, context,
+ &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation_type,
+ FALSE, progress))
+ {
+ success = FALSE;
+ }
+ }
+ else
+ {
+ gimp_item_transform (GIMP_ITEM (drawable), context, &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation,
+ gimp_item_get_clip (GIMP_ITEM (drawable), FALSE),
+ progress);
+ }
+
+ if (progress)
+ gimp_progress_end (progress);
+ }
+}
+CODE
+ );
+}
+
+sub rotate {
+ &std_pdb_deprecated ('gimp-item-transform-rotate');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'interpolation', type => 'boolean',
+ desc => 'Whether to use interpolation' },
+ { name => 'angle', type => 'float',
+ desc => 'The angle of rotation (radians)' }
+ );
+
+ @outargs = (
+ { name => 'drawable', type => 'drawable', no_declare => 1,
+ desc => 'The rotated drawable' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gint x, y, width, height;
+
+ success = gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+ GIMP_PDB_ITEM_CONTENT |
+ GIMP_PDB_ITEM_POSITION, error);
+
+ if (success &&
+ gimp_item_mask_intersect (GIMP_ITEM (drawable), &x, &y, &width, &height))
+ {
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+ GimpChannel *mask = gimp_image_get_mask (image);
+ GimpMatrix3 matrix;
+ GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
+ gint off_x, off_y;
+
+ gimp_item_get_offset (GIMP_ITEM (drawable), &off_x, &off_y);
+
+ x += off_x;
+ y += off_y;
+
+ /* Assemble the transformation matrix */
+ gimp_matrix3_identity (&matrix);
+ gimp_transform_matrix_rotate_rect (&matrix,
+ x, y, width, height,
+ angle);
+
+ if (interpolation)
+ interpolation_type = gimp->config->interpolation_type;
+
+ if (progress)
+ gimp_progress_start (progress, FALSE, _("Rotating"));
+
+ if (drawable != GIMP_DRAWABLE (mask) &&
+ ! gimp_viewable_get_children (GIMP_VIEWABLE (drawable)) &&
+ ! gimp_channel_is_empty (mask))
+ {
+ if (! gimp_drawable_transform_affine (drawable, context,
+ &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation_type,
+ FALSE, progress))
+ {
+ success = FALSE;
+ }
+ }
+ else
+ {
+ gimp_item_transform (GIMP_ITEM (drawable), context, &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation,
+ gimp_item_get_clip (GIMP_ITEM (drawable), FALSE),
+ progress);
+ }
+
+ if (progress)
+ gimp_progress_end (progress);
+ }
+}
+CODE
+ );
+}
+
+sub scale {
+ &std_pdb_deprecated ('gimp-item-transform-scale');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'interpolation', type => 'boolean',
+ desc => 'Whether to use interpolation' },
+ { 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 => 'drawable', type => 'drawable', no_declare => 1,
+ desc => 'The scaled drawable' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gint x, y, width, height;
+
+ success = (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+ GIMP_PDB_ITEM_CONTENT |
+ GIMP_PDB_ITEM_POSITION, error) &&
+ x0 < x1 && y0 < y1);
+
+ if (success &&
+ gimp_item_mask_intersect (GIMP_ITEM (drawable), &x, &y, &width, &height))
+ {
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+ GimpChannel *mask = gimp_image_get_mask (image);
+ GimpMatrix3 matrix;
+ GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
+ gint off_x, off_y;
+
+ gimp_item_get_offset (GIMP_ITEM (drawable), &off_x, &off_y);
+
+ x += off_x;
+ y += off_y;
+
+ /* Assemble the transformation matrix */
+ gimp_matrix3_identity (&matrix);
+ gimp_transform_matrix_scale (&matrix,
+ x, y, width, height,
+ x0, y0, x1 - x0, y1 - y0);
+
+ if (interpolation)
+ interpolation_type = gimp->config->interpolation_type;
+
+ if (progress)
+ gimp_progress_start (progress, FALSE, _("Scaling"));
+
+ if (drawable != GIMP_DRAWABLE (mask) &&
+ ! gimp_viewable_get_children (GIMP_VIEWABLE (drawable)) &&
+ ! gimp_channel_is_empty (mask))
+ {
+ if (! gimp_drawable_transform_affine (drawable, context,
+ &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation_type,
+ FALSE, progress))
+ {
+ success = FALSE;
+ }
+ }
+ else
+ {
+ gimp_item_transform (GIMP_ITEM (drawable), context, &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation,
+ gimp_item_get_clip (GIMP_ITEM (drawable), FALSE),
+ progress);
+ }
+
+ if (progress)
+ gimp_progress_end (progress);
+ }
+}
+CODE
+ );
+}
+
+sub shear {
+ &std_pdb_deprecated ('gimp-item-transform-shear');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'interpolation', type => 'boolean',
+ desc => 'Whether to use interpolation' },
+ { 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 => 'drawable', type => 'drawable', no_declare => 1,
+ desc => 'The sheared drawable' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gint x, y, width, height;
+
+ success = gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+ GIMP_PDB_ITEM_CONTENT |
+ GIMP_PDB_ITEM_POSITION, error);
+
+ if (success &&
+ gimp_item_mask_intersect (GIMP_ITEM (drawable), &x, &y, &width, &height))
+ {
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+ GimpChannel *mask = gimp_image_get_mask (image);
+ GimpMatrix3 matrix;
+ GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
+ gint off_x, off_y;
+
+ gimp_item_get_offset (GIMP_ITEM (drawable), &off_x, &off_y);
+
+ x += off_x;
+ y += off_y;
+
+ /* Assemble the transformation matrix */
+ gimp_matrix3_identity (&matrix);
+ gimp_transform_matrix_shear (&matrix,
+ x, y, width, height,
+ shear_type, magnitude);
+
+ if (interpolation)
+ interpolation_type = gimp->config->interpolation_type;
+
+ if (progress)
+ gimp_progress_start (progress, FALSE, _("Shearing"));
+
+ if (drawable != GIMP_DRAWABLE (mask) &&
+ ! gimp_viewable_get_children (GIMP_VIEWABLE (drawable)) &&
+ ! gimp_channel_is_empty (mask))
+ {
+ if (! gimp_drawable_transform_affine (drawable, context,
+ &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation_type,
+ FALSE, progress))
+ {
+ success = FALSE;
+ }
+ }
+ else
+ {
+ gimp_item_transform (GIMP_ITEM (drawable), context, &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation,
+ gimp_item_get_clip (GIMP_ITEM (drawable), FALSE),
+ progress);
+ }
+
+ if (progress)
+ gimp_progress_end (progress);
+ }
+}
+CODE
+ );
+}
+
+sub transform_2d {
+ &std_pdb_deprecated ('gimp-item-transform-2d');
+
+ @inargs = (
+ { name => 'drawable', type => 'drawable',
+ desc => 'The affected drawable' },
+ { name => 'interpolation', type => 'boolean',
+ desc => 'Whether to use interpolation' },
+ { 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 centre goes' },
+ { name => 'dest_y', type => 'float',
+ desc => 'Y coordinate of where the centre goes' }
+ );
+
+ @outargs = (
+ { name => 'drawable', type => 'drawable', no_declare => 1,
+ desc => 'The transformed drawable' }
+ );
+
+ %invoke = (
+ code => <<'CODE'
+{
+ gint x, y, width, height;
+
+ success = gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+ GIMP_PDB_ITEM_CONTENT |
+ GIMP_PDB_ITEM_POSITION, error);
+
+ if (success &&
+ gimp_item_mask_intersect (GIMP_ITEM (drawable), &x, &y, &width, &height))
+ {
+ GimpImage *image = gimp_item_get_image (GIMP_ITEM (drawable));
+ GimpChannel *mask = gimp_image_get_mask (image);
+ GimpMatrix3 matrix;
+ GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
+
+ /* Assemble the transformation matrix */
+ 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);
+
+ if (interpolation)
+ interpolation_type = gimp->config->interpolation_type;
+
+ if (progress)
+ gimp_progress_start (progress, FALSE, _("2D Transform"));
+
+ if (drawable != GIMP_DRAWABLE (mask) &&
+ ! gimp_viewable_get_children (GIMP_VIEWABLE (drawable)) &&
+ ! gimp_channel_is_empty (mask))
+ {
+ if (! gimp_drawable_transform_affine (drawable, context,
+ &matrix, GIMP_TRANSFORM_FORWARD,
+ interpolation_type,
+ FALSE, progress))
+ {
+ success = FALSE;
+ }
+ }
+ else
+ {
+ gimp_item_transform (GIMP_ITEM (drawable), context, &matrix,
+ GIMP_TRANSFORM_FORWARD,
+ interpolation,
+ gimp_item_get_clip (GIMP_ITEM (drawable), FALSE),
+ progress);
+ }
+
+ if (progress)
+ gimp_progress_end (progress);
+ }
+}
+CODE
+ );
+}
+
+
+@headers = qw("libgimpmath/gimpmath.h"
+ "config/gimpcoreconfig.h"
+ "core/gimp.h"
+ "core/gimpchannel.h"
+ "core/gimp-transform-utils.h"
+ "core/gimpimage.h"
+ "core/gimpdrawable.h"
+ "core/gimpdrawable-transform.h"
+ "core/gimpprogress.h"
+ "gimppdb-utils.h"
+ "gimp-intl.h");
+
+@procs = qw(flip
+ perspective
+ rotate
+ scale
+ shear
+ transform_2d);
+
+%exports = (app => [@procs], lib => [@procs]);
+
+$desc = 'Transform Tool procedures';
+$doc_title = 'gimptransformtools';
+$doc_short_desc = 'Access to toolbox transform tools.';
+$doc_long_desc = 'Functions giving access to toolbox transform tools.';
+
+1;
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-09 00:22:13 +0000