path: root/pdb/groups/edit.pdb

# 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 edit_cut {
    $blurb = 'Cut from the specified drawable.';

    $help = <<'HELP';
If there is a selection in the image, then the area specified by the
selection is cut from the specified drawable and placed in an internal
GIMP edit buffer. It can subsequently be retrieved using the
gimp_edit_paste() command. If there is no selection, then the
specified drawable will be removed and its contents stored in the
internal GIMP edit buffer. This procedure will fail if the selected area
lies completely outside the bounds of the current drawable and there is
nothing to copy from.
HELP

    &std_pdb_misc;

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The drawable to cut from' }
    );

    @outargs = (
	{ name => 'non_empty', type => 'boolean',
	  desc => 'TRUE if the cut was successful,
                   FALSE if there was nothing to copy from' }
    );

    %invoke = (
	code => <<CODE
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      GimpImage *image    = gimp_item_get_image (GIMP_ITEM (drawable));
      GError    *my_error = NULL;

      non_empty = gimp_edit_cut (image, drawable, context, &my_error) != NULL;

      if (! non_empty)
        {
          gimp_message_literal (gimp,
                                G_OBJECT (progress), GIMP_MESSAGE_WARNING,
                                my_error->message);
          g_clear_error (&my_error);
        }
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_copy {
    $blurb = 'Copy from the specified drawable.';

    $help = <<'HELP';
If there is a selection in the image, then the area specified by the
selection is copied from the specified drawable and placed in an
internal GIMP edit buffer. It can subsequently be retrieved using the
gimp_edit_paste() command.  If there is no selection, then the
specified drawable's contents will be stored in the internal GIMP edit
buffer. This procedure will fail if the selected area lies completely
outside the bounds of the current drawable and there is nothing to
copy from.
HELP

    &std_pdb_misc;

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The drawable to copy from' }
    );

    @outargs = (
	{ name => 'non_empty', type => 'boolean',
	  desc => 'TRUE if the cut was successful,
                   FALSE if there was nothing to copy from' }
    );

    %invoke = (
	code => <<CODE
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL, 0, error))
    {
      GimpImage *image    = gimp_item_get_image (GIMP_ITEM (drawable));
      GError    *my_error = NULL;

      non_empty = gimp_edit_copy (image, drawable, context, &my_error) != NULL;

      if (! non_empty)
        {
          gimp_message_literal (gimp,
                                G_OBJECT (progress), GIMP_MESSAGE_WARNING,
                                my_error->message);
          g_clear_error (&my_error);
        }
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_copy_visible {
    $blurb = 'Copy from the projection.';

    $help = <<'HELP';
If there is a selection in the image, then the area specified by the
selection is copied from the projection and placed in an internal GIMP
edit buffer. It can subsequently be retrieved using the
gimp_edit_paste() command. If there is no selection, then the
projection's contents will be stored in the internal GIMP edit buffer.
HELP

    &mitch_pdb_misc('2004', '2.2');

    @inargs = (
	{ name => 'image', type => 'image',
	  desc => "The image to copy from" }
    );

    @outargs = (
	{ name => 'non_empty', type => 'boolean',
	  desc => 'TRUE if the copy was successful' }
    );

    %invoke = (
	code => <<CODE
{
  GError *my_error = NULL;

  non_empty = gimp_edit_copy_visible (image, context, &my_error) != NULL;

  if (! non_empty)
    {
      gimp_message_literal (gimp,
                            G_OBJECT (progress), GIMP_MESSAGE_WARNING,
                            my_error->message);
      g_clear_error (&my_error);
    }
}
CODE
    );
}

sub edit_paste {
    $blurb = 'Paste buffer to the specified drawable.';

    $help = <<'HELP';
This procedure pastes a copy of the internal GIMP edit buffer to the
specified drawable. The GIMP edit buffer will be empty unless a call
was previously made to either gimp_edit_cut() or gimp_edit_copy(). The
"paste_into" option specifies whether to clear the current image
selection, or to paste the buffer "behind" the selection. This allows
the selection to act as a mask for the pasted buffer. Anywhere that
the selection mask is non-zero, the pasted buffer will show
through. The pasted buffer will be a new layer in the image which is
designated as the image floating selection. If the image has a
floating selection at the time of pasting, the old floating selection
will be anchored to its drawable before the new floating selection is
added. This procedure returns the new floating layer. The resulting
floating selection will already be attached to the specified drawable,
and a subsequent call to floating_sel_attach is not needed.
HELP

    &std_pdb_misc;

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The drawable to paste to' },
        { name => 'paste_into', type => 'boolean',
	  desc => 'Clear selection, or paste behind it?' }
    );

    @outargs = (
	{ name  => 'floating_sel', type  => 'layer',
	  desc  => 'The new floating selection' }
    );

    %invoke = (
	code => <<CODE
{
  GimpObject *paste = gimp_get_clipboard_object (gimp);

  if (paste &&
      gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      floating_sel = gimp_edit_paste (gimp_item_get_image (GIMP_ITEM (drawable)),
                                      drawable, paste,
                                      paste_into ?
                                      GIMP_PASTE_TYPE_FLOATING_INTO :
                                      GIMP_PASTE_TYPE_FLOATING,
                                      -1, -1, -1, -1);

      if (! floating_sel)
        success = FALSE;
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_paste_as_new_image {
    $blurb = 'Paste buffer to a new image.';

    $help = <<'HELP';
This procedure pastes a copy of the internal GIMP edit buffer to a new
image.  The GIMP edit buffer will be empty unless a call was
previously made to either gimp_edit_cut() or gimp_edit_copy(). This
procedure returns the new image or -1 if the edit buffer was empty.
HELP

    &mitch_pdb_misc('2005', '2.10');

    @outargs = (
	{ name => 'image', type => 'image',
	  desc => 'The new image' }
    );
    %invoke = (
	code => <<CODE
{
  GimpObject *paste = gimp_get_clipboard_object (gimp);

  if (paste)
    {
      image = gimp_edit_paste_as_new_image (gimp, paste);

      if (! image)
        success = FALSE;
    }
}
CODE
    );
}

sub edit_named_cut {
    $blurb = 'Cut into a named buffer.';

    $help = <<'HELP';
This procedure works like gimp_edit_cut(), but additionally stores the
cut buffer into a named buffer that will stay available for later
pasting, regardless of any intermediate copy or cut operations.
HELP

    &mitch_pdb_misc('2005', '2.4');

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => "The drawable to cut from" },
        { name => 'buffer_name', type => 'string', non_empty => 1,
          desc => 'The name of the buffer to create' }
    );

    @outargs = (
	{ name => 'real_name', type => 'string',
	  desc => 'The real name given to the buffer, or NULL if the
                   cut failed' }
    );

    %invoke = (
	code => <<CODE
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      GimpImage *image    = gimp_item_get_image (GIMP_ITEM (drawable));
      GError    *my_error = NULL;

      real_name = (gchar *) gimp_edit_named_cut (image, buffer_name,
                                                 drawable, context, &my_error);

      if (real_name)
        {
          real_name = g_strdup (real_name);
        }
      else
        {
          gimp_message_literal (gimp,
                                G_OBJECT (progress), GIMP_MESSAGE_WARNING,
                                my_error->message);
          g_clear_error (&my_error);
        }
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_named_copy {
    $blurb = 'Copy into a named buffer.';

    $help = <<'HELP';
This procedure works like gimp_edit_copy(), but additionally stores the
copied buffer into a named buffer that will stay available for later
pasting, regardless of any intermediate copy or cut operations.
HELP

    &mitch_pdb_misc('2005', '2.4');

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => "The drawable to copy from" },
        { name => 'buffer_name', type => 'string', non_empty => 1,
          desc => 'The name of the buffer to create' }
    );

    @outargs = (
	{ name => 'real_name', type => 'string',
	  desc => 'The real name given to the buffer, or NULL if the
                   copy failed' }
    );

    %invoke = (
	code => <<CODE
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL, 0, error))
    {
      GimpImage *image    = gimp_item_get_image (GIMP_ITEM (drawable));
      GError    *my_error = NULL;

      real_name = (gchar *) gimp_edit_named_copy (image, buffer_name,
                                                  drawable, context, &my_error);

      if (real_name)
        {
          real_name = g_strdup (real_name);
        }
      else
        {
          gimp_message_literal (gimp,
                                G_OBJECT (progress), GIMP_MESSAGE_WARNING,
                                my_error->message);
          g_clear_error (&my_error);
        }
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_named_copy_visible {
    $blurb = 'Copy from the projection into a named buffer.';

    $help = <<'HELP';
This procedure works like gimp_edit_copy_visible(), but additionally
stores the copied buffer into a named buffer that will stay available
for later pasting, regardless of any intermediate copy or cut
operations.
HELP

    &mitch_pdb_misc('2005', '2.4');

    @inargs = (
	{ name => 'image', type => 'image',
	  desc => "The image to copy from" },
        { name => 'buffer_name', type => 'string', non_empty => 1,
          desc => 'The name of the buffer to create' }
    );

    @outargs = (
	{ name => 'real_name', type => 'string',
	  desc => 'The real name given to the buffer, or NULL if the
                   copy failed' }
    );

    %invoke = (
	code => <<CODE
{
  GError *my_error = NULL;

  real_name = (gchar *) gimp_edit_named_copy_visible (image, buffer_name,
                                                      context, &my_error);

  if (real_name)
    {
      real_name = g_strdup (real_name);
    }
  else
    {
      gimp_message_literal (gimp,
                            G_OBJECT (progress), GIMP_MESSAGE_WARNING,
                            my_error->message);
      g_clear_error (&my_error);
    }
}
CODE
    );
}

sub edit_named_paste {
    $blurb = 'Paste named buffer to the specified drawable.';

    $help = <<'HELP';
This procedure works like gimp_edit_paste() but pastes a named buffer
instead of the global buffer.
HELP

    &mitch_pdb_misc('2005', '2.4');

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The drawable to paste to' },
        { name => 'buffer_name', type => 'string',
          desc => 'The name of the buffer to paste' },
        { name => 'paste_into', type => 'boolean',
	  desc => 'Clear selection, or paste behind it?' }
    );

    @outargs = (
	{ name  => 'floating_sel', type  => 'layer',
	  desc  => 'The new floating selection' }
    );

    %invoke = (
	code => <<CODE
{
  GimpBuffer *buffer = gimp_pdb_get_buffer (gimp, buffer_name, error);

  if (buffer &&
      gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      floating_sel = gimp_edit_paste (gimp_item_get_image (GIMP_ITEM (drawable)),
                                      drawable, GIMP_OBJECT (buffer),
                                      paste_into ?
                                      GIMP_PASTE_TYPE_FLOATING_INTO :
                                      GIMP_PASTE_TYPE_FLOATING,
                                      -1, -1, -1, -1);
      if (! floating_sel)
        success = FALSE;
    }
  else
    success = FALSE;
}
CODE
    )
}

sub edit_named_paste_as_new_image {
    $blurb = 'Paste named buffer to a new image.';

    $help = <<'HELP';
This procedure works like gimp_edit_paste_as_new_image() but pastes a
named buffer instead of the global buffer.
HELP

    &mitch_pdb_misc('2005', '2.10');

    @inargs = (
        { name => 'buffer_name', type => 'string',
          desc => 'The name of the buffer to paste' }
    );

    @outargs = (
	{ name => 'image', type => 'image',
	  desc => 'The new image' }
    );

    %invoke = (
	code => <<CODE
{
  GimpBuffer *buffer = gimp_pdb_get_buffer (gimp, buffer_name, error);

  if (buffer)
    {
      image = gimp_edit_paste_as_new_image (gimp, GIMP_OBJECT (buffer));

      if (! image)
        success = FALSE;
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_clear {
    $blurb = 'Clear selected area of drawable.';

    $help = <<'HELP';
This procedure clears the specified drawable. If the drawable has an
alpha channel, the cleared pixels will become transparent. If the
drawable does not have an alpha channel, cleared pixels will be set to
the background color. This procedure only affects regions within a
selection if there is a selection active.
HELP

    &std_pdb_misc;

    $deprecated = 'gimp-drawable-edit-clear';

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The drawable to clear from' }
    );

    %invoke = (
	code => <<CODE
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      gimp_drawable_edit_clear (drawable, context);
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_fill {
    $blurb = 'Fill selected area of drawable.';

    $help = <<'HELP';
This procedure fills the specified drawable with the fill mode. If the
fill mode is foreground, the current foreground color is used. If the
fill mode is background, the current background color is used. Other
fill modes should not be used. This procedure only affects regions
within a selection if there is a selection active. If you want to fill
the whole drawable, regardless of the selection, use
gimp_drawable_fill().
HELP

    &std_pdb_misc;
    $author .= ' & Raphael Quinet';
    $date = '1995-2000';

    $deprecated = 'gimp-drawable-edit-fill';

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => "The drawable to fill to" },
	{ name => 'fill_type', type => 'enum GimpFillType',
	  desc => 'The type of fill' }
    );

    %invoke = (
	code => <<CODE
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      GimpFillOptions *options = gimp_fill_options_new (gimp, NULL, FALSE);

      if (gimp_fill_options_set_by_fill_type (options, context,
                                              fill_type, error))
        {
          gimp_drawable_edit_fill (drawable, options, NULL);
        }
      else
        success = FALSE;

      g_object_unref (options);
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_bucket_fill {
    $blurb = <<'BLURB';
Fill the area specified either by the current selection if there is one, or by
a seed fill starting at the specified coordinates.
BLURB

    $help = <<'HELP';
This tool requires information on the paint application mode, and the
fill mode, which can either be in the foreground color, or in the
currently active pattern. If there is no selection, a seed fill is
executed at the specified coordinates and extends outward in keeping
with the threshold parameter. If there is a selection in the target
image, the threshold, sample merged, x, and y arguments are unused. If
the sample_merged parameter is TRUE, the data of the composite
image will be used instead of that for the specified drawable.  This
is equivalent to sampling for colors after merging all visible
layers. In the case of merged sampling, the x and y coordinates are
relative to the image's origin; otherwise, they are relative to the
drawable's origin.
HELP

    &std_pdb_misc;

    $deprecated = 'gimp-drawable-edit-bucket-fill';

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The affected drawable' },
	{ name => 'fill_mode', type => 'enum GimpBucketFillMode',
	  desc => 'The type of fill' },
	{ name => paint_mode, type => 'enum GimpLayerMode',
          default => 'GIMP_LAYER_MODE_NORMAL',
	  desc => 'The paint application mode' },
	{ name => 'opacity', type => '0 <= float <= 100',
	  desc => 'The opacity of the final bucket fill' },
	{ name => 'threshold', type => '0 <= float <= 255',
	  desc => "The threshold determines how extensive the seed fill will
		   be. It's value is specified in terms of intensity levels.
                   This parameter is only valid when there is no selection in
		   the specified image." },
	{ name => 'sample_merged', type => 'boolean',
	  desc => 'Use the composite image, not the drawable' },
	{ name => 'x', type => 'float',
	  desc => "The x coordinate of this bucket fill's application.
		   This parameter is only valid when there is no selection
		   in the specified image." },
	{ name => 'y', type => 'float',
	  desc => "The y coordinate of this bucket fill's application.
		   This parameter is only valid when there is no selection
		   in the specified image." }
    );

    %invoke = (
        headers => [ qw ("core/gimpdrawable-bucket-fill.h"
	                 "core/gimpchannel.h") ],
	code => <<'CODE'
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      GimpImage       *image   = gimp_item_get_image (GIMP_ITEM (drawable));
      GimpFillOptions *options = gimp_fill_options_new (gimp, NULL, FALSE);

      if (gimp_fill_options_set_by_fill_mode (options, context,
                                              fill_mode, error))
        {
          if (paint_mode == GIMP_LAYER_MODE_OVERLAY_LEGACY)
            paint_mode = GIMP_LAYER_MODE_SOFTLIGHT_LEGACY;

          gimp_context_set_opacity (GIMP_CONTEXT (options), opacity / 100.0);
          gimp_context_set_paint_mode (GIMP_CONTEXT (options), paint_mode);

          if (! gimp_channel_is_empty (gimp_image_get_mask (image)))
            {
              gimp_drawable_edit_fill (drawable, options, NULL);
            }
          else
            {
              gimp_drawable_bucket_fill (drawable, options,
                                         FALSE /* don't fill transparent */,
                                         GIMP_SELECT_CRITERION_COMPOSITE,
                                         threshold / 255.0,
                                         sample_merged,
                                         FALSE /* no diagonal neighbors */,
                                         x, y);
           }
        }
      else
        success = FALSE;

      g_object_unref (options);
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_bucket_fill_full {
    $blurb = <<'BLURB';
Fill the area specified either by the current selection if there is one, or by
a seed fill starting at the specified coordinates.
BLURB

    $help = <<'HELP';
This tool requires information on the paint application mode, and the
fill mode, which can either be in the foreground color, or in the
currently active pattern. If there is no selection, a seed fill is
executed at the specified coordinates and extends outward in keeping
with the threshold parameter. If there is a selection in the target
image, the threshold, sample merged, x, and y arguments are unused. If
the sample_merged parameter is TRUE, the data of the composite
image will be used instead of that for the specified drawable.  This
is equivalent to sampling for colors after merging all visible
layers. In the case of merged sampling, the x and y coordinates are
relative to the image's origin; otherwise, they are relative to the
drawable's origin.
HELP

    &david_pdb_misc('2006', '2.4');

    $deprecated = 'gimp-drawable-edit-bucket-fill';

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The affected drawable' },
	{ name => 'fill_mode', type => 'enum GimpBucketFillMode',
	  desc => 'The type of fill' },
	{ name => paint_mode, type => 'enum GimpLayerMode',
          default => 'GIMP_LAYER_MODE_NORMAL',
	  desc => 'The paint application mode' },
	{ name => 'opacity', type => '0 <= float <= 100',
	  desc => 'The opacity of the final bucket fill' },
	{ name => 'threshold', type => '0 <= float <= 255',
	  desc => "The threshold determines how extensive the seed fill will
		   be. It's value is specified in terms of intensity levels.
                   This parameter is only valid when there is no selection in
		   the specified image." },
	{ name => 'sample_merged', type => 'boolean',
	  desc => 'Use the composite image, not the drawable' },
	{ name => 'fill_transparent', type => 'boolean',
	  desc => "Whether to consider transparent pixels for filling.
	           If TRUE, transparency is considered as a unique fillable
		   color." },
	{ name => 'select_criterion', type => 'enum GimpSelectCriterion',
	  desc => "The criterion used to determine color similarity.
	           SELECT_CRITERION_COMPOSITE is the standard choice.
		   " },
	{ name => 'x', type => 'float',
	  desc => "The x coordinate of this bucket fill's application.
		   This parameter is only valid when there is no selection
		   in the specified image." },
	{ name => 'y', type => 'float',
	  desc => "The y coordinate of this bucket fill's application.
		   This parameter is only valid when there is no selection
		   in the specified image." }
    );

    %invoke = (
        headers => [ qw ("core/gimpdrawable-bucket-fill.h"
	                 "core/gimpchannel.h") ],
	code => <<'CODE'
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      GimpImage       *image   = gimp_item_get_image (GIMP_ITEM (drawable));
      GimpFillOptions *options = gimp_fill_options_new (gimp, NULL, FALSE);

      if (gimp_fill_options_set_by_fill_mode (options, context,
                                              fill_mode, error))
        {
          if (paint_mode == GIMP_LAYER_MODE_OVERLAY_LEGACY)
            paint_mode = GIMP_LAYER_MODE_SOFTLIGHT_LEGACY;

          gimp_context_set_opacity (GIMP_CONTEXT (options), opacity / 100.0);
          gimp_context_set_paint_mode (GIMP_CONTEXT (options), paint_mode);

          if (! gimp_channel_is_empty (gimp_image_get_mask (image)))
            {
              gimp_drawable_edit_fill (drawable, options, NULL);
            }
          else
            {
              gimp_drawable_bucket_fill (drawable, options,
                                         fill_transparent,
                                         select_criterion,
                                         threshold / 255.0,
                                         sample_merged,
                                         FALSE /* no diagonal neighbors */,
                                         x, y);
           }
        }
      else
        success = FALSE;

      g_object_unref (options);
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_blend {
    $blurb = <<'BLURB';
Blend between the starting and ending coordinates with the specified
blend mode and gradient type.
BLURB

    $help = <<'HELP';
This tool requires information on the paint application mode, the
blend mode, and the gradient type. It creates the specified variety of
blend using the starting and ending coordinates as defined for each
gradient type.
For shapeburst gradient types, the context's distance metric is also
relevant and can be updated with gimp_context_set_distance_metric().
HELP

    &std_pdb_misc;

    $deprecated = 'gimp-drawable-edit-gradient-fill';

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The affected drawable' },
        { name => 'blend_mode', type => 'enum GimpBlendMode',
	  desc => 'The type of blend' },
	{ name => 'paint_mode', type => 'enum GimpLayerMode',
          default => 'GIMP_LAYER_MODE_NORMAL',
	  desc => 'The paint application mode' },
	{ name => 'gradient_type',  type => 'enum GimpGradientType',
	  desc => 'The type of gradient' },
	{ name => 'opacity', type => '0 <= float <= 100',
	  desc => 'The opacity of the final blend' },
	{ name => 'offset', type => '0 <= float',
	  desc => 'Offset relates to the starting and ending coordinates
		   specified for the blend. This parameter is mode dependent.' },
	{ name => 'repeat', type => 'enum GimpRepeatMode',
	  desc => 'Repeat mode' },
	{ name => 'reverse', type => 'boolean',
	  desc => 'Use the reverse gradient' },
	{ name => 'supersample', type => 'boolean',
	  desc => 'Do adaptive supersampling' },
	{ name => 'max_depth', type => '1 <= int32 <= 9', no_validate => 1,
	  desc => 'Maximum recursion levels for supersampling' },
	{ name => 'threshold', type => '0 <= float <= 4', no_validate => 1,
	  desc => 'Supersampling threshold' },
	{ name => 'dither', type => 'boolean',
	  desc => 'Use dithering to reduce banding' },
	{ name => 'x1', type => 'float',
	  desc => "The x coordinate of this blend's starting point" },
	{ name => 'y1', type => 'float',
	  desc => "The y coordinate of this blend's starting point" },
	{ name => 'x2', type => 'float',
	  desc => "The x coordinate of this blend's ending point" },
	{ name => 'y2', type => 'float',
	  desc => "The y coordinate of this blend's ending point" }
    );

    %invoke = (
        headers => [ qw("core/gimp-gradients.h" "core/gimpdrawable-gradient.h") ],
	code => <<'CODE'
{
  success = (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                        GIMP_PDB_ITEM_CONTENT, error) &&
             gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error));

  if (success)
    {
      if (supersample)
        {
          if (max_depth < 1 || max_depth > 9)
            success = FALSE;

          if (threshold < 0.0 || threshold > 4.0)
            success = FALSE;
	}
      else
        {
	  max_depth = CLAMP (max_depth, 1, 9);
	  threshold = CLAMP (threshold, 0.0, 4.0);
	}
    }

  if (success)
    {
      GimpGradient *gradient;

      if (paint_mode == GIMP_LAYER_MODE_OVERLAY_LEGACY)
        paint_mode = GIMP_LAYER_MODE_SOFTLIGHT_LEGACY;

      if (progress)
        gimp_progress_start (progress, FALSE, _("Gradient"));

      switch (blend_mode)
        {
        case GIMP_BLEND_FG_BG_RGB:
          gradient = gimp_gradients_get_fg_bg_rgb (context->gimp);
          break;

        case GIMP_BLEND_FG_BG_HSV:
          gradient = gimp_gradients_get_fg_bg_hsv_cw (context->gimp);
          break;

        case GIMP_BLEND_FG_TRANSPARENT:
          gradient = gimp_gradients_get_fg_transparent (context->gimp);
          break;

        case GIMP_BLEND_CUSTOM:
	default:
          gradient = gimp_context_get_gradient (context);
          break;
        }

      gimp_drawable_gradient (drawable,
                              context,
                              gradient,
                              GIMP_PDB_CONTEXT (context)->distance_metric,
                              paint_mode,
                              gradient_type,
                              opacity / 100.0,
                              offset, repeat, reverse,
                              GIMP_GRADIENT_BLEND_RGB_PERCEPTUAL,
                              supersample, max_depth,
                              threshold, dither,
                              x1, y1, x2, y2,
                              progress);

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

sub edit_stroke {
    $blurb = 'Stroke the current selection';

    $help = <<'HELP';
This procedure strokes the current selection, painting along the selection
boundary with the active brush and foreground color. The paint is applied to
the specified drawable regardless of the active selection.
HELP

    &std_pdb_misc;

    $deprecated = 'gimp-drawable-edit-stroke-selection';

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The drawable to stroke to' }
    );

    %invoke = (
	headers => [ qw("core/gimpstrokeoptions.h") ],
	code => <<'CODE'
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error))
    {
      GimpImage         *image = gimp_item_get_image (GIMP_ITEM (drawable));
      GimpStrokeOptions *options;
      GimpPaintOptions  *paint_options;

      options = gimp_pdb_context_get_stroke_options (GIMP_PDB_CONTEXT (context));

      paint_options =
        gimp_pdb_context_get_paint_options (GIMP_PDB_CONTEXT (context), NULL);
      paint_options = gimp_config_duplicate (GIMP_CONFIG (paint_options));

      success = gimp_item_stroke (GIMP_ITEM (gimp_image_get_mask (image)),
                                  drawable, context, options, paint_options,
                                  TRUE, progress, error);

      g_object_unref (paint_options);
    }
  else
    success = FALSE;
}
CODE
    );
}

sub edit_stroke_vectors {
    $blurb = 'Stroke the specified vectors object';

    $help = <<'HELP';
This procedure strokes the specified vectors object, painting along the
path with the active brush and foreground color.
HELP

    &simon_pdb_misc('2006', '2.4');

    $deprecated = 'gimp-drawable-edit-stroke-item';

    @inargs = (
	{ name => 'drawable', type => 'drawable',
	  desc => 'The drawable to stroke to' },
	{ name => 'vectors', type => 'vectors',
          desc => 'The vectors object' }
    );

    %invoke = (
	headers => [ qw("core/gimpstrokeoptions.h") ],
	code => <<'CODE'
{
  if (gimp_pdb_item_is_attached (GIMP_ITEM (drawable), NULL,
                                 GIMP_PDB_ITEM_CONTENT, error) &&
      gimp_pdb_item_is_not_group (GIMP_ITEM (drawable), error) &&
      gimp_pdb_item_is_attached (GIMP_ITEM (vectors),
                                 gimp_item_get_image (GIMP_ITEM (drawable)),
                                 0, error))
    {
      GimpStrokeOptions *options;
      GimpPaintOptions  *paint_options;

      options = gimp_pdb_context_get_stroke_options (GIMP_PDB_CONTEXT (context));

      paint_options =
        gimp_pdb_context_get_paint_options (GIMP_PDB_CONTEXT (context), NULL);
      paint_options = gimp_config_duplicate (GIMP_CONFIG (paint_options));

      success = gimp_item_stroke (GIMP_ITEM (vectors),
                                  drawable, context, options, paint_options,
                                  TRUE, progress, error);

      g_object_unref (paint_options);
    }
  else
    success = FALSE;
}
CODE
    );
}


@headers = qw("libgimpconfig/gimpconfig.h"
              "core/gimp.h"
              "core/gimp-edit.h"
              "core/gimpdrawable-edit.h"
              "core/gimpbuffer.h"
              "core/gimpimage.h"
              "core/gimpprogress.h"
              "gimppdb-utils.h"
              "gimppdbcontext.h"
              "gimp-intl.h");

@procs = qw(edit_cut
            edit_copy
            edit_copy_visible
            edit_paste
            edit_paste_as_new_image
            edit_named_cut
            edit_named_copy
            edit_named_copy_visible
            edit_named_paste
            edit_named_paste_as_new_image
            edit_clear
            edit_fill
            edit_bucket_fill
            edit_bucket_fill_full
	    edit_blend
            edit_stroke
            edit_stroke_vectors);

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

$desc = 'Edit procedures';
$doc_title = 'gimpedit';
$doc_short_desc = 'Edit menu functions (cut, copy, paste, clear, etc.)';
$doc_long_desc = 'Edit menu functions (cut, copy, paste, clear, etc.)';

1;