Adding upstream version 2.10.22.upstream/2.10.22upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 955 insertions, 0 deletions

diff --git a/pdb/groups/drawable_transform.pdb b/pdb/groups/drawable_transform.pdb
new file mode 100644
index 0000000..92953a8
--- /dev/null
+++ b/pdb/groups/drawable_transform.pdb
@@ -0,0 +1,955 @@
+# 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>
+# Derived  from old transform_tools by
+# Joao S. O. Bueno Calligaris <gwidion@mpc.com.br>
+
+# Drawable Transformations
+
+# shortcuts
+
+sub transform_invoke {
+    my ($progress_text, $assemble_matrix, $check) = @_;
+    my $success_check = 'gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+                                                    GIMP_PDB_ITEM_CONTENT |
+                                                    GIMP_PDB_ITEM_POSITION,
+                                                    error);';
+
+    if ($check) {
+        $success_check = "(gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+                                                      GIMP_PDB_ITEM_CONTENT |
+                                                      GIMP_PDB_ITEM_POSITION, error) && " . $check . ");";
+    }
+
+    %invoke = (
+        code => <<"CODE"
+{
+  gint x, y, width, height;
+
+  success = $success_check
+
+  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;
+      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 */
+$assemble_matrix
+
+      if (progress)
+        gimp_progress_start (progress, FALSE, _(\"$progress_text\"));
+
+      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, transform_direction,
+                                                interpolation,
+                                                clip_result, progress))
+            {
+              success = FALSE;
+            }
+        }
+      else
+        {
+          clip_result = gimp_item_get_clip (GIMP_ITEM (drawable), clip_result);
+
+          gimp_item_transform (GIMP_ITEM (drawable), context, &matrix,
+                               transform_direction,
+                               interpolation,
+                               clip_result, progress);
+        }
+
+      if (progress)
+        gimp_progress_end (progress);
+    }
+}
+CODE
+    )
+}
+
+sub transform_default_invoke {
+    my ($progress_text, $assemble_matrix, $check) = @_;
+    my $success_check = 'gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+                                                    GIMP_PDB_ITEM_CONTENT |
+                                                    GIMP_PDB_ITEM_POSITION, error);';
+
+    if ($check) {
+        $success_check = "(gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
+                                                      GIMP_PDB_ITEM_CONTENT |
+                                                      GIMP_PDB_ITEM_POSITION, error) && " . $check . ");";
+    }
+
+    %invoke = (
+        code => <<"CODE"
+{
+  gint x, y, width, height;
+
+  success = $success_check
+
+  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 */
+$assemble_matrix
+
+      if (interpolate)
+        interpolation_type = gimp->config->interpolation_type;
+
+      if (progress)
+        gimp_progress_start (progress, FALSE, _(\"$progress_text\"));
+
+      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,
+                                                clip_result, progress))
+            {
+              success = FALSE;
+            }
+        }
+      else
+        {
+          clip_result = gimp_item_get_clip (GIMP_ITEM (drawable), clip_result);
+
+          gimp_item_transform (GIMP_ITEM (drawable), context, &matrix,
+                               GIMP_TRANSFORM_FORWARD,
+                               interpolation_type,
+                               clip_result, progress);
+        }
+    
+      if (progress)
+        gimp_progress_end (progress);
+    }
+}
+CODE
+    )
+}
+
+
+# The defs
+
+sub drawable_transform_flip_simple {
+    &std_pdb_deprecated('gimp-item-transform-flip-simple');
+    &joao_pdb_misc('2004', '2.2');
+
+    @inargs = (
+	{ name => 'drawable', type => 'drawable',
+	  desc => 'The affected drawable' },
+        { 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' },
+        { 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_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);
+
+      gimp_transform_get_flip_axis (x, y, width, height,
+                                    flip_type, auto_center, &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, clip_result))
+            {
+              success = FALSE;
+            }
+        }
+      else
+        {
+          clip_result = gimp_item_get_clip (GIMP_ITEM (drawable), clip_result);
+
+          gimp_item_flip (GIMP_ITEM (drawable), context,
+                          flip_type, axis, clip_result);
+        }
+    }
+}
+CODE
+    );
+}
+
+
+sub drawable_transform_flip {
+    &std_pdb_deprecated('gimp-item-transform-flip');
+    &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' },
+	{ name => 'transform_direction', type => 'enum GimpTransformDirection',
+	  desc => 'Direction of transformation' },
+	{ name => 'interpolation', type => 'enum GimpInterpolationType',
+	  desc => 'Type of interpolation' },
+	{ name => 'supersample', type => 'boolean', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'recursion_level', type => '1 <= int32', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'clip_result', type => 'boolean',
+	  desc => 'Whether to clip results' }
+    );
+
+    @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,
+                                       x0, y0, x1, y1);
+CODE
+}
+
+
+sub drawable_transform_flip_default {
+    &std_pdb_deprecated('gimp-item-transform-flip');
+    &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' },
+	{ name => 'interpolate', type => 'boolean',
+	  desc => 'Whether to use interpolation and supersampling' },
+	{ name => 'clip_result', type => 'boolean',
+	  desc => 'Whether to clip results' }
+    );
+
+    @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,
+                                       x0, y0, x1, y1);
+CODE
+}
+
+
+sub drawable_transform_perspective {
+    &std_pdb_deprecated('gimp-item-transform-perspective');
+    &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 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' },
+	{ name => 'transform_direction', type => 'enum GimpTransformDirection',
+	  desc => 'Direction of transformation' },
+	{ name => 'interpolation', type => 'enum GimpInterpolationType',
+	  desc => 'Type of interpolation' },
+	{ name => 'supersample', type => 'boolean', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'recursion_level', type => '1 <= int32', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @outargs = (
+	{ name => 'drawable', type => 'drawable', no_declare => 1,
+	  desc => 'The newly mapped drawable' }
+    );
+
+    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 drawable_transform_perspective_default {
+    &std_pdb_deprecated('gimp-item-transform-perspective');
+    &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 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' },
+	{ name => 'interpolate', type => 'boolean',
+	  desc => 'Whether to use interpolation and supersampling' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @outargs = (
+	{ name => 'drawable', type => 'drawable', no_declare => 1,
+	  desc => 'The newly mapped drawable' }
+    );
+
+    transform_default_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 drawable_transform_rotate_simple {
+    &std_pdb_deprecated('gimp-item-transform-rotate-simple');
+    &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' },
+        { 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_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      cx    = center_x;
+      gdouble      cy    = center_y;
+
+      gimp_transform_get_rotate_center (x, y, width, height,
+                                        auto_center, &cx, &cy);
+
+      if (drawable != GIMP_DRAWABLE (mask)                        &&
+          ! gimp_viewable_get_children (GIMP_VIEWABLE (drawable)) &&
+          ! gimp_channel_is_empty (mask))
+        {
+          if (! gimp_drawable_transform_rotate (drawable, context,
+                                                rotate_type, cx, cy,
+                                                clip_result))
+            {
+              success = FALSE;
+            }
+        }
+      else
+        {
+          clip_result = gimp_item_get_clip (GIMP_ITEM (drawable), clip_result);
+
+          gimp_item_rotate (GIMP_ITEM (drawable), context,
+                            rotate_type, cx, cy,
+                            clip_result);
+        }
+    }
+}
+CODE
+    );
+}
+
+sub drawable_transform_rotate {
+    &std_pdb_deprecated('gimp-item-transform-rotate');
+    &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' },
+	{ name => 'transform_direction', type => 'enum GimpTransformDirection',
+	  desc => 'Direction of transformation' },
+	{ name => 'interpolation', type => 'enum GimpInterpolationType',
+	  desc => 'Type of interpolation' },
+	{ name => 'supersample', type => 'boolean', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'recursion_level', type => '1 <= int32', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @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 {
+    &std_pdb_deprecated('gimp-item-transform-rotate');
+    &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' },
+	{ name => 'interpolate', type => 'boolean',
+	  desc => 'Whether to use interpolation and supersampling' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @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 {
+    &std_pdb_deprecated('gimp-item-transform-scale');
+    &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' },
+	{ 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' },
+	{ name => 'transform_direction', type => 'enum GimpTransformDirection',
+	  desc => 'Direction of transformation' },
+	{ name => 'interpolation', type => 'enum GimpInterpolationType',
+	  desc => 'Type of interpolation' },
+	{ name => 'supersample', type => 'boolean', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'recursion_level', type => '1 <= int32', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @outargs = (
+	{ name => 'drawable', type => 'drawable', no_declare => 1,
+	  desc => 'The scaled drawable' }
+    );
+
+    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 drawable_transform_scale_default {
+    &std_pdb_deprecated('gimp-item-transform-scale');
+    &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' },
+	{ 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' },
+	{ name => 'interpolate', type => 'boolean',
+	  desc => 'Whether to use interpolation and supersampling' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+     );
+
+    @outargs = (
+	{ name => 'drawable', type => 'drawable', no_declare => 1,
+	  desc => 'The scaled drawable' }
+    );
+
+    transform_default_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 drawable_transform_shear {
+    &std_pdb_deprecated('gimp-item-transform-shear');
+    &joao_pdb_misc('2004', '2.2');
+
+    @inargs = (
+	{ name => 'drawable', type => 'drawable',
+	  desc => 'The affected drawable' },
+        { name => 'shear_type',
+	  type => 'enum GimpOrientationType (no GIMP_ORIENTATION_UNKNOWN)',
+          desc => 'Type of shear' },
+        { name => 'magnitude', type => 'float',
+          desc => 'The magnitude of the shear' },
+	{ name => 'transform_direction', type => 'enum GimpTransformDirection',
+	  desc => 'Direction of transformation' },
+	{ name => 'interpolation', type => 'enum GimpInterpolationType',
+	  desc => 'Type of interpolation' },
+	{ name => 'supersample', type => 'boolean', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'recursion_level', type => '1 <= int32', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @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 {
+    &std_pdb_deprecated('gimp-item-transform-shear');
+    &joao_pdb_misc('2004', '2.2');
+
+    @inargs = (
+	{ name => 'drawable', type => 'drawable',
+	  desc => 'The affected drawable' },
+        { name => 'shear_type',
+	  type => 'enum GimpOrientationType (no GIMP_ORIENTATION_UNKNOWN)',
+          desc => 'Type of shear' },
+        { name => 'magnitude', type => 'float',
+          desc => 'The magnitude of the shear' },
+	{ name => 'interpolate', type => 'boolean',
+	  desc => 'Whether to use interpolation and supersampling' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @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 {
+    &std_pdb_deprecated('gimp-item-transform-2d');
+    &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' },
+	{ name => 'transform_direction', type => 'enum GimpTransformDirection',
+	  desc => 'Direction of transformation' },
+	{ name => 'interpolation', type => 'enum GimpInterpolationType',
+	  desc => 'Type of interpolation' },
+	{ name => 'supersample', type => 'boolean', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'recursion_level', type => '1 <= int32', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @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 {
+    &std_pdb_deprecated('gimp-item-transform-2d');
+    &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' },
+	{ name => 'interpolate', type => 'boolean',
+	  desc => 'Whether to use interpolation and supersampling' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @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 {
+    &std_pdb_deprecated('gimp-item-transform-matrix');
+    &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' },
+	{ name => 'transform_direction', type => 'enum GimpTransformDirection',
+	  desc => 'Direction of transformation' },
+	{ name => 'interpolation', type => 'enum GimpInterpolationType',
+	  desc => 'Type of interpolation' },
+	{ name => 'supersample', type => 'boolean', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'recursion_level', type => '1 <= int32', dead => 1,
+	  desc => 'This parameter is ignored' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @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 {
+    &std_pdb_deprecated('gimp-item-transform-matrix');
+    &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' },
+	{ name => 'interpolate', type => 'boolean',
+	  desc => 'Whether to use interpolation and supersampling' },
+	{ name => 'clip_result', type => 'enum GimpTransformResize',
+	  desc => 'How to clip results' }
+    );
+
+    @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/gimpchannel.h"
+              "core/gimpimage.h"
+              "core/gimpdrawable.h"
+              "core/gimpdrawable-transform.h"
+              "core/gimpprogress.h"
+              "gimppdb-utils.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';
+$doc_title = 'gimpdrawabletransform';
+$doc_short_desc = 'Functions to perform transformatrions on drawables.';
+$doc_long_desc = 'Functions to perform transformatrions on drawables.';
+
+1;