/*
 * 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>

#include <gtk/gtk.h>

#include "libgimpmath/gimpmath.h"
#include "libgimpwidgets/gimpwidgets.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 "rcm_stock.h"

#include "images/rcm-stock-pixbufs.h"


/* 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)";
  }
}


/* 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;

  g_object_set (button,
                "label",
                (circle->angle->cw_ccw>0) ?
                STOCK_COLORMAP_SWITCH_CLOCKWISE :
                STOCK_COLORMAP_SWITCH_COUNTERCLOCKWISE,
                "use_stock", TRUE,
                NULL);

  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)
{
  Current.RealTime = GTK_TOGGLE_BUTTON (button)->active;
}

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_widget_set_size_request (Current.Bna->before,
                               Current.reduced->width,
                               Current.reduced->height);

  gtk_widget_set_size_request (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_combo_callback (GtkWidget *widget,
                    gpointer   data)
{
  gint value;

  gimp_int_combo_box_get_active (GIMP_INT_COMBO_BOX (widget), &value);

  Current.reduced = rcm_reduce_image (Current.drawable, Current.mask,
                                      MAX_PREVIEW_SIZE, value);
  rcm_change_preview ();
}


/* Circle events */

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

    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)
    {
      gtk_widget_queue_draw (circle->preview);
      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;
  gfloat       clicked_angle, delta;
  gfloat      *alpha, *beta;
  gint         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
        {
          /* this should be erasing entire angle */
          rcm_draw_arrows (widget->window, xor_gc, circle->angle);
        }

      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);
        }

      gdk_window_process_updates (widget->window, FALSE);
      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 = 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 = 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 = 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 = 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 = 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);
}