# 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 2 of the License, or
# (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

# "Perlized" from C source by Manish Singh <yosh@gimp.org>

sub flip {
    &std_pdb_deprecated ('gimp-drawable-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), error);

  if (success &&
      gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
    {
      success = gimp_drawable_transform_flip (drawable, context,
                                              flip_type, TRUE, 0.0, FALSE);
    }
}
CODE
    );
}

sub perspective {
    &std_pdb_deprecated ('gimp-drawable-transform-perspective-default');

    @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), error);

  if (success &&
      gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
    {
      GimpMatrix3           matrix;
      GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
      gint                  off_x, off_y;

      gimp_item_offsets (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, _("Perspective"), FALSE);

      /* Perspective the selection */
      success = gimp_drawable_transform_affine (drawable, context,
                                                &matrix,
                                                GIMP_TRANSFORM_FORWARD,
                                                interpolation_type, 3,
                                                FALSE, progress);

      if (progress)
        gimp_progress_end (progress);
    }
}
CODE
    );
}

sub rotate {
    &std_pdb_deprecated ('gimp-drawable-transform-rotate-default');

    @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), error);

  if (success &&
      gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
    {
      GimpMatrix3           matrix;
      GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
      gint                  off_x, off_y;

      gimp_item_offsets (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, _("Rotating"), FALSE);

      /* Rotate the selection */
      success = gimp_drawable_transform_affine (drawable, context,
                                                &matrix,
                                                GIMP_TRANSFORM_FORWARD,
                                                interpolation_type, 3,
                                                FALSE, progress);

      if (progress)
        gimp_progress_end (progress);
    }
}
CODE
    );
}

sub scale {
    &std_pdb_deprecated ('gimp-drawable-transform-scale-default');

    @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), error) &&
             x0 < x1 && y0 < y1);

  if (success &&
      gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
    {
      GimpMatrix3           matrix;
      GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
      gint                  off_x, off_y;

      gimp_item_offsets (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, _("Scaling"), FALSE);

      /* Scale the selection */
      success = gimp_drawable_transform_affine (drawable, context,
                                                &matrix,
                                                GIMP_TRANSFORM_FORWARD,
                                                interpolation_type, 3,
                                                FALSE, progress);

      if (progress)
        gimp_progress_end (progress);
    }
}
CODE
    );
}

sub shear {
    &std_pdb_deprecated ('gimp-drawable-transform-shear-default');

    @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), error);

  if (success &&
      gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
    {
      GimpMatrix3           matrix;
      GimpInterpolationType interpolation_type = GIMP_INTERPOLATION_NONE;
      gint                  off_x, off_y;

      gimp_item_offsets (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, _("Shearing"), FALSE);

      /* Shear the selection */
      success = gimp_drawable_transform_affine (drawable, context,
                                                &matrix,
                                                GIMP_TRANSFORM_FORWARD,
                                                interpolation_type, 3,
                                                FALSE, progress);

      if (progress)
        gimp_progress_end (progress);
    }
}
CODE
    );
}

sub transform_2d {
    &std_pdb_deprecated ('gimp-drawable-transform-2d-default');

    @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), error);

  if (success &&
      gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
    {
      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, _("2D Transform"), FALSE);

      /* Transform the selection */
      success = gimp_drawable_transform_affine (drawable, context,
                                                &matrix, GIMP_TRANSFORM_FORWARD,
                                                interpolation_type, 3,
                                                FALSE, progress);

      if (progress)
        gimp_progress_end (progress);
    }
}
CODE
    );
}


@headers = qw("libgimpmath/gimpmath.h"
              "config/gimpcoreconfig.h"
              "core/gimp.h"
              "core/gimp-transform-utils.h"
              "core/gimpimage.h"
              "core/gimpdrawable.h"
              "core/gimpdrawable-transform.h"
              "core/gimpprogress.h"
              "gimppdb-utils.h"
              "gimp-intl.h");

@procs = qw(flip
            perspective
            rotate
            scale
            shear
            transform_2d);

%exports = (app => [@procs], lib => [@procs]);

$desc = 'Transform Tool procedures';

1;