/*
 * Sweep, a sound wave editor.
 *
 * Copyright (C) 2000 Conrad Parker
 * Copyright (C) 2002 Commonwealth Scientific and Industrial Research
 * Organisation (CSIRO), Australia
 *
 * 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.
 */

#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif

#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <glib.h>
#include <gdk/gdkkeysyms.h>
#include <gtk/gtk.h>

#include <sweep/sweep_i18n.h>
#include <sweep/sweep_types.h>
#include <sweep/sweep_sample.h>

#include "interface.h"

#include "db_slider.h"

enum {
  VALUE_CHANGED_SIGNAL,
  LAST_SIGNAL
};

static gint db_slider_signals[LAST_SIGNAL] = { 0 };

static void
db_slider_class_init(DbSliderClass * klass)
{
  GtkObjectClass *object_class;

  object_class = (GtkObjectClass *) klass;

  db_slider_signals[VALUE_CHANGED_SIGNAL] = g_signal_new ("value-changed",
					 					 G_TYPE_FROM_CLASS (klass),
	                                	 G_SIGNAL_RUN_FIRST,
	                                 	 G_STRUCT_OFFSET (DbSliderClass, value_changed),
                                         NULL, 
                                         NULL,                
										 g_cclosure_marshal_VOID__FLOAT,
                                         G_TYPE_NONE, 1, G_TYPE_FLOAT);
  klass->value_changed = NULL;
}

static void
db_slider_init (GtkWidget * slider)
{
}

GType
db_slider_get_type()
{
  static GType db_slider_type = 0;

  if (!db_slider_type) {
    static const GTypeInfo db_slider_info =
    {
      sizeof(DbSliderClass),
	 NULL, /* base_init */
     NULL, /* base_finalize */
	 (GClassInitFunc) db_slider_class_init,
     NULL, /* class_finalize */
	 NULL, /* class_data */
     sizeof (DbSlider),
	 0,
	(GInstanceInitFunc) db_slider_init, 

    };

    db_slider_type = g_type_register_static(GTK_TYPE_VBOX, "DbSlider" ,&db_slider_info, 0);
				    
  }

  return db_slider_type;
}

#define VALUE_TO_DB(v) (20 * log10(v))
#define DB_TO_VALUE(d) (pow (10, ((d) / 20)))

#define SQR(x) ((x)*(x))
#define ADJ_TO_VALUE(a) SQR((100.0 - (a)) / 100.0)
#define VALUE_TO_ADJ(v) ((1.0 - sqrt(v)) * 100.0)


gfloat
db_slider_get_value (DbSlider * slider)
{
  return ADJ_TO_VALUE(GTK_ADJUSTMENT(slider->adj)->value);
}

void
db_slider_set_value (DbSlider * slider, gfloat value)
{
  gtk_adjustment_set_value (GTK_ADJUSTMENT(slider->adj),
			    VALUE_TO_ADJ(value));
}

static void
db_slider_value_changed_cb (GtkWidget * widget, gpointer data)
{
  GtkWidget * slider = (GtkWidget *)data;
  gfloat value, db_value;
  gchar * db_text;

  value = db_slider_get_value (DB_SLIDER(slider));
  db_value = VALUE_TO_DB (value);

  if (db_value > -10.0) {
    db_text = g_strdup_printf ("%1.1f dB", db_value);
  } else {
    db_text = g_strdup_printf ("%2.0f dB", db_value);
  }

  gtk_label_set_text (GTK_LABEL(DB_SLIDER(slider)->db_label), db_text);

  g_free (db_text);

  g_signal_emit_by_name (GTK_OBJECT(slider), "value-changed",
		 value);
}

static void
db_slider_build (GtkWidget * slider, gchar * title, gfloat value)
{
  GtkWidget * vbox;
  GtkWidget * label;
  GtkWidget * vscale;

  GtkObject * adj;

  gchar * range_text;

  vbox = gtk_vbox_new (FALSE, 0);
  gtk_container_add (GTK_CONTAINER(slider), vbox);
  gtk_widget_show (vbox);

  label = gtk_label_new (NULL);
  gtk_box_pack_start (GTK_BOX(vbox), label, FALSE, FALSE, 0);
  gtk_widget_show (label);

  DB_SLIDER(slider)->db_label = label;

  adj = gtk_adjustment_new (VALUE_TO_ADJ(value), /* value */
			    VALUE_TO_ADJ(DB_SLIDER(slider)->upper), /* lower */
			    VALUE_TO_ADJ(DB_SLIDER(slider)->lower), /* upper */
			    0.3,  /* step incr */
			    3.0,  /* page incr */
			    0.0   /* page size */
			    );

  vscale = gtk_vscale_new (GTK_ADJUSTMENT(adj));
  gtk_scale_set_draw_value (GTK_SCALE(vscale), FALSE);
  gtk_range_set_update_policy (GTK_RANGE(vscale), GTK_UPDATE_CONTINUOUS);
  gtk_widget_set_size_request (vscale, -1, gdk_screen_height() / 8);
  gtk_box_pack_start (GTK_BOX(vbox), vscale, TRUE, TRUE, 0);
  gtk_widget_show (vscale);

  g_signal_connect (G_OBJECT(adj), "value_changed",
		      G_CALLBACK(db_slider_value_changed_cb), slider);

  DB_SLIDER(slider)->adj = adj;

  db_slider_value_changed_cb (NULL, slider);

  range_text = g_strdup_printf ("%s\n[%2.0f to %2.0f dB]",
				title,
				VALUE_TO_DB(DB_SLIDER(slider)->lower),
				VALUE_TO_DB(DB_SLIDER(slider)->upper));

  label = gtk_label_new (range_text);
  gtk_box_pack_start (GTK_BOX(vbox), label, FALSE, FALSE, 0);
  gtk_widget_show (label);  
}


GtkWidget *
db_slider_new (gchar * title, gfloat value, gfloat lower, gfloat upper)
{
  DbSlider * slider = DB_SLIDER (g_object_new (db_slider_get_type (), NULL));

  slider->lower = lower;
  slider->upper = upper;

  db_slider_build (GTK_WIDGET (slider), title, value);

  return GTK_WIDGET (slider);
}