gimp/app/pdb/color_cmds.c

/* The GIMP -- an image manipulation program
 * Copyright (C) 1995-2003 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.
 */

/* NOTE: This file is autogenerated by pdbgen.pl. */

#include "config.h"


#include <glib-object.h>

#include "pdb-types.h"
#include "gimpargument.h"
#include "gimpprocedure.h"
#include "procedural_db.h"
#include "core/gimpparamspecs.h"

#include "base/color-balance.h"
#include "base/colorize.h"
#include "base/curves.h"
#include "base/gimphistogram.h"
#include "base/gimplut.h"
#include "base/hue-saturation.h"
#include "base/levels.h"
#include "base/lut-funcs.h"
#include "base/pixel-processor.h"
#include "base/pixel-region.h"
#include "base/threshold.h"
#include "core/gimp.h"
#include "core/gimpdrawable-desaturate.h"
#include "core/gimpdrawable-equalize.h"
#include "core/gimpdrawable-histogram.h"
#include "core/gimpdrawable-invert.h"
#include "core/gimpdrawable-levels.h"
#include "core/gimpdrawable.h"
#include "core/gimpimage.h"
#include "gimp-intl.h"

static GimpProcedure brightness_contrast_proc;
static GimpProcedure levels_proc;
static GimpProcedure levels_auto_proc;
static GimpProcedure levels_stretch_proc;
static GimpProcedure posterize_proc;
static GimpProcedure desaturate_proc;
static GimpProcedure desaturate_full_proc;
static GimpProcedure equalize_proc;
static GimpProcedure invert_proc;
static GimpProcedure curves_spline_proc;
static GimpProcedure curves_explicit_proc;
static GimpProcedure color_balance_proc;
static GimpProcedure colorize_proc;
static GimpProcedure histogram_proc;
static GimpProcedure hue_saturation_proc;
static GimpProcedure threshold_proc;

void
register_color_procs (Gimp *gimp)
{
  GimpProcedure *procedure;

  /*
   * brightness_contrast
   */
  procedure = gimp_procedure_init (&brightness_contrast_proc, 3, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("brightness",
                                                 "brightness",
                                                 "Brightness adjustment (-127 <= brightness <= 127)",
                                                 -127, 127, -127,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("contrast",
                                                 "contrast",
                                                 "Contrast adjustment (-127 <= contrast <= 127)",
                                                 -127, 127, -127,
                                                 GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * levels
   */
  procedure = gimp_procedure_init (&levels_proc, 7, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_enum ("channel",
                                                  "channel",
                                                  "The channel to modify: { GIMP_HISTOGRAM_VALUE (0), GIMP_HISTOGRAM_RED (1), GIMP_HISTOGRAM_GREEN (2), GIMP_HISTOGRAM_BLUE (3), GIMP_HISTOGRAM_ALPHA (4) }",
                                                  GIMP_TYPE_HISTOGRAM_CHANNEL,
                                                  GIMP_HISTOGRAM_VALUE,
                                                  GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("low-input",
                                                 "low input",
                                                 "Intensity of lowest input (0 <= low_input <= 255)",
                                                 0, 255, 0,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("high-input",
                                                 "high input",
                                                 "Intensity of highest input (0 <= high_input <= 255)",
                                                 0, 255, 0,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("gamma",
                                                    "gamma",
                                                    "Gamma correction factor (0.1 <= gamma <= 10)",
                                                    0.1, 10, 0.1,
                                                    GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("low-output",
                                                 "low output",
                                                 "Intensity of lowest output (0 <= low_output <= 255)",
                                                 0, 255, 0,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("high-output",
                                                 "high output",
                                                 "Intensity of highest output (0 <= high_output <= 255)",
                                                 0, 255, 0,
                                                 GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * levels_auto
   */
  procedure = gimp_procedure_init (&levels_auto_proc, 1, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * levels_stretch
   */
  procedure = gimp_procedure_init (&levels_stretch_proc, 1, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * posterize
   */
  procedure = gimp_procedure_init (&posterize_proc, 2, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("levels",
                                                 "levels",
                                                 "Levels of posterization (2 <= levels <= 255)",
                                                 2, 255, 2,
                                                 GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * desaturate
   */
  procedure = gimp_procedure_init (&desaturate_proc, 1, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * desaturate_full
   */
  procedure = gimp_procedure_init (&desaturate_full_proc, 2, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_enum ("desaturate-mode",
                                                  "desaturate mode",
                                                  "The formula to use to desaturate",
                                                  GIMP_TYPE_DESATURATE_MODE,
                                                  GIMP_DESATURATE_LIGHTNESS,
                                                  GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * equalize
   */
  procedure = gimp_procedure_init (&equalize_proc, 2, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_boolean ("mask-only",
                                                     "mask only",
                                                     "Equalization option",
                                                     FALSE,
                                                     GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * invert
   */
  procedure = gimp_procedure_init (&invert_proc, 1, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * curves_spline
   */
  procedure = gimp_procedure_init (&curves_spline_proc, 4, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_enum ("channel",
                                                  "channel",
                                                  "The channel to modify: { GIMP_HISTOGRAM_VALUE (0), GIMP_HISTOGRAM_RED (1), GIMP_HISTOGRAM_GREEN (2), GIMP_HISTOGRAM_BLUE (3), GIMP_HISTOGRAM_ALPHA (4) }",
                                                  GIMP_TYPE_HISTOGRAM_CHANNEL,
                                                  GIMP_HISTOGRAM_VALUE,
                                                  GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("num-points",
                                                 "num points",
                                                 "The number of values in the control point array (4 <= num_points <= 34)",
                                                 4, 34, 4,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT8ARRAY,
                               gimp_param_spec_array ("control-pts",
                                                      "control pts",
                                                      "The spline control points: { cp1.x, cp1.y, cp2.x, cp2.y, ... }",
                                                      GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * curves_explicit
   */
  procedure = gimp_procedure_init (&curves_explicit_proc, 4, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_enum ("channel",
                                                  "channel",
                                                  "The channel to modify: { GIMP_HISTOGRAM_VALUE (0), GIMP_HISTOGRAM_RED (1), GIMP_HISTOGRAM_GREEN (2), GIMP_HISTOGRAM_BLUE (3), GIMP_HISTOGRAM_ALPHA (4) }",
                                                  GIMP_TYPE_HISTOGRAM_CHANNEL,
                                                  GIMP_HISTOGRAM_VALUE,
                                                  GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("num-bytes",
                                                 "num bytes",
                                                 "The number of bytes in the new curve (always 256)",
                                                 0, G_MAXINT32, 0,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT8ARRAY,
                               gimp_param_spec_array ("curve",
                                                      "curve",
                                                      "The explicit curve",
                                                      GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * color_balance
   */
  procedure = gimp_procedure_init (&color_balance_proc, 6, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_enum ("transfer-mode",
                                                  "transfer mode",
                                                  "Transfer mode: { GIMP_SHADOWS (0), GIMP_MIDTONES (1), GIMP_HIGHLIGHTS (2) }",
                                                  GIMP_TYPE_TRANSFER_MODE,
                                                  GIMP_SHADOWS,
                                                  GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_boolean ("preserve-lum",
                                                     "preserve lum",
                                                     "Preserve luminosity values at each pixel",
                                                     FALSE,
                                                     GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("cyan-red",
                                                    "cyan red",
                                                    "Cyan-Red color balance (-100 <= cyan_red <= 100)",
                                                    -100, 100, -100,
                                                    GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("magenta-green",
                                                    "magenta green",
                                                    "Magenta-Green color balance (-100 <= magenta_green <= 100)",
                                                    -100, 100, -100,
                                                    GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("yellow-blue",
                                                    "yellow blue",
                                                    "Yellow-Blue color balance (-100 <= yellow_blue <= 100)",
                                                    -100, 100, -100,
                                                    GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * colorize
   */
  procedure = gimp_procedure_init (&colorize_proc, 4, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("hue",
                                                    "hue",
                                                    "Hue in degrees (0 <= hue <= 360)",
                                                    0, 360, 0,
                                                    GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("saturation",
                                                    "saturation",
                                                    "Saturation in percent (0 <= saturation <= 100)",
                                                    0, 100, 0,
                                                    GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("lightness",
                                                    "lightness",
                                                    "Lightness in percent (-100 <= lightness <= 100)",
                                                    -100, 100, -100,
                                                    GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * histogram
   */
  procedure = gimp_procedure_init (&histogram_proc, 4, 6);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_enum ("channel",
                                                  "channel",
                                                  "The channel to modify: { GIMP_HISTOGRAM_VALUE (0), GIMP_HISTOGRAM_RED (1), GIMP_HISTOGRAM_GREEN (2), GIMP_HISTOGRAM_BLUE (3), GIMP_HISTOGRAM_ALPHA (4) }",
                                                  GIMP_TYPE_HISTOGRAM_CHANNEL,
                                                  GIMP_HISTOGRAM_VALUE,
                                                  GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("start-range",
                                                 "start range",
                                                 "Start of the intensity measurement range",
                                                 0, 256, 0,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("end-range",
                                                 "end range",
                                                 "End of the intensity measurement range",
                                                 0, 256, 0,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_return_value (procedure,
                                   GIMP_PDB_FLOAT,
                                   g_param_spec_double ("mean",
                                                        "mean",
                                                        "Mean intensity value",
                                                        -G_MAXDOUBLE, G_MAXDOUBLE, 0,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_return_value (procedure,
                                   GIMP_PDB_FLOAT,
                                   g_param_spec_double ("std-dev",
                                                        "std dev",
                                                        "Standard deviation of intensity values",
                                                        -G_MAXDOUBLE, G_MAXDOUBLE, 0,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_return_value (procedure,
                                   GIMP_PDB_FLOAT,
                                   g_param_spec_double ("median",
                                                        "median",
                                                        "Median intensity value",
                                                        -G_MAXDOUBLE, G_MAXDOUBLE, 0,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_return_value (procedure,
                                   GIMP_PDB_FLOAT,
                                   g_param_spec_double ("pixels",
                                                        "pixels",
                                                        "Alpha-weighted pixel count for entire image",
                                                        -G_MAXDOUBLE, G_MAXDOUBLE, 0,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_return_value (procedure,
                                   GIMP_PDB_FLOAT,
                                   g_param_spec_double ("count",
                                                        "count",
                                                        "Alpha-weighted pixel count for range",
                                                        -G_MAXDOUBLE, G_MAXDOUBLE, 0,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_return_value (procedure,
                                   GIMP_PDB_FLOAT,
                                   g_param_spec_double ("percentile",
                                                        "percentile",
                                                        "Percentile that range falls under",
                                                        -G_MAXDOUBLE, G_MAXDOUBLE, 0,
                                                        GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * hue_saturation
   */
  procedure = gimp_procedure_init (&hue_saturation_proc, 5, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_enum ("hue-range",
                                                  "hue range",
                                                  "Range of affected hues: { GIMP_ALL_HUES (0), GIMP_RED_HUES (1), GIMP_YELLOW_HUES (2), GIMP_GREEN_HUES (3), GIMP_CYAN_HUES (4), GIMP_BLUE_HUES (5), GIMP_MAGENTA_HUES (6) }",
                                                  GIMP_TYPE_HUE_RANGE,
                                                  GIMP_ALL_HUES,
                                                  GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("hue-offset",
                                                    "hue offset",
                                                    "Hue offset in degrees (-180 <= hue_offset <= 180)",
                                                    -180, 180, -180,
                                                    GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("lightness",
                                                    "lightness",
                                                    "Lightness modification (-100 <= lightness <= 100)",
                                                    -100, 100, -100,
                                                    GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_FLOAT,
                               g_param_spec_double ("saturation",
                                                    "saturation",
                                                    "Saturation modification (-100 <= saturation <= 100)",
                                                    -100, 100, -100,
                                                    GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

  /*
   * threshold
   */
  procedure = gimp_procedure_init (&threshold_proc, 3, 0);
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_DRAWABLE,
                               gimp_param_spec_item_id ("drawable",
                                                        "drawable",
                                                        "The drawable",
                                                        gimp,
                                                        GIMP_TYPE_DRAWABLE,
                                                        GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("low-threshold",
                                                 "low threshold",
                                                 "The low threshold value (0 <= low_threshold <= 255)",
                                                 0, 255, 0,
                                                 GIMP_PARAM_READWRITE));
  gimp_procedure_add_argument (procedure,
                               GIMP_PDB_INT32,
                               g_param_spec_int ("high-threshold",
                                                 "high threshold",
                                                 "The high threshold value (0 <= high_threshold <= 255)",
                                                 0, 255, 0,
                                                 GIMP_PARAM_READWRITE));
  procedural_db_register (gimp, procedure);

}

static GimpArgument *
brightness_contrast_invoker (GimpProcedure *procedure,
                             Gimp          *gimp,
                             GimpContext   *context,
                             GimpProgress  *progress,
                             GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 brightness;
  gint32 contrast;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  brightness = g_value_get_int (&args[1].value);
  contrast = g_value_get_int (&args[2].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable))
        success = FALSE;

      if (success)
        {
          gint x, y, width, height;

          /* The application should occur only within selection bounds */
          if (gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
            {
              GimpLut     *lut;
              PixelRegion  srcPR, destPR;

              lut = brightness_contrast_lut_new (brightness / 255.0,
                                                 contrast / 127.0,
                                                 gimp_drawable_bytes (drawable));

              pixel_region_init (&srcPR, gimp_drawable_data (drawable),
                                 x, y, width, height, FALSE);
              pixel_region_init (&destPR, gimp_drawable_shadow (drawable),
                                 x, y, width, height, TRUE);

              pixel_regions_process_parallel ((PixelProcessorFunc)
                                              gimp_lut_process,
                                              lut, 2, &srcPR, &destPR);

              gimp_lut_free (lut);

              gimp_drawable_merge_shadow (drawable, TRUE, _("Brightness-Contrast"));
              gimp_drawable_update (drawable, x, y, width, height);
            }
        }
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure brightness_contrast_proc =
{
  TRUE, TRUE,
  "gimp-brightness-contrast",
  "gimp-brightness-contrast",
  "Modify brightness/contrast in the specified drawable.",
  "This procedures allows the brightness and contrast of the specified drawable to be modified. Both 'brightness' and 'contrast' parameters are defined between -127 and 127.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1997",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { brightness_contrast_invoker } }
};

static GimpArgument *
levels_invoker (GimpProcedure *procedure,
                Gimp          *gimp,
                GimpContext   *context,
                GimpProgress  *progress,
                GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 channel;
  gint32 low_input;
  gint32 high_input;
  gdouble gamma;
  gint32 low_output;
  gint32 high_output;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  channel = g_value_get_enum (&args[1].value);
  low_input = g_value_get_int (&args[2].value);
  high_input = g_value_get_int (&args[3].value);
  gamma = g_value_get_double (&args[4].value);
  low_output = g_value_get_int (&args[5].value);
  high_output = g_value_get_int (&args[6].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable) ||
          (! gimp_drawable_has_alpha (drawable) &&
           channel == GIMP_HISTOGRAM_ALPHA) ||
          (gimp_drawable_is_gray (drawable) &&
           channel != GIMP_HISTOGRAM_VALUE && channel != GIMP_HISTOGRAM_ALPHA))
        success = FALSE;

      if (success)
        gimp_drawable_levels (drawable, context,
                              channel,
                              low_input, high_input,
                              gamma,
                              low_output, high_output);
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure levels_proc =
{
  TRUE, TRUE,
  "gimp-levels",
  "gimp-levels",
  "Modifies intensity levels in the specified drawable.",
  "This tool allows intensity levels in the specified drawable to be remapped according to a set of parameters. The low/high input levels specify an initial mapping from the source intensities. The gamma value determines how intensities between the low and high input intensities are interpolated. A gamma value of 1.0 results in a linear interpolation. Higher gamma values result in more high-level intensities. Lower gamma values result in more low-level intensities. The low/high output levels constrain the final intensity mapping--that is, no final intensity will be lower than the low output level and no final intensity will be higher than the high output level. This tool is only valid on RGB color and grayscale images. It will not operate on indexed drawables.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1995-1996",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { levels_invoker } }
};

static GimpArgument *
levels_auto_invoker (GimpProcedure *procedure,
                     Gimp          *gimp,
                     GimpContext   *context,
                     GimpProgress  *progress,
                     GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable))
        success = FALSE;

      if (success)
        gimp_drawable_levels_stretch (drawable, context);
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure levels_auto_proc =
{
  TRUE, TRUE,
  "gimp-levels-auto",
  "gimp-levels-auto",
  "This procedure is deprecated! Use 'gimp_levels_stretch' instead.",
  "This procedure is deprecated! Use 'gimp_levels_stretch' instead.",
  "",
  "",
  "",
  "gimp_levels_stretch",
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { levels_auto_invoker } }
};

static GimpArgument *
levels_stretch_invoker (GimpProcedure *procedure,
                        Gimp          *gimp,
                        GimpContext   *context,
                        GimpProgress  *progress,
                        GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable))
        success = FALSE;

      if (success)
        gimp_drawable_levels_stretch (drawable, context);
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure levels_stretch_proc =
{
  TRUE, TRUE,
  "gimp-levels-stretch",
  "gimp-levels-stretch",
  "Automatically modifies intensity levels in the specified drawable.",
  "This procedure allows intensity levels in the specified drawable to be remapped according to a set of guessed parameters. It is equivalent to clicking the \"Auto\" button in the Levels tool. This procedure is only valid on RGB color and grayscale images. It will not operate on indexed drawables.",
  "Joao S.O. Bueno, Shawn Willden",
  "Joao S.O. Bueno, Shawn Willden",
  "2003",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { levels_stretch_invoker } }
};

static GimpArgument *
posterize_invoker (GimpProcedure *procedure,
                   Gimp          *gimp,
                   GimpContext   *context,
                   GimpProgress  *progress,
                   GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 levels;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  levels = g_value_get_int (&args[1].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable))
        success = FALSE;

      if (success)
        {
          gint x, y, width, height;

          /* The application should occur only within selection bounds */
          if (gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
            {
              GimpLut     *lut;
              PixelRegion  srcPR, destPR;

              lut = posterize_lut_new (levels, gimp_drawable_bytes (drawable));

              pixel_region_init (&srcPR, gimp_drawable_data (drawable),
                                 x, y, width, height, FALSE);
              pixel_region_init (&destPR, gimp_drawable_shadow (drawable),
                                 x, y, width, height, TRUE);

              pixel_regions_process_parallel ((PixelProcessorFunc)
                                              gimp_lut_process,
                                              lut, 2, &srcPR, &destPR);

              gimp_lut_free (lut);

              gimp_drawable_merge_shadow (drawable, TRUE, _("Posterize"));
              gimp_drawable_update (drawable, x, y, width, height);
            }
        }
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure posterize_proc =
{
  TRUE, TRUE,
  "gimp-posterize",
  "gimp-posterize",
  "Posterize the specified drawable.",
  "This procedures reduces the number of shades allows in each intensity channel to the specified 'levels' parameter.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1997",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { posterize_invoker } }
};

static GimpArgument *
desaturate_invoker (GimpProcedure *procedure,
                    Gimp          *gimp,
                    GimpContext   *context,
                    GimpProgress  *progress,
                    GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          ! gimp_drawable_is_rgb (drawable))
        success = FALSE;

      if (success)
        gimp_drawable_desaturate (drawable, GIMP_DESATURATE_LIGHTNESS);
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure desaturate_proc =
{
  TRUE, TRUE,
  "gimp-desaturate",
  "gimp-desaturate",
  "Desaturate the contents of the specified drawable.",
  "This procedure desaturates the contents of the specified drawable. This procedure only works on drawables of type RGB color.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1995-1996",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { desaturate_invoker } }
};

static GimpArgument *
desaturate_full_invoker (GimpProcedure *procedure,
                         Gimp          *gimp,
                         GimpContext   *context,
                         GimpProgress  *progress,
                         GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 desaturate_mode;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  desaturate_mode = g_value_get_enum (&args[1].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          ! gimp_drawable_is_rgb (drawable))
        success = FALSE;

      if (success)
        gimp_drawable_desaturate (drawable, desaturate_mode);
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure desaturate_full_proc =
{
  TRUE, TRUE,
  "gimp-desaturate-full",
  "gimp-desaturate-full",
  "Desaturate the contents of the specified drawable, with the specified formula.",
  "This procedure desaturates the contents of the specified drawable, with the specified formula. This procedure only works on drawables of type RGB color.",
  "Karine Delvare",
  "Karine Delvare",
  "2005",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { desaturate_full_invoker } }
};

static GimpArgument *
equalize_invoker (GimpProcedure *procedure,
                  Gimp          *gimp,
                  GimpContext   *context,
                  GimpProgress  *progress,
                  GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gboolean mask_only;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  mask_only = g_value_get_boolean (&args[1].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable))
        success = FALSE;

      if (success)
        gimp_drawable_equalize (drawable, mask_only);
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure equalize_proc =
{
  TRUE, TRUE,
  "gimp-equalize",
  "gimp-equalize",
  "Equalize the contents of the specified drawable.",
  "This procedure equalizes the contents of the specified drawable. Each intensity channel is equalizeed independently. The equalized intensity is given as inten' = (255 - inten). Indexed color drawables are not valid for this operation. The 'mask_only' option specifies whether to adjust only the area of the image within the selection bounds, or the entire image based on the histogram of the selected area. If there is no selection, the entire image is adjusted based on the histogram for the entire image.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1995-1996",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { equalize_invoker } }
};

static GimpArgument *
invert_invoker (GimpProcedure *procedure,
                Gimp          *gimp,
                GimpContext   *context,
                GimpProgress  *progress,
                GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable))
        success = FALSE;

      if (success)
        gimp_drawable_invert (drawable);
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure invert_proc =
{
  TRUE, TRUE,
  "gimp-invert",
  "gimp-invert",
  "Invert the contents of the specified drawable.",
  "This procedure inverts the contents of the specified drawable. Each intensity channel is inverted independently. The inverted intensity is given as inten' = (255 - inten). Indexed color drawables are not valid for this operation.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1995-1996",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { invert_invoker } }
};

static GimpArgument *
curves_spline_invoker (GimpProcedure *procedure,
                       Gimp          *gimp,
                       GimpContext   *context,
                       GimpProgress  *progress,
                       GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 channel;
  gint32 num_points;
  guint8 *control_pts;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  channel = g_value_get_enum (&args[1].value);
  num_points = g_value_get_int (&args[2].value);
  control_pts = (guint8 *) gimp_value_get_int8array (&args[3].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable) || (num_points & 1) ||
          (! gimp_drawable_has_alpha (drawable) &&
           channel == GIMP_HISTOGRAM_ALPHA) ||
          (gimp_drawable_is_gray (drawable) &&
           channel != GIMP_HISTOGRAM_VALUE && channel != GIMP_HISTOGRAM_ALPHA))
        success = FALSE;

      if (success)
        {
          gint x, y, width, height;

          /* The application should occur only within selection bounds */
          if (gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
            {
              Curves       c;
              gint         j;
              PixelRegion  srcPR, destPR;
              GimpLut     *lut;

              /* FIXME: hack */
              if (gimp_drawable_is_gray (drawable) &&
                  channel == GIMP_HISTOGRAM_ALPHA)
                channel = 1;

              lut = gimp_lut_new ();

              curves_init (&c);

              /*  unset the last point  */
              c.points[channel][CURVES_NUM_POINTS - 1][0] = -1;
              c.points[channel][CURVES_NUM_POINTS - 1][1] = -1;

              for (j = 0; j < num_points / 2; j++)
                {
                  c.points[channel][j][0] = control_pts[j * 2];
                  c.points[channel][j][1] = control_pts[j * 2 + 1];
                }

              curves_calculate_curve (&c, channel);

              gimp_lut_setup (lut,
                              (GimpLutFunc) curves_lut_func,
                              &c,
                              gimp_drawable_bytes (drawable));

              pixel_region_init (&srcPR, gimp_drawable_data (drawable),
                                 x, y, width, height, FALSE);
              pixel_region_init (&destPR, gimp_drawable_shadow (drawable),
                                 x, y, width, height, TRUE);

              pixel_regions_process_parallel ((PixelProcessorFunc)
                                              gimp_lut_process,
                                              lut, 2, &srcPR, &destPR);

              gimp_lut_free (lut);

              gimp_drawable_merge_shadow (drawable, TRUE, _("Curves"));
              gimp_drawable_update (drawable, x, y, width, height);
            }
        }
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure curves_spline_proc =
{
  TRUE, TRUE,
  "gimp-curves-spline",
  "gimp-curves-spline",
  "Modifies the intensity curve(s) for specified drawable.",
  "Modifies the intensity mapping for one channel in the specified drawable. The drawable must be either grayscale or RGB, and the channel can be either an intensity component, or the value. The 'control_pts' parameter is an array of integers which define a set of control points which describe a Catmull Rom spline which yields the final intensity curve. Use the 'gimp_curves_explicit' function to explicitly modify intensity levels.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1995-1996",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { curves_spline_invoker } }
};

static GimpArgument *
curves_explicit_invoker (GimpProcedure *procedure,
                         Gimp          *gimp,
                         GimpContext   *context,
                         GimpProgress  *progress,
                         GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 channel;
  gint32 num_bytes;
  guint8 *curve;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  channel = g_value_get_enum (&args[1].value);
  num_bytes = g_value_get_int (&args[2].value);
  curve = (guint8 *) gimp_value_get_int8array (&args[3].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable) || (num_bytes != 256) ||
          (! gimp_drawable_has_alpha (drawable) &&
           channel == GIMP_HISTOGRAM_ALPHA) ||
          (gimp_drawable_is_gray (drawable) &&
           channel != GIMP_HISTOGRAM_VALUE && channel != GIMP_HISTOGRAM_ALPHA))
        success = FALSE;

      if (success)
        {
          gint x, y, width, height;

          /* The application should occur only within selection bounds */
          if (gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
            {
              Curves       c;
              gint         j;
              PixelRegion  srcPR, destPR;
              GimpLut     *lut;

              /* FIXME: hack */
              if (gimp_drawable_is_gray (drawable) &&
                  channel == GIMP_HISTOGRAM_ALPHA)
                channel = 1;

              lut = gimp_lut_new ();

              curves_init (&c);

              for (j = 0; j < 256; j++)
                c.curve[channel][j] = curve[j];

              gimp_lut_setup (lut,
                              (GimpLutFunc) curves_lut_func,
                              &c,
                              gimp_drawable_bytes (drawable));

              pixel_region_init (&srcPR, gimp_drawable_data (drawable),
                                 x, y, width, height, FALSE);
              pixel_region_init (&destPR, gimp_drawable_shadow (drawable),
                                 x, y, width, height, TRUE);

              pixel_regions_process_parallel ((PixelProcessorFunc)
                                              gimp_lut_process,
                                              lut, 2, &srcPR, &destPR);

              gimp_lut_free (lut);

              gimp_drawable_merge_shadow (drawable, TRUE, _("Curves"));
              gimp_drawable_update (drawable, x, y, width, height);
            }
        }
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure curves_explicit_proc =
{
  TRUE, TRUE,
  "gimp-curves-explicit",
  "gimp-curves-explicit",
  "Modifies the intensity curve(s) for specified drawable.",
  "Modifies the intensity mapping for one channel in the specified drawable. The drawable must be either grayscale or RGB, and the channel can be either an intensity component, or the value. The 'curve' parameter is an array of bytes which explicitly defines how each pixel value in the drawable will be modified. Use the 'gimp_curves_spline' function to modify intensity levels with Catmull Rom splines.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1995-1996",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { curves_explicit_invoker } }
};

static GimpArgument *
color_balance_invoker (GimpProcedure *procedure,
                       Gimp          *gimp,
                       GimpContext   *context,
                       GimpProgress  *progress,
                       GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 transfer_mode;
  gboolean preserve_lum;
  gdouble cyan_red;
  gdouble magenta_green;
  gdouble yellow_blue;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  transfer_mode = g_value_get_enum (&args[1].value);
  preserve_lum = g_value_get_boolean (&args[2].value);
  cyan_red = g_value_get_double (&args[3].value);
  magenta_green = g_value_get_double (&args[4].value);
  yellow_blue = g_value_get_double (&args[5].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable))
        success = FALSE;

      if (success)
        {
          gint x, y, width, height;

          /* The application should occur only within selection bounds */
          if (gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
            {
              ColorBalance  cb;
              PixelRegion   srcPR, destPR;

              color_balance_init (&cb);

              cb.preserve_luminosity = preserve_lum;

              cb.cyan_red[transfer_mode]      = cyan_red;
              cb.magenta_green[transfer_mode] = magenta_green;
              cb.yellow_blue[transfer_mode]   = yellow_blue;

              color_balance_create_lookup_tables (&cb);

              pixel_region_init (&srcPR, gimp_drawable_data (drawable),
                                 x, y, width, height, FALSE);
              pixel_region_init (&destPR, gimp_drawable_shadow (drawable),
                                 x, y, width, height, TRUE);

              pixel_regions_process_parallel ((PixelProcessorFunc) color_balance,
                                              &cb, 2, &srcPR, &destPR);

              gimp_drawable_merge_shadow (drawable, TRUE, _("Color Balance"));
              gimp_drawable_update (drawable, x, y, width, height);
            }
        }
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure color_balance_proc =
{
  TRUE, TRUE,
  "gimp-color-balance",
  "gimp-color-balance",
  "Modify the color balance of the specified drawable.",
  "Modify the color balance of the specified drawable. There are three axis which can be modified: cyan-red, magenta-green, and yellow-blue. Negative values increase the amount of the former, positive values increase the amount of the latter. Color balance can be controlled with the 'transfer_mode' setting, which allows shadows, midtones, and highlights in an image to be affected differently. The 'preserve_lum' parameter, if TRUE, ensures that the luminosity of each pixel remains fixed.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1997",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { color_balance_invoker } }
};

static GimpArgument *
colorize_invoker (GimpProcedure *procedure,
                  Gimp          *gimp,
                  GimpContext   *context,
                  GimpProgress  *progress,
                  GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gdouble hue;
  gdouble saturation;
  gdouble lightness;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  hue = g_value_get_double (&args[1].value);
  saturation = g_value_get_double (&args[2].value);
  lightness = g_value_get_double (&args[3].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          ! gimp_drawable_is_rgb (drawable))
        success = FALSE;

      if (success)
        {
          gint x, y, width, height;

          /* The application should occur only within selection bounds */
          if (gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
            {
              Colorize     colors;
              PixelRegion  srcPR, destPR;

              colorize_init (&colors);

              colors.hue        = hue;
              colors.saturation = saturation;
              colors.lightness  = lightness;

              colorize_calculate (&colors);

              pixel_region_init (&srcPR, gimp_drawable_data (drawable),
                                 x, y, width, height, FALSE);
              pixel_region_init (&destPR, gimp_drawable_shadow (drawable),
                                 x, y, width, height, TRUE);

              pixel_regions_process_parallel ((PixelProcessorFunc) colorize,
                                              &colors, 2, &srcPR, &destPR);

              gimp_drawable_merge_shadow (drawable, TRUE, _("Colorize"));
              gimp_drawable_update (drawable, x, y, width, height);
            }
        }
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure colorize_proc =
{
  TRUE, TRUE,
  "gimp-colorize",
  "gimp-colorize",
  "Render the drawable as a grayscale image seen through a colored glass.",
  "Desatures the drawable, then tints it with the specified color. This tool is only valid on RGB color images. It will not operate on grayscale or indexed drawables.",
  "Sven Neumann <sven@gimp.org>",
  "Sven Neumann",
  "2004",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { colorize_invoker } }
};

static GimpArgument *
histogram_invoker (GimpProcedure *procedure,
                   Gimp          *gimp,
                   GimpContext   *context,
                   GimpProgress  *progress,
                   GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpArgument *return_vals;
  GimpDrawable *drawable;
  gint32 channel;
  gint32 start_range;
  gint32 end_range;
  gdouble mean = 0.0;
  gdouble std_dev = 0.0;
  gdouble median = 0.0;
  gdouble pixels = 0.0;
  gdouble count = 0.0;
  gdouble percentile = 0.0;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  channel = g_value_get_enum (&args[1].value);
  start_range = g_value_get_int (&args[2].value);
  end_range = g_value_get_int (&args[3].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable) ||
          (! gimp_drawable_has_alpha (drawable) &&
           channel == GIMP_HISTOGRAM_ALPHA) ||
          (gimp_drawable_is_gray (drawable) &&
           channel != GIMP_HISTOGRAM_VALUE && channel != GIMP_HISTOGRAM_ALPHA))
        success = FALSE;

      if (success)
        {
          GimpHistogram *histogram = gimp_histogram_new ();

          gimp_drawable_calculate_histogram (drawable, histogram);

          mean       = gimp_histogram_get_mean (histogram, channel,
                                                 start_range, end_range);
          std_dev    = gimp_histogram_get_std_dev (histogram, channel,
                                                   start_range, end_range);
          median     = gimp_histogram_get_median (histogram, channel,
                                                  start_range, end_range);
          pixels     = gimp_histogram_get_count (histogram, channel, 0, 255);
          count      = gimp_histogram_get_count (histogram, channel,
                                                 start_range, end_range);
          percentile = count / pixels;

          gimp_histogram_free (histogram);
        }
    }

  return_vals = gimp_procedure_get_return_values (procedure, success);

  if (success)
    {
      g_value_set_double (&return_vals[1].value, mean);
      g_value_set_double (&return_vals[2].value, std_dev);
      g_value_set_double (&return_vals[3].value, median);
      g_value_set_double (&return_vals[4].value, pixels);
      g_value_set_double (&return_vals[5].value, count);
      g_value_set_double (&return_vals[6].value, percentile);
    }

  return return_vals;
}

static GimpProcedure histogram_proc =
{
  TRUE, TRUE,
  "gimp-histogram",
  "gimp-histogram",
  "Returns information on the intensity histogram for the specified drawable.",
  "This tool makes it possible to gather information about the intensity histogram of a drawable. A channel to examine is first specified. This can be either value, red, green, or blue, depending on whether the drawable is of type color or grayscale. The drawable may not be indexed. Second, a range of intensities are specified. The gimp_histogram function returns statistics based on the pixels in the drawable that fall under this range of values. Mean, standard deviation, median, number of pixels, and percentile are all returned. Additionally, the total count of pixels in the image is returned. Counts of pixels are weighted by any associated alpha values and by the current selection mask. That is, pixels that lie outside an active selection mask will not be counted. Similarly, pixels with transparent alpha values will not be counted.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1995-1996",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { histogram_invoker } }
};

static GimpArgument *
hue_saturation_invoker (GimpProcedure *procedure,
                        Gimp          *gimp,
                        GimpContext   *context,
                        GimpProgress  *progress,
                        GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 hue_range;
  gdouble hue_offset;
  gdouble lightness;
  gdouble saturation;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  hue_range = g_value_get_enum (&args[1].value);
  hue_offset = g_value_get_double (&args[2].value);
  lightness = g_value_get_double (&args[3].value);
  saturation = g_value_get_double (&args[4].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable))
        success = FALSE;

      if (success)
        {
          gint x, y, width, height;

          /* The application should occur only within selection bounds */
          if (gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
            {
              HueSaturation  hs;
              PixelRegion    srcPR, destPR;

              hue_saturation_init (&hs);

              hs.hue[hue_range]        = hue_offset;
              hs.lightness[hue_range]  = lightness;
              hs.saturation[hue_range] = saturation;

              /* Calculate the transfer arrays */
              hue_saturation_calculate_transfers (&hs);

              pixel_region_init (&srcPR, gimp_drawable_data (drawable),
                                 x, y, width, height, FALSE);
              pixel_region_init (&destPR, gimp_drawable_shadow (drawable),
                                 x, y, width, height, TRUE);

              pixel_regions_process_parallel ((PixelProcessorFunc) hue_saturation,
                                              &hs, 2, &srcPR, &destPR);

              gimp_drawable_merge_shadow (drawable, TRUE, _("Hue-Saturation"));
              gimp_drawable_update (drawable, x, y, width, height);
            }
        }
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure hue_saturation_proc =
{
  TRUE, TRUE,
  "gimp-hue-saturation",
  "gimp-hue-saturation",
  "Modify hue, lightness, and saturation in the specified drawable.",
  "This procedures allows the hue, lightness, and saturation in the specified drawable to be modified. The 'hue_range' parameter provides the capability to limit range of affected hues.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1997",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { hue_saturation_invoker } }
};

static GimpArgument *
threshold_invoker (GimpProcedure *procedure,
                   Gimp          *gimp,
                   GimpContext   *context,
                   GimpProgress  *progress,
                   GimpArgument  *args)
{
  gboolean success = TRUE;
  GimpDrawable *drawable;
  gint32 low_threshold;
  gint32 high_threshold;

  drawable = (GimpDrawable *) gimp_value_get_item (&args[0].value, gimp, GIMP_TYPE_DRAWABLE);
  low_threshold = g_value_get_int (&args[1].value);
  high_threshold = g_value_get_int (&args[2].value);

  if (success)
    {
      if (! gimp_item_is_attached (GIMP_ITEM (drawable)) ||
          gimp_drawable_is_indexed (drawable) ||
          (low_threshold >= high_threshold))
        success = FALSE;

      if (success)
        {
          gint x, y, width, height;

          /* The application should occur only within selection bounds */
          if (gimp_drawable_mask_intersect (drawable, &x, &y, &width, &height))
            {
              Threshold   tr;
              PixelRegion srcPR, destPR;

              tr.color          = gimp_drawable_is_rgb (drawable);
              tr.low_threshold  = low_threshold;
              tr.high_threshold = high_threshold;

              pixel_region_init (&srcPR, gimp_drawable_data (drawable),
                                 x, y, width, height, FALSE);
              pixel_region_init (&destPR, gimp_drawable_shadow (drawable),
                                 x, y, width, height, TRUE);

              pixel_regions_process_parallel ((PixelProcessorFunc) threshold,
                                              &tr, 2, &srcPR, &destPR);

              gimp_drawable_merge_shadow (drawable, TRUE, _("Threshold"));
              gimp_drawable_update (drawable, x, y, width, height);
            }
        }
    }

  return gimp_procedure_get_return_values (procedure, success);
}

static GimpProcedure threshold_proc =
{
  TRUE, TRUE,
  "gimp-threshold",
  "gimp-threshold",
  "Threshold the specified drawable.",
  "This procedures generates a threshold map of the specified drawable. All pixels between the values of 'low_threshold' and 'high_threshold' are replaced with white, and all other pixels with black.",
  "Spencer Kimball & Peter Mattis",
  "Spencer Kimball & Peter Mattis",
  "1997",
  NULL,
  GIMP_INTERNAL,
  0, NULL, 0, NULL,
  { { threshold_invoker } }
};