/*
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
 * This is a plug-in for the GIMP.
 *
 * Colormap-Rotation plug-in. Exchanges two color ranges.
 *
 * Copyright (C) 1999 Sven Anders (anderss@fmi.uni-passau.de)
 *                    Based on code from Pavel Grinfeld (pavel@ml.com)
 *
 *
 * 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.
 */

/*---------------------------------------------------------------------------
 * Change log:
 * 
 * Version 2.0, 04 April 1999.
 *  Nearly complete rewrite, made plug-in stable.
 *  (Works with GIMP 1.1 and GTK+ 1.2)
 *
 * Version 1.0, 27 March 1997.
 *  Initial (unstable) release by Pavel Grinfeld
 *
 *---------------------------------------------------------------------------*/

#include "config.h"

#include <stdio.h>
#include <stdlib.h>

#ifdef __GNUC__
#warning GTK_DISABLE_DEPRECATED
#endif
#undef GTK_DISABLE_DEPRECATED

#include <gtk/gtk.h>

#include "libgimpmath/gimpmath.h"
#include "libgimp/gimp.h"

#include "rcm.h"
#include "rcm_misc.h"
#include "rcm_gdk.h"
#include "rcm_dialog.h"
#include "rcm_callback.h"

#include "libgimp/stdplugins-intl.h"

#include "pixmaps/rcm_ccw.xpm"
#include "pixmaps/rcm_cw.xpm"


/*---------------------------------------------------------------------------*/
/* Misc functions */
/*---------------------------------------------------------------------------*/

float 
rcm_units_factor (gint units)
{
  switch (units)
  {
    case DEGREES:         return 180.0 / G_PI;
    case RADIANS:         return 1.0;
    case RADIANS_OVER_PI: return 1.0 / G_PI;
    default:              return -1;
  }
}

gchar *
rcm_units_string (gint units)
{
  switch (units)
  {
    case DEGREES:         return "deg";
    case RADIANS:         return "rad";
    case RADIANS_OVER_PI: return "rad/pi";
    default:              return "(unknown)";
  }
}

void 
rcm_set_pixmap (GtkWidget **widget, 
		GtkWidget  *parent, 
		GtkWidget  *label_box, 
		char      **pixmap_data)
{
  GdkPixmap *pixmap;
  GdkBitmap *mask;
  GtkStyle  *style;
 
  /* create pixmap */

  style = gtk_widget_get_style(parent);
  pixmap = gdk_pixmap_create_from_xpm_d(parent->window, &mask,
					&style->bg[GTK_STATE_NORMAL], pixmap_data);

  if (*widget != NULL)
  {
    gtk_widget_destroy(*widget);
  }

  *widget = gtk_pixmap_new(pixmap, mask);

  gtk_box_pack_start(GTK_BOX(label_box), *widget, FALSE, FALSE, 3);

  gtk_widget_show(*widget);
}

/*---------------------------------------------------------------------------*/
/* Ok Button */
/*---------------------------------------------------------------------------*/

void 
rcm_ok_callback (GtkWidget *widget,
		 gpointer   data)
{
  Current.Success = 1;

  gtk_widget_destroy (GTK_WIDGET (data));
}

/*---------------------------------------------------------------------------*/
/* Circle buttons */
/*---------------------------------------------------------------------------*/

void 
rcm_360_degrees (GtkWidget *button, 
		 RcmCircle *circle)
{
  circle->action_flag = DO_NOTHING;
  gtk_widget_queue_draw(circle->preview);
  circle->angle->beta = circle->angle->alpha-circle->angle->cw_ccw * 0.001;
  rcm_draw_arrows(circle->preview->window, circle->preview->style->black_gc, circle->angle);
  circle->action_flag = VIRGIN;
  rcm_render_preview(Current.Bna->after, CURRENT);
}

void 
rcm_cw_ccw (GtkWidget *button, 
	    RcmCircle *circle)
{
  circle->angle->cw_ccw *= -1;

  rcm_set_pixmap(&circle->cw_ccw_pixmap, circle->cw_ccw_button->parent,
		 circle->cw_ccw_box, (circle->angle->cw_ccw>0) ? rcm_cw_xpm : rcm_ccw_xpm);

  gtk_label_set_text (GTK_LABEL (circle->cw_ccw_label),
		      (circle->angle->cw_ccw>0) ?
		      _("Switch to clockwise") : _("Switch to c/clockwise"));

  rcm_a_to_b(button, circle);
}

void 
rcm_a_to_b (GtkWidget *button, 
	    RcmCircle *circle)
{
  circle->action_flag = DO_NOTHING;
  gtk_widget_queue_draw(circle->preview);

  SWAP(circle->angle->alpha, circle->angle->beta);

  rcm_draw_arrows(circle->preview->window, circle->preview->style->black_gc,
		  circle->angle);

  circle->action_flag = VIRGIN;
  rcm_render_preview(Current.Bna->after, CURRENT);
}

/*---------------------------------------------------------------------------*/
/* Misc: units buttons */
/*---------------------------------------------------------------------------*/

static void 
rcm_spinbutton_to_degrees (GtkWidget *button, 
			   float      value, 
			   GtkWidget *label)
{
  GtkAdjustment *adj;

  adj = gtk_spin_button_get_adjustment(GTK_SPIN_BUTTON(button));
  adj->value = value * rcm_units_factor(Current.Units);
  adj->upper = 360.0;
  adj->step_increment = 0.01;
  adj->page_increment = 1.0;
  gtk_spin_button_set_digits(GTK_SPIN_BUTTON(button), 2);

  gtk_label_set_text (GTK_LABEL(label), rcm_units_string(Current.Units));
}

void 
rcm_switch_to_degrees (GtkWidget *button, 
		       gpointer  *value)
{
  if (GTK_TOGGLE_BUTTON(button)->active)
  {
    Current.Units = DEGREES;

    rcm_spinbutton_to_degrees(Current.From->alpha_entry, 
			      Current.From->angle->alpha,
			      Current.From->alpha_units_label);

    rcm_spinbutton_to_degrees(Current.From->beta_entry, 
			      Current.From->angle->beta,
			      Current.From->beta_units_label);

    rcm_spinbutton_to_degrees(Current.To->alpha_entry, 
			      Current.To->angle->alpha,
			      Current.To->alpha_units_label);

    rcm_spinbutton_to_degrees(Current.To->beta_entry, 
			      Current.To->angle->beta,
			      Current.To->beta_units_label);

    rcm_spinbutton_to_degrees(Current.Gray->hue_entry, 
			      Current.Gray->hue,
			      Current.Gray->hue_units_label);

    Current.From->action_flag = VIRGIN;
    Current.To->action_flag   = VIRGIN;
    Current.Gray->action_flag = VIRGIN;
  }
}

/*---------------------------------------------------------------------------*/

static void 
rcm_spinbutton_to_radians (GtkWidget *button, 
			   float      value, 
			   GtkWidget *label)
{
  GtkAdjustment *adj;

  adj = gtk_spin_button_get_adjustment(GTK_SPIN_BUTTON(button));
  adj->value = value * rcm_units_factor(Current.Units);
  adj->upper = TP; 
  adj->step_increment = 0.0001; 
  adj->page_increment = 0.001;
  gtk_spin_button_set_digits(GTK_SPIN_BUTTON(button), 4);

  gtk_label_set_text (GTK_LABEL(label), rcm_units_string(Current.Units));
}

void 
rcm_switch_to_radians (GtkWidget *button, 
		       gpointer  *value)
{
  if (GTK_TOGGLE_BUTTON(button)->active) 
  {
    Current.Units = RADIANS;

    rcm_spinbutton_to_radians(Current.From->alpha_entry, 
			      Current.From->angle->alpha,
			      Current.From->alpha_units_label);

    rcm_spinbutton_to_radians(Current.From->beta_entry, 
			      Current.From->angle->beta,
			      Current.From->beta_units_label);

    rcm_spinbutton_to_radians(Current.To->alpha_entry, 
			      Current.To->angle->alpha,
			      Current.To->alpha_units_label);

    rcm_spinbutton_to_radians(Current.To->beta_entry, 
			      Current.To->angle->beta,
			      Current.To->beta_units_label);

    rcm_spinbutton_to_radians(Current.Gray->hue_entry, 
			      Current.Gray->hue,
			      Current.Gray->hue_units_label);

    Current.From->action_flag = VIRGIN;
    Current.To->action_flag   = VIRGIN;
    Current.Gray->action_flag = VIRGIN;
  }
}

/*---------------------------------------------------------------------------*/

static void 
rcm_spinbutton_to_radians_over_PI (GtkWidget *button, 
				   float      value, 
				   GtkWidget *label)
{
  GtkAdjustment *adj;

  adj = gtk_spin_button_get_adjustment(GTK_SPIN_BUTTON(button));
  adj->value = value * rcm_units_factor(Current.Units);
  adj->upper = 2.0;
  adj->step_increment = 0.0001;
  adj->page_increment = 0.001;
  gtk_spin_button_set_digits(GTK_SPIN_BUTTON(button), 4);

  gtk_label_set_text (GTK_LABEL(label), rcm_units_string(Current.Units));
}

void 
rcm_switch_to_radians_over_PI (GtkWidget *button, 
			       gpointer  *value)
{
  if (GTK_TOGGLE_BUTTON(button)->active)
  { 
    Current.Units = RADIANS_OVER_PI;

    rcm_spinbutton_to_radians_over_PI(Current.From->alpha_entry, 
				      Current.From->angle->alpha,
				      Current.From->alpha_units_label);

    rcm_spinbutton_to_radians_over_PI(Current.From->beta_entry, 
				      Current.From->angle->beta,
				      Current.From->beta_units_label);

    rcm_spinbutton_to_radians_over_PI(Current.To->alpha_entry, 
				      Current.To->angle->alpha,
				      Current.To->alpha_units_label);

    rcm_spinbutton_to_radians_over_PI(Current.To->beta_entry, 
				      Current.To->angle->beta,
				      Current.To->beta_units_label);

    rcm_spinbutton_to_radians_over_PI(Current.Gray->hue_entry, 
				      Current.Gray->hue,
				      Current.Gray->hue_units_label);

    Current.From->action_flag = VIRGIN;
    Current.To->action_flag   = VIRGIN;
    Current.Gray->action_flag = VIRGIN;
  }
}

/*---------------------------------------------------------------------------*/
/* Misc: Gray: mode buttons */
/*---------------------------------------------------------------------------*/

void 
rcm_switch_to_gray_to (GtkWidget *button, 
		       gpointer  *value)
{
  if (!GTK_TOGGLE_BUTTON(button)->active) return;

  Current.Gray_to_from = GRAY_TO;
  rcm_render_preview(Current.Bna->after, CURRENT);
}

void 
rcm_switch_to_gray_from (GtkWidget *button, 
			 gpointer  *value)
{
  if (!(GTK_TOGGLE_BUTTON(button)->active)) return;

  Current.Gray_to_from = GRAY_FROM;
  rcm_render_preview(Current.Bna->after, CURRENT);
}

/*---------------------------------------------------------------------------*/
/* Misc: Preview buttons */
/*---------------------------------------------------------------------------*/

void 
rcm_preview_as_you_drag (GtkWidget *button, 
			 gpointer  *value)
{
  if (GTK_TOGGLE_BUTTON(button)->active) 
    Current.RealTime = TRUE;
  else
    Current.RealTime = FALSE;
}

/*---------------------------------------------------------------------------*/

static void 
rcm_change_preview (void)
{
  /* must hide and show or resize would not work ... */

  gtk_widget_hide(Current.Bna->before);
  gtk_widget_hide(Current.Bna->after);

  gtk_preview_size(GTK_PREVIEW(Current.Bna->before),
		   Current.reduced->width, Current.reduced->height);

  gtk_preview_size(GTK_PREVIEW(Current.Bna->after),
		   Current.reduced->width, Current.reduced->height);

  rcm_render_preview(Current.Bna->before, ORIGINAL);
  rcm_render_preview(Current.Bna->after, CURRENT);

  gtk_widget_queue_draw(Current.Bna->before);
  gtk_widget_queue_draw(Current.Bna->after);

  gtk_widget_show(Current.Bna->before);
  gtk_widget_show(Current.Bna->after);
}

/*---------------------------------------------------------------------------*/

void 
rcm_selection_in_context (GtkWidget *button, 
			  gpointer  *value)
{
  Current.reduced = rcm_reduce_image(Current.drawable, Current.mask,
				     MAX_PREVIEW_SIZE, SELECTION_IN_CONTEXT);
  rcm_change_preview();
}

void 
rcm_selection (GtkWidget *button, 
	       gpointer  *value)
{
  Current.reduced = rcm_reduce_image(Current.drawable, Current.mask,
				     MAX_PREVIEW_SIZE, SELECTION);
  rcm_change_preview();
}

void 
rcm_entire_image (GtkWidget *button, 
		  gpointer  *value)
{
  Current.reduced = rcm_reduce_image(Current.drawable, Current.mask,
				     MAX_PREVIEW_SIZE, ENTIRE_IMAGE);
  rcm_change_preview();  
}


/*---------------------------------------------------------------------------*/
/* Circle events */
/*---------------------------------------------------------------------------*/

gboolean
rcm_expose_event (GtkWidget *widget, 
		  GdkEvent  *event, 
		  RcmCircle *circle)
{
  switch (circle->action_flag)
  {
    case DO_NOTHING: return FALSE;

    case VIRGIN:     rcm_draw_arrows(widget->window, widget->style->black_gc,
				     circle->angle);
                     break;

    default:         if (Current.RealTime)
                       rcm_render_preview(Current.Bna->after,CURRENT);
		     break;
  }
  return TRUE;
}

/*---------------------------------------------------------------------------*/

gboolean
rcm_button_press_event (GtkWidget *widget, 
			GdkEvent  *event, 
			RcmCircle *circle)
{
  float clicked_angle;
  float *alpha;
  float *beta;
  GdkEventButton *bevent;

  alpha = &circle->angle->alpha;
  beta = &circle->angle->beta;
  bevent = (GdkEventButton *) event;

  circle->action_flag = DRAG_START;
  clicked_angle = angle_mod_2PI(arctg(CENTER-bevent->y, bevent->x-CENTER));
  circle->prev_clicked = clicked_angle;
  
  if ((sqrt (SQR (bevent->y-CENTER) + SQR (bevent->x-CENTER)) > RADIUS * EACH_OR_BOTH) &&
      (min_prox (*alpha, *beta, clicked_angle) < G_PI / 12))
  {
    circle->mode = EACH;
    circle->target = closest(alpha, beta, clicked_angle);
    
    if (*(circle->target) != clicked_angle)
    {
      *(circle->target) = clicked_angle; 
      gtk_widget_queue_draw(circle->preview);
      rcm_draw_arrows(widget->window, widget->style->black_gc, circle->angle);
      
      gtk_spin_button_set_value(GTK_SPIN_BUTTON(circle->alpha_entry),
			    circle->angle->alpha * rcm_units_factor(Current.Units));

      gtk_spin_button_set_value(GTK_SPIN_BUTTON(circle->beta_entry),
			    circle->angle->beta * rcm_units_factor(Current.Units));

      if (Current.RealTime)
	rcm_render_preview(Current.Bna->after, CURRENT);
    }
  }
  else 
    circle->mode = BOTH;

  return TRUE;
}

/*---------------------------------------------------------------------------*/

gboolean
rcm_release_event (GtkWidget *widget, 
		   GdkEvent  *event,  
		   RcmCircle *circle)
{
  if (circle->action_flag == DRAGING)
    rcm_draw_arrows(widget->window, widget->style->black_gc, circle->angle); 
  circle->action_flag = VIRGIN;
  
  if (!Current.RealTime)
      rcm_render_preview(Current.Bna->after,CURRENT);

  return TRUE;
}

/*---------------------------------------------------------------------------*/

gboolean
rcm_motion_notify_event (GtkWidget *widget, 
			 GdkEvent  *event, 
			 RcmCircle *circle)
{ 
  gint x, y;
  float clicked_angle, delta;
  float *alpha, *beta;
  int  cw_ccw;
  GdkGCValues values;

  alpha = &(circle->angle->alpha);
  beta  = &(circle->angle->beta);
  cw_ccw = circle->angle->cw_ccw;
  delta = angle_mod_2PI(cw_ccw * (*beta - *alpha));

  values.foreground = Current.From->preview->style->white;
  values.function = GDK_XOR;
  xor_gc = gdk_gc_new_with_values (Current.From->preview->window,
				   &values, GDK_GC_FOREGROUND | GDK_GC_FUNCTION);

  gdk_window_get_pointer(widget->window, &x, &y, NULL);
  clicked_angle = angle_mod_2PI(arctg(CENTER-y, x-CENTER));
  
  delta = clicked_angle - circle->prev_clicked;
  circle->prev_clicked = clicked_angle;
  
  if (delta)
  {
    if (circle->action_flag == DRAG_START)
    {
      gtk_widget_queue_draw(circle->preview);
      circle->action_flag = DRAGING;
    }
    else 
      rcm_draw_arrows(widget->window, xor_gc, circle->angle);  /* erase! */
    
    if (circle->mode == EACH)
      *(circle->target)=clicked_angle;
    else {
      circle->angle->alpha=angle_mod_2PI(circle->angle->alpha + delta);
      circle->angle->beta =angle_mod_2PI(circle->angle->beta  + delta);
    }
    
    rcm_draw_arrows(widget->window, xor_gc, circle->angle); 
    
    gtk_spin_button_set_value(GTK_SPIN_BUTTON(circle->alpha_entry),
			  circle->angle->alpha * rcm_units_factor(Current.Units));

    gtk_spin_button_set_value(GTK_SPIN_BUTTON(circle->beta_entry),
			  circle->angle->beta * rcm_units_factor(Current.Units));
    
    if (Current.RealTime)
      rcm_render_preview(Current.Bna->after, CURRENT);
  }

  return TRUE;
}

/*---------------------------------------------------------------------------*/
/* Gray circle events */
/*---------------------------------------------------------------------------*/

gboolean 
rcm_gray_expose_event (GtkWidget *widget, 
		       GdkEvent  *event, 
		       RcmGray   *circle)
{
  if (circle->action_flag == VIRGIN)
  {
    rcm_draw_little_circle(widget->window, widget->style->black_gc,
			   circle->hue, circle->satur);

    rcm_draw_large_circle(widget->window, widget->style->black_gc, circle->gray_sat);
  }
  else if (Current.RealTime)
    rcm_render_preview(Current.Bna->after, CURRENT);

  return TRUE;
}

/*---------------------------------------------------------------------------*/

gboolean
rcm_gray_button_press_event (GtkWidget *widget, 
			     GdkEvent  *event, 
			     RcmGray   *circle)
{
  GdkEventButton *bevent;
  int x, y;

  bevent = (GdkEventButton *) event;
  x = bevent->x - GRAY_CENTER - LITTLE_RADIUS;
  y = GRAY_CENTER - bevent->y + LITTLE_RADIUS;

  circle->action_flag = DRAG_START;
  circle->hue = angle_mod_2PI(arctg(y, x));
  circle->satur = sqrt (SQR (x) + SQR (y)) / GRAY_RADIUS;
  if (circle->satur > 1.0) circle->satur = 1;

  gtk_widget_queue_draw(circle->preview);
  rcm_draw_little_circle(widget->window, widget->style->black_gc,
			 circle->hue, circle->satur);
  
  rcm_draw_large_circle(circle->preview->window, circle->preview->style->black_gc,
			circle->gray_sat);  
  
  gtk_spin_button_set_value(GTK_SPIN_BUTTON(circle->hue_entry),
			      circle->hue * rcm_units_factor(Current.Units));

  gtk_spin_button_set_value(GTK_SPIN_BUTTON(circle->satur_entry), circle->satur);
  
  if (Current.RealTime)
      rcm_render_preview(Current.Bna->after,CURRENT);

  return TRUE;
}

/*---------------------------------------------------------------------------*/

gboolean
rcm_gray_release_event (GtkWidget *widget, 
			GdkEvent  *event, 
			RcmGray   *circle)
{
  if (circle->action_flag == DRAGING)
    rcm_draw_little_circle(widget->window,
			   widget->style->black_gc,
			   circle->hue,
			   circle->satur);

  circle->action_flag = VIRGIN;
  
  if (!Current.RealTime) rcm_render_preview(Current.Bna->after, CURRENT);

  return TRUE;
}

/*---------------------------------------------------------------------------*/

gboolean
rcm_gray_motion_notify_event (GtkWidget *widget, 
			      GdkEvent  *event, 
			      RcmGray   *circle)
{ 
  gint x, y;
  GdkGCValues values;
  
  values.foreground = Current.From->preview->style->white;
  values.function = GDK_XOR;
  xor_gc = gdk_gc_new_with_values (Current.From->preview->window,
				   &values, GDK_GC_FOREGROUND | GDK_GC_FUNCTION);
  
  if (circle->action_flag == DRAG_START)
  {
    gtk_widget_queue_draw(circle->preview);
    rcm_draw_large_circle(circle->preview->window, circle->preview->style->black_gc,
			  circle->gray_sat);

    circle->action_flag = DRAGING;
  }
  else 
    rcm_draw_little_circle(widget->window, xor_gc,
			   circle->hue, circle->satur); /* erase */

  gdk_window_get_pointer(widget->window, &x, &y, NULL);

  x = x - GRAY_CENTER - LITTLE_RADIUS;
  y = GRAY_CENTER - y + LITTLE_RADIUS;

  circle->hue = angle_mod_2PI (arctg (y, x));
  circle->satur = sqrt (SQR (x) + SQR (y)) / GRAY_RADIUS;
  if (circle->satur > 1.0) circle->satur = 1;

  rcm_draw_little_circle(widget->window, xor_gc, circle->hue, circle->satur);

  gtk_spin_button_set_value(GTK_SPIN_BUTTON(circle->hue_entry),
			    circle->hue * rcm_units_factor(Current.Units));

  gtk_spin_button_set_value(GTK_SPIN_BUTTON(circle->satur_entry), circle->satur);

  if (Current.RealTime) rcm_render_preview(Current.Bna->after, CURRENT);

  return TRUE;
}

/*---------------------------------------------------------------------------*/
/* Spinbuttons */
/*---------------------------------------------------------------------------*/

void 
rcm_set_alpha (GtkWidget *entry, 
	       gpointer   data)
{
  RcmCircle *circle;

  circle = (RcmCircle *) data;
  if (circle->action_flag != VIRGIN) return;
 
  circle->angle->alpha = gtk_spin_button_get_value(GTK_SPIN_BUTTON(entry)) /
    rcm_units_factor(Current.Units);

  gtk_widget_queue_draw(circle->preview);

  rcm_draw_arrows(circle->preview->window, circle->preview->style->black_gc,
		  circle->angle); 

  rcm_render_preview(Current.Bna->after, CURRENT);
}

/*---------------------------------------------------------------------------*/

void 
rcm_set_beta (GtkWidget *entry, 
	      gpointer   data)
{
  RcmCircle *circle;

  circle=(RcmCircle *) data;
  if (circle->action_flag != VIRGIN) return;

  circle->angle->beta = gtk_spin_button_get_value(GTK_SPIN_BUTTON(entry)) /
    rcm_units_factor(Current.Units);
 
  gtk_widget_queue_draw(circle->preview);

  rcm_draw_arrows(circle->preview->window, circle->preview->style->black_gc,
		  circle->angle);  

  rcm_render_preview(Current.Bna->after, CURRENT);
}

/*---------------------------------------------------------------------------*/

void 
rcm_set_hue (GtkWidget *entry, 
	     gpointer   data)
{
  RcmGray *circle;

  circle = (RcmGray *) data;
  if (circle->action_flag != VIRGIN) return;

  circle->hue = gtk_spin_button_get_value(GTK_SPIN_BUTTON(entry)) /
    rcm_units_factor(Current.Units);

  gtk_widget_queue_draw(circle->preview);

  rcm_draw_little_circle(circle->preview->window, circle->preview->style->black_gc,
			 circle->hue, circle->satur);  

  rcm_draw_large_circle(circle->preview->window, circle->preview->style->black_gc,
			circle->gray_sat);  

  rcm_render_preview(Current.Bna->after, CURRENT);
}

/*---------------------------------------------------------------------------*/

void 
rcm_set_satur (GtkWidget *entry, 
	       gpointer   data)
{
  RcmGray *circle;

  circle=(RcmGray *) data;
  if (circle->action_flag != VIRGIN) return;
  
  circle->satur = gtk_spin_button_get_value(GTK_SPIN_BUTTON(entry));

  gtk_widget_queue_draw(circle->preview);
  rcm_draw_little_circle(circle->preview->window, circle->preview->style->black_gc,
			 circle->hue, circle->satur);

  rcm_draw_large_circle(circle->preview->window, circle->preview->style->black_gc,
			circle->gray_sat);  

  rcm_render_preview(Current.Bna->after, CURRENT);
}

/*---------------------------------------------------------------------------*/

void 
rcm_set_gray_sat (GtkWidget *entry, 
		  gpointer   data)
{
  RcmGray *circle;

  circle=(RcmGray *) data;

  circle->gray_sat = gtk_spin_button_get_value(GTK_SPIN_BUTTON(entry));

  gtk_widget_queue_draw(circle->preview);

  rcm_draw_large_circle(circle->preview->window, circle->preview->style->black_gc,
			circle->gray_sat);

  rcm_render_preview(Current.Bna->after, CURRENT);
}

/*---------------------------------------------------------------------------*/