/*
 *
 *     sushivision copyright (C) 2006-2007 Monty <monty@xiph.org>
 *
 *  sushivision 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, or (at your option)
 *  any later version.
 *   
 *  sushivision 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 sushivision; see the file COPYING.  If not, write to the
 *  Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * 
 */

#define _GNU_SOURCE
#include <gtk/gtk.h>
#include <gtk/gtkmain.h>
#include <gdk/gdk.h>
#include <gdk/gdkkeysyms.h>
#include <stdlib.h>
#include <math.h>
#include <stdio.h>
#include <string.h>

#include "scale.h"
#include "plot.h"

static GtkWidgetClass *parent_class = NULL;

// When sufficienty zoomed in that the demarks of the data scale are a
// coarser mesh than the resolution of the data scale (eg, when the
// data scale is undersampled or discrete), we want the demarks from
// the data scale (plotted in terms of the panel scale).  In most
// cases they will be the same, but not always.
static double scale_demark(_sv_scalespace_t *panel, _sv_scalespace_t *data, int i, char *buffer){
  if(data->expm > panel->expm){
    double x=_sv_scalespace_mark(data,i);
    if(buffer) _sv_scalespace_label(data,i,buffer);
    return _sv_scalespace_pixel(panel, _sv_scalespace_value(data, x));
  }else{
    if(buffer) _sv_scalespace_label(panel,i,buffer);
    return _sv_scalespace_mark(panel,i);
  }
}

void _sv_plot_set_bg_invert(_sv_plot_t *p, int setp){
  p->bg_inv = setp;
}

void _sv_plot_set_grid(_sv_plot_t *p, int mode){
  p->grid_mode = mode;
}

static void set_text(int inv, cairo_t *c){
  if(inv == _SV_PLOT_TEXT_LIGHT)
    cairo_set_source_rgba(c,1.,1.,1.,1.);
  else
    cairo_set_source_rgba(c,0.,0.,0.,1.);
}

static void set_shadow(int inv, cairo_t *c){
  if(inv == _SV_PLOT_TEXT_LIGHT)
    cairo_set_source_rgba(c,0.,0.,0.,.6);
  else
    cairo_set_source_rgba(c,1.,1.,1.,.8);
}

static void draw_scales_work(cairo_t *c, int w, int h, 
			     double page_h,
			     int inv_text, int grid,
			     _sv_scalespace_t xs, _sv_scalespace_t ys,
			     _sv_scalespace_t xs_v, _sv_scalespace_t ys_v){

  int i=0,x,y;
  char buffer[80];
  int y_width=0;
  int x_height=0;
  int off = (grid == _SV_PLOT_GRID_TICS?6:0);

  cairo_set_miter_limit(c,2.);

  // draw all axis lines, then stroke
  if(grid){

    cairo_set_line_width(c,1.);
    if(grid & _SV_PLOT_GRID_NORMAL){
      switch(grid&0xf00){
      case 256:
	cairo_set_source_rgba(c,.9,.9,.9,.4);
	break;
      case 512:
	cairo_set_source_rgba(c,.1,.1,.1,.4);
	break;
      default:
	cairo_set_source_rgba(c,.7,.7,.7,.3);
	break;
      }

      i=0;
      x = scale_demark(&xs, &xs_v, i++, NULL);
      while(x < w){
	cairo_move_to(c,x+.5,0);
	cairo_line_to(c,x+.5,h);
	x = scale_demark(&xs, &xs_v, i++, NULL);
      }

      i=0;
      y = scale_demark(&ys, &ys_v, i++, NULL);
      while(y < h){
	cairo_move_to(c,0,y+.5);
	cairo_line_to(c,w,y+.5);
	y = scale_demark(&ys, &ys_v, i++, NULL);
      }

      cairo_stroke(c);
    }


    // text number labels
    cairo_select_font_face (c, "Sans",
			    CAIRO_FONT_SLANT_NORMAL,
			    CAIRO_FONT_WEIGHT_NORMAL);
    cairo_set_font_size (c, 10);
    cairo_set_line_width(c,2);
    
    i=0;
    y = scale_demark(&ys, &ys_v, i++, buffer);
    
    while(y < h){
      cairo_text_extents_t extents;
      cairo_text_extents (c, buffer, &extents);
      
      if(extents.width > y_width) y_width = extents.width;
      
      if(y - extents.height > 0){
	
	double yy = y+.5-(extents.height/2 + extents.y_bearing);

	cairo_move_to(c,2+off, yy);
	set_shadow(inv_text,c);
	cairo_text_path (c, buffer);  
	cairo_stroke(c);
	
	set_text(inv_text,c);
	cairo_move_to(c,2+off, yy);
	cairo_show_text (c, buffer);
      }
      
      y = scale_demark(&ys, &ys_v, i++, buffer);
    }
  }

  // set sideways text
  cairo_save(c);
  cairo_matrix_t a;
  cairo_get_matrix(c,&a);
  cairo_matrix_t b = {0.,-1., 1.,0., 0.,page_h+a.y0+a.y0}; // account for border!
  cairo_matrix_t d;
  cairo_matrix_multiply(&d,&a,&b);
  cairo_set_matrix(c,&d);

  // text y scale label
  if(ys.legend){
    cairo_text_extents_t extents;
    cairo_text_extents (c, ys.legend, &extents);

    cairo_move_to(c,h/2 - (extents.width/2 +extents.x_bearing), y_width-extents.y_bearing+5+off);
    set_shadow(inv_text,c);
    cairo_text_path (c, ys.legend);  
    cairo_stroke(c);
    
    cairo_move_to(c,h/2 - (extents.width/2 +extents.x_bearing), y_width-extents.y_bearing+5+off);
    set_text(inv_text,c);
    cairo_show_text (c, ys.legend);
  }

  if(grid){
    i=0;
    x = scale_demark(&xs, &xs_v, i++, buffer);
    
    while(x < w){
      cairo_text_extents_t extents;
      cairo_text_extents (c, buffer, &extents);
      
      if(extents.width > x_height) x_height = extents.width;
      
      if(x - extents.height > y_width+5 ){
	
	cairo_move_to(c,2+off-extents.x_bearing, x+.5-(extents.height/2 + extents.y_bearing));
	set_shadow(inv_text,c);
	cairo_text_path (c, buffer);  
	cairo_stroke(c);
	
	cairo_move_to(c,2+off-extents.x_bearing, x+.5-(extents.height/2 + extents.y_bearing));
	set_text(inv_text,c);
	cairo_show_text (c, buffer);
      }
      
      x = scale_demark(&xs, &xs_v, i++, buffer);
    }
  }
   
  cairo_restore(c);
  // text x scale label
  if(xs.legend){
    cairo_text_extents_t extents;
    cairo_text_extents (c, xs.legend, &extents);
    
    cairo_move_to(c,w/2 - (extents.width/2 + extents.x_bearing), h - x_height+ extents.y_bearing-3-off);
    set_shadow(inv_text,c);
    cairo_text_path (c, xs.legend);  
    cairo_stroke(c);
    
    cairo_move_to(c,w/2 - (extents.width/2 + extents.x_bearing), h - x_height+ extents.y_bearing-3-off);
    set_text(inv_text,c);
    cairo_show_text (c, xs.legend);
  }

  if(grid == _SV_PLOT_GRID_TICS){
    cairo_set_line_width(c,1.);
    set_text(inv_text,c);
    
    i=0;
    x = scale_demark(&xs, &xs_v, i++, NULL);
    while(x < w){
      if(x > y_width+5 ){
	cairo_move_to(c,x+.5,0);
	cairo_line_to(c,x+.5,off);
	cairo_move_to(c,x+.5,h-off);
	cairo_line_to(c,x+.5,h);
      }
      x = scale_demark(&xs, &xs_v, i++, NULL);
    }
    
    i=0;
    y = scale_demark(&ys, &ys_v, i++, NULL);
    while(y < h){
      cairo_move_to(c,0,y+.5);
      cairo_line_to(c,off,y+.5);
      cairo_move_to(c,w-off,y+.5);
      cairo_line_to(c,w,y+.5);
      y = scale_demark(&ys, &ys_v, i++, NULL);
    }
  
    cairo_stroke(c);
  }
}

static void draw_legend_work(_sv_plot_t *p, cairo_t *c, int w){
  if(p->legend_entries && p->legend_list && p->legend_active){
    int i;
    int textw=0, texth=0;
    int totalh=0;
    int x,y;
    cairo_text_extents_t extents;
    
    gdk_threads_enter();
    int inv = p->bg_inv;
    int n = p->legend_entries;
    char *buffer[n];
    u_int32_t colors[n];
    for(i=0;i<n;i++){
      buffer[i] = strdup(p->legend_list[i]);
      colors[i] = p->legend_colors[i];
    }
    gdk_threads_leave();

    cairo_select_font_face (c, "Sans",
			    CAIRO_FONT_SLANT_NORMAL,
			    CAIRO_FONT_WEIGHT_NORMAL);
    cairo_set_font_size (c, 10);
    cairo_set_line_width(c,1);
    cairo_set_miter_limit(c,2.);
    
    /* determine complete x/y extents of text */
    
    for(i=0;i<n;i++){
      cairo_text_extents (c, buffer[i], &extents);
      if(texth < extents.height)
	texth = extents.height;
      if(textw < extents.width)
	textw = extents.width;
    }
    
    y = 15+texth;
    texth = ceil(texth * 1.2+3);
    totalh = texth*n;
    
    x = w - textw - 15;

    // draw the enclosing rectangle
    if(p->legend_active==2){
      cairo_rectangle(c,x-6.5,5.5,textw+15,totalh+15);
      set_shadow(inv,c);
      cairo_fill_preserve(c);
      set_text(inv,c);
      cairo_stroke(c);
    }

    for(i=0;i<n;i++){
      cairo_text_extents (c, buffer[i], &extents);
      x = w - extents.width - 15;

      if(p->legend_active==1){
	cairo_move_to(c,x, y);
	cairo_text_path (c, buffer[i]); 
	set_shadow(inv,c);
	cairo_set_line_width(c,3);
	cairo_stroke(c);
      }

      if(colors[i] == 0xffffffffUL){
	set_text(inv,c);
      }else{
	cairo_set_source_rgba(c,
			      ((colors[i]>>16)&0xff)/255.,
			      ((colors[i]>>8)&0xff)/255.,
			      ((colors[i])&0xff)/255.,
			      ((colors[i]>>24)&0xff)/255.);
      }
      cairo_move_to(c,x, y);
      cairo_show_text (c, buffer[i]);

      y+=texth;
    }
    
    for(i=0;i<n;i++)
      free(buffer[i]);
    
  }
}

void _sv_plot_draw_scales(_sv_plot_t *p){
  // render into a temporary surface; do it [potentially] outside the global Gtk lock.
  gdk_threads_enter();
  _sv_scalespace_t x = p->x;
  _sv_scalespace_t y = p->y;
  _sv_scalespace_t xv = p->x_v;
  _sv_scalespace_t yv = p->y_v;
  int w = GTK_WIDGET(p)->allocation.width;
  int h = GTK_WIDGET(p)->allocation.height;
  cairo_surface_t *s = cairo_image_surface_create(CAIRO_FORMAT_ARGB32,w,h);
  int inv = p->bg_inv;
  int grid = p->grid_mode;
  gdk_threads_leave();
  
  cairo_t *c = cairo_create(s);
  cairo_save(c);
  cairo_set_operator(c,CAIRO_OPERATOR_CLEAR);
  cairo_set_source_rgba (c, 1,1,1,1);
  cairo_paint(c);
  cairo_restore(c);

  draw_scales_work(c,w,h,h,inv,grid,x,y,xv,yv);
  draw_legend_work(p,c,w);
  cairo_destroy(c);

  gdk_threads_enter();
  // swap fore/temp
  cairo_surface_t *temp = p->fore;
  p->fore = s;
  cairo_surface_destroy(temp);
  //_sv_plot_expose_request(p);
  gdk_threads_leave();
}

static void _sv_plot_init (_sv_plot_t *p){
  // instance initialization
  p->scalespacing = 50;
  p->x_v = p->x = _sv_scalespace_linear(0.0,1.0,400,p->scalespacing,NULL);
  p->y_v = p->y = _sv_scalespace_linear(0.0,1.0,200,p->scalespacing,NULL);
}

static void _sv_plot_destroy (GtkObject *object){
  if (GTK_OBJECT_CLASS (parent_class)->destroy)
    (*GTK_OBJECT_CLASS (parent_class)->destroy) (object);

  GtkWidget *widget = GTK_WIDGET(object);
  _sv_plot_t *p = PLOT (widget);
  // free local resources
  if(p->wc){
    cairo_destroy(p->wc);
    p->wc=0;
  }
  if(p->back){
    cairo_surface_destroy(p->back);
    p->back=0;
  }
  if(p->fore){
    cairo_surface_destroy(p->fore);
    p->fore=0;
  }
  if(p->stage){
    cairo_surface_destroy(p->stage);
    p->stage=0;
  }

}

static void box_corners(_sv_plot_t *p, double vals[4]){
  GtkWidget *widget = GTK_WIDGET(p);
  double x1 = _sv_scalespace_pixel(&p->x,p->box_x1);
  double x2 = _sv_scalespace_pixel(&p->x,p->box_x2);
  double y1 = _sv_scalespace_pixel(&p->y,p->box_y1);
  double y2 = _sv_scalespace_pixel(&p->y,p->box_y2);

  vals[0] = (x1<x2 ? x1 : x2);
  vals[1] = (y1<y2 ? y1 : y2);
  vals[2] = fabs(x1-x2);
  vals[3] = fabs(y1-y2);

  if(p->flags & _SV_PLOT_NO_X_CROSS){
    vals[0]=-1;
    vals[2]=widget->allocation.width+2;
  }
  
  if(p->flags & _SV_PLOT_NO_Y_CROSS){
    vals[1]=-1;
    vals[3]=widget->allocation.height+2;
  }
  
}

static int inside_box(_sv_plot_t *p, int x, int y){
  double vals[4];
  box_corners(p,vals);
  
  return (x >= vals[0] && 
	  x <= vals[0]+vals[2] && 
	  y >= vals[1] && 
	  y <= vals[1]+vals[3]);
}

int _sv_plot_print(_sv_plot_t *p, cairo_t *c, double page_h, void (*datarender)(void *, cairo_t *), void *data){
  GtkWidget *widget = GTK_WIDGET(p);
  int pw = widget->allocation.width;
  int ph = widget->allocation.height;
  _sv_scalespace_t x = p->x;
  _sv_scalespace_t y = p->y;
  _sv_scalespace_t xv = p->x_v;
  _sv_scalespace_t yv = p->y_v;
  int inv = p->bg_inv;
  int grid = p->grid_mode;

  gdk_threads_enter(); // double lock

  cairo_save(c);
  cairo_new_path(c);
  cairo_rectangle(c,0,0,pw,ph);
  cairo_clip(c);
  cairo_new_path(c);

  // render the background
  if(datarender)
    datarender(data,c);

  // render scales
  draw_scales_work(c,pw,ph,page_h,inv,grid,x,y,xv,yv);

  // transient foreground crosshairs
  if(p->cross_active){
    double sx = _sv_plot_get_crosshair_xpixel(p);
    double sy = _sv_plot_get_crosshair_ypixel(p);
    
    cairo_set_source_rgba(c,1.,1.,0.,.8);
    cairo_set_line_width(c,1.);
    
    if(! (p->flags & _SV_PLOT_NO_Y_CROSS)){
      cairo_move_to(c,0,sy+.5);
      cairo_line_to(c,widget->allocation.width,sy+.5);
    }
    
    if(! (p->flags & _SV_PLOT_NO_X_CROSS)){
      cairo_move_to(c,sx+.5,0);
      cairo_line_to(c,sx+.5,widget->allocation.height);
    }
    cairo_stroke(c);
  }
  
  // transient foreground box
  if(p->box_active){
    double vals[4];
    box_corners(p,vals);
    cairo_set_line_width(c,1.);
    
    cairo_rectangle(c,vals[0],vals[1],vals[2]+1,vals[3]+1);	
    if(p->box_active>1)
      cairo_set_source_rgba(c,1.,1.,.6,.4);
    else
      cairo_set_source_rgba(c,.8,.8,.8,.3);
    cairo_fill(c);
    cairo_rectangle(c,vals[0]+.5,vals[1]+.5,vals[2],vals[3]);
    if(p->box_active>1)
      cairo_set_source_rgba(c,1.,1.,.2,.9);
    else
      cairo_set_source_rgba(c,1.,1.,0,.8);
    cairo_stroke(c);
  }

  // render legend
  draw_legend_work(p,c,pw);

  // put a border on it
  cairo_set_source_rgb(c,0,0,0);
  cairo_set_line_width(c,1.0);
  cairo_rectangle(c,0,0,pw,ph);
  cairo_stroke(c);

  cairo_restore(c);

  gdk_threads_leave();

  return 0;
}

static void _sv_plot_draw (_sv_plot_t *p,
		       int x, int y, int w, int h){

  GtkWidget *widget = GTK_WIDGET(p);
  
  if (GTK_WIDGET_REALIZED (widget)){

    cairo_t *c = cairo_create(p->stage);
    cairo_set_source_surface(c,p->back,0,0);
    cairo_rectangle(c,x,y,w,h);
    cairo_fill(c);
    
    // transient foreground
    if(p->cross_active){
      double sx = _sv_plot_get_crosshair_xpixel(p);
      double sy = _sv_plot_get_crosshair_ypixel(p);

      cairo_set_source_rgba(c,1.,1.,0.,.8);
      cairo_set_line_width(c,1.);

      if(! (p->flags & _SV_PLOT_NO_Y_CROSS)){
	cairo_move_to(c,0,sy+.5);
	cairo_line_to(c,widget->allocation.width,sy+.5);
      }

      if(! (p->flags & _SV_PLOT_NO_X_CROSS)){
	cairo_move_to(c,sx+.5,0);
	cairo_line_to(c,sx+.5,widget->allocation.height);
      }
      cairo_stroke(c);
    }

    if(p->box_active){
      double vals[4];
      box_corners(p,vals);
      cairo_set_line_width(c,1.);

      cairo_rectangle(c,vals[0],vals[1],vals[2]+1,vals[3]+1);	
      if(p->box_active>1)
	cairo_set_source_rgba(c,1.,1.,.6,.4);
      else
	cairo_set_source_rgba(c,.8,.8,.8,.3);
      cairo_fill(c);
      cairo_rectangle(c,vals[0]+.5,vals[1]+.5,vals[2],vals[3]);
      if(p->box_active>1)
	cairo_set_source_rgba(c,1.,1.,.2,.9);
      else
	cairo_set_source_rgba(c,1.,1.,0,.8);
      cairo_stroke(c);
    }

    if(p->widgetfocus){
      double dashes[] = {1.,  /* ink */
			 1.};
      cairo_save(c);
      cairo_set_dash (c, dashes, 2, .5);
      cairo_set_source_rgba(c,0.,0.,0.,1.);
      cairo_set_line_width(c,1.);
      cairo_rectangle(c,.5,.5,
		      widget->allocation.width-1.,
		      widget->allocation.height-1.);
      cairo_stroke_preserve (c);
      cairo_set_dash (c, dashes, 2, 1.5);
      cairo_set_source_rgba(c,1.,1.,1.,1.);
      cairo_stroke(c);
      cairo_restore(c);
    }

    // main foreground
    cairo_set_source_surface(c,p->fore,0,0);
    cairo_rectangle(c,x,y,w,h);
    cairo_fill(c);
    
    cairo_destroy(c);

    // blit to window
    cairo_set_source_surface(p->wc,p->stage,0,0);
    cairo_rectangle(p->wc,x,y,w,h);
    cairo_fill(p->wc);

  }
}

static gint _sv_plot_expose (GtkWidget      *widget,
			 GdkEventExpose *event){
  if (GTK_WIDGET_REALIZED (widget)){
    _sv_plot_t *p = PLOT (widget);

    int x = event->area.x;
    int y = event->area.y;
    int w = event->area.width;
    int h = event->area.height;

    _sv_plot_draw(p, x, y, w, h);

  }
  return FALSE;
}

static void _sv_plot_size_request (GtkWidget *widget,
			       GtkRequisition *requisition){
  _sv_plot_t *p = PLOT (widget);
  if(p->resizable || !p->wc){
    requisition->width = 400;
    requisition->height = 200;
  }else{
    requisition->width = widget->allocation.width;
    requisition->height = widget->allocation.height;
  }
}

static void _sv_plot_realize (GtkWidget *widget){
  GdkWindowAttr attributes;
  gint      attributes_mask;

  GTK_WIDGET_SET_FLAGS (widget, GTK_REALIZED);
  GTK_WIDGET_SET_FLAGS (widget, GTK_CAN_FOCUS);

  attributes.x = widget->allocation.x;
  attributes.y = widget->allocation.y;
  attributes.width = widget->allocation.width;
  attributes.height = widget->allocation.height;
  attributes.wclass = GDK_INPUT_OUTPUT;
  attributes.window_type = GDK_WINDOW_CHILD;
  attributes.event_mask = 
    gtk_widget_get_events (widget) | 
    GDK_EXPOSURE_MASK|
    GDK_POINTER_MOTION_MASK|
    GDK_BUTTON_PRESS_MASK  |
    GDK_BUTTON_RELEASE_MASK|
    GDK_KEY_PRESS_MASK |
    GDK_KEY_RELEASE_MASK |
    GDK_STRUCTURE_MASK |
    GDK_ENTER_NOTIFY_MASK |
    GDK_LEAVE_NOTIFY_MASK;

  attributes.visual = gtk_widget_get_visual (widget);
  attributes.colormap = gtk_widget_get_colormap (widget);
  attributes_mask = GDK_WA_X | GDK_WA_Y | GDK_WA_VISUAL | GDK_WA_COLORMAP;
  widget->window = gdk_window_new (widget->parent->window,
				   &attributes, attributes_mask);
  gtk_style_attach (widget->style, widget->window);
  gtk_style_set_background (widget->style, widget->window, GTK_STATE_NORMAL);
  gdk_window_set_user_data (widget->window, widget);
  gtk_widget_set_double_buffered (widget, FALSE);
}

static void _sv_plot_size_allocate (GtkWidget     *widget,
				GtkAllocation *allocation){
  _sv_plot_t *p = PLOT (widget);

  if (GTK_WIDGET_REALIZED (widget)){

    if(p->wc && 
       allocation->width == widget->allocation.width &&
       allocation->height == widget->allocation.height) return;

    if(p->wc && !p->resizable)return;

    if(p->wc)
      cairo_destroy(p->wc);
    if (p->fore)
      cairo_surface_destroy(p->fore);
    if (p->back)
      cairo_surface_destroy(p->back);
    if(p->datarect)
      free(p->datarect);
    if (p->stage)
      cairo_surface_destroy(p->stage);
    
    gdk_window_move_resize (widget->window, allocation->x, allocation->y, 
			    allocation->width, allocation->height);
    
    p->wc = gdk_cairo_create(widget->window);

    // the background is created from data
    p->datarect = calloc(allocation->width * allocation->height,4);
    
    p->back = cairo_image_surface_create_for_data ((unsigned char *)p->datarect,
						   CAIRO_FORMAT_RGB24,
						   allocation->width,
						   allocation->height,
						   allocation->width*4);

    p->stage = cairo_image_surface_create(CAIRO_FORMAT_RGB24,
					  allocation->width,
					  allocation->height);
    p->fore = cairo_image_surface_create(CAIRO_FORMAT_ARGB32,
					  allocation->width,
					  allocation->height);

  }

  widget->allocation = *allocation;
  p->x = _sv_scalespace_linear(p->x.lo,p->x.hi,widget->allocation.width,p->scalespacing,p->x.legend);
  p->y = _sv_scalespace_linear(p->y.lo,p->y.hi,widget->allocation.height,p->scalespacing,p->y.legend);
  _sv_plot_unset_box(p);
  if(p->recompute_callback)p->recompute_callback(p->app_data);
  //_sv_plot_draw_scales(p); geenrally done in callback after scale massaging

}

static void box_check(_sv_plot_t *p, int x, int y){
  if(p->box_active){
    double vals[4];
    box_corners(p,vals);
    
    if(inside_box(p,x,y) && !p->button_down)
      p->box_active = 2;
    else
      p->box_active = 1;
    
    _sv_plot_expose_request_partial(p,
				(int)(vals[0]),
				(int)(vals[1]),
				(int)(vals[2]+3), // account for floor/ceil *and* roundoff potential
				(int)(vals[3]+3));
  }
}

static gint mouse_motion(GtkWidget        *widget,
			 GdkEventMotion   *event){
  _sv_plot_t *p = PLOT (widget);

  int x = event->x;
  int y = event->y;
  int bx = _sv_scalespace_pixel(&p->x,p->box_x1);
  int by = _sv_scalespace_pixel(&p->y,p->box_y1);

  if(p->button_down){
    if(abs(bx - x)>5 ||
       abs(by - y)>5)
      p->box_active = 1;
    
    if(p->box_active){
      double vals[4];
      box_corners(p,vals);
      _sv_plot_expose_request_partial(p,
				  (int)(vals[0]),
				  (int)(vals[1]),
				  (int)(vals[2]+3),  // account for floor/ceil *and* roundoff potential
				  (int)(vals[3]+3));
    }
    
    p->box_x2 = _sv_scalespace_value(&p->x,x);
    p->box_y2 = _sv_scalespace_value(&p->y,y);
  }

  box_check(p,x,y);

  return TRUE;
}

static gboolean mouse_press (GtkWidget        *widget,
			     GdkEventButton   *event){

  if (event->button == 3) return FALSE;
  if (event->button == 1){
  
    _sv_plot_t *p = PLOT (widget);
    
    if(p->box_active && inside_box(p,event->x,event->y) && !p->button_down){
      
      p->selx = _sv_scalespace_value(&p->x,event->x);
      p->sely = _sv_scalespace_value(&p->y,event->y);
      _sv_plot_snap_crosshairs(p);
      p->cross_active=1;
      
      if(p->box_callback)
	p->box_callback(p->cross_data,1);
      
      p->button_down=0;
      p->box_active=0;
      
    }else{
      p->box_x2=p->box_x1 = _sv_scalespace_value(&p->x,event->x);
      p->box_y2=p->box_y1 = _sv_scalespace_value(&p->y,event->y);
      p->box_active = 0;
      p->button_down=1; 
    }
  }
  gtk_widget_grab_focus(widget);
  return TRUE;
}
 
static gboolean mouse_release (GtkWidget        *widget,
			       GdkEventButton   *event){
  if (event->button == 3) return FALSE;

  _sv_plot_t *p = PLOT (widget);
  _sv_plot_expose_request(p);

  if(!p->box_active && p->button_down){
    p->selx = _sv_scalespace_value(&p->x,event->x);
    p->sely = _sv_scalespace_value(&p->y,event->y);
    _sv_plot_snap_crosshairs(p);

    if(p->crosshairs_callback)
      p->crosshairs_callback(p->cross_data);

    p->cross_active=1;
    _sv_plot_expose_request(p);
  }

  p->button_down=0;
  box_check(p,event->x, event->y);

  if(p->box_active){
    if(p->box_callback)
      p->box_callback(p->cross_data,0);
  }  
  

  return TRUE;
}

void _sv_plot_do_enter(_sv_plot_t *p){
  // if box is active, effect it
  
  if(p->box_active){
    
    if(p->box_callback){
      p->box_callback(p->cross_data,0);
      p->box_callback(p->cross_data,1);
    }
    p->button_down=0;
    p->box_active=0;
  }else{
    if(p->button_down){
      GdkEventButton event;
      event.x = _sv_scalespace_pixel(&p->x,p->selx);
      event.y = _sv_scalespace_pixel(&p->y,p->sely);
      
      mouse_release(GTK_WIDGET(p),&event);
    }else{
      p->box_x2=p->box_x1 = p->selx;
      p->box_y2=p->box_y1 = p->sely;
      p->box_active = 1;
      p->button_down=1; 
    }
  }
}

void _sv_plot_set_crossactive(_sv_plot_t *p, int active){
  if(!active){
    p->button_down=0;
    p->box_active=0;
  }

  p->cross_active=active;
  _sv_plot_draw_scales(p);
  _sv_plot_expose_request(p);
}

void _sv_plot_toggle_legend(_sv_plot_t *p){
  p->legend_active++;
  if (p->legend_active>2)
    p->legend_active=0;
  _sv_plot_expose_request(p);
}

void _sv_plot_set_legendactive(_sv_plot_t *p, int active){
  p->legend_active=active;
  _sv_plot_expose_request(p);
}

static gboolean _sv_plot_key_press(GtkWidget *widget,
				   GdkEventKey *event){
  _sv_plot_t *p = PLOT(widget);

  int shift = (event->state&GDK_SHIFT_MASK);
  if(event->state&GDK_MOD1_MASK) return FALSE;
  if(event->state&GDK_CONTROL_MASK)return FALSE;
  
  /* non-control keypresses */
  switch(event->keyval){

  case GDK_Left:
    {
      double x = _sv_scalespace_pixel(&p->x_v,p->selx)-1;
      p->cross_active=1;
      if(shift)
	x-=9;
      p->selx = _sv_scalespace_value(&p->x_v,x);
      if(p->crosshairs_callback)
	p->crosshairs_callback(p->cross_data);

      if(p->button_down){
	p->box_active=1;
	p->box_x2 = p->selx;
      }else
	p->box_active=0;

      _sv_plot_expose_request(p);
    }
    return TRUE;

  case GDK_Right:
    {
      double x = _sv_scalespace_pixel(&p->x_v,p->selx)+1;
      p->cross_active=1;
      if(shift)
	x+=9;
      p->selx = _sv_scalespace_value(&p->x_v,x);
       if(p->crosshairs_callback)
	p->crosshairs_callback(p->cross_data);

      if(p->button_down){
	p->box_active=1;
	p->box_x2 = p->selx;
      }else
	p->box_active=0;

      _sv_plot_expose_request(p);

    }
    return TRUE;
  case GDK_Up:
    {
      double y = _sv_scalespace_pixel(&p->y_v,p->sely)-1;
      p->cross_active=1;
      if(shift)
	y-=9;
      p->sely = _sv_scalespace_value(&p->y_v,y);
      if(p->crosshairs_callback)
	p->crosshairs_callback(p->cross_data);

      if(p->button_down){
	p->box_active=1;
	p->box_y2 = p->sely;
      }else
	p->box_active=0;

      _sv_plot_expose_request(p);
    }
    return TRUE;
  case GDK_Down:
    {
      double y = _sv_scalespace_pixel(&p->y_v,p->sely)+1;
      p->cross_active=1;
      if(shift)
	y+=9;
      p->sely = _sv_scalespace_value(&p->y_v,y);
      if(p->crosshairs_callback)
	p->crosshairs_callback(p->cross_data);
      
      if(p->button_down){
	p->box_active=1;
	p->box_y2 = p->sely;
      }else
	p->box_active=0;
      
      _sv_plot_expose_request(p);

    }
    return TRUE;
  }


  return FALSE;
}

static gboolean _sv_plot_unfocus(GtkWidget        *widget,
			     GdkEventFocus       *event){
  _sv_plot_t *p=PLOT(widget);
  p->widgetfocus=0;
  _sv_plot_expose_request(p);
  return TRUE;
}

static gboolean _sv_plot_refocus(GtkWidget        *widget,
			     GdkEventFocus       *event){
  _sv_plot_t *p=PLOT(widget);
  p->widgetfocus=1;
  _sv_plot_expose_request(p);
  return TRUE;
}

static void _sv_plot_class_init (_sv_plot_class_t * class) {

  GtkObjectClass *object_class;
  GtkWidgetClass *widget_class;

  object_class = (GtkObjectClass *) class;
  widget_class = (GtkWidgetClass *) class;

  parent_class = gtk_type_class (GTK_TYPE_WIDGET);

  object_class->destroy = _sv_plot_destroy;

  widget_class->realize = _sv_plot_realize;
  widget_class->expose_event = _sv_plot_expose;
  widget_class->size_request = _sv_plot_size_request;
  widget_class->size_allocate = _sv_plot_size_allocate;
  widget_class->button_press_event = mouse_press;
  widget_class->button_release_event = mouse_release;
  widget_class->motion_notify_event = mouse_motion;
  //widget_class->enter_notify_event = _sv_plot_enter;
  //widget_class->leave_notify_event = _sv_plot_leave;
  widget_class->key_press_event = _sv_plot_key_press;

  widget_class->focus_out_event = _sv_plot_unfocus;
  widget_class->focus_in_event = _sv_plot_refocus;

}

GType _sv_plot_get_type (void){

  static GType plot_type = 0;

  if (!plot_type)
    {
      static const GTypeInfo plot_info = {
        sizeof (_sv_plot_class_t),
        NULL,
        NULL,
        (GClassInitFunc) _sv_plot_class_init,
        NULL,
        NULL,
        sizeof (_sv_plot_t),
        0,
        (GInstanceInitFunc) _sv_plot_init,
	0
      };

      plot_type = g_type_register_static (GTK_TYPE_WIDGET, "Plot",
					  &plot_info, 0);
    }
  
  return plot_type;
}

_sv_plot_t *_sv_plot_new (void (*callback)(void *),void *app_data,
		void (*cross_callback)(void *),void *cross_data,
		void (*box_callback)(void *, int),void *box_data,
		unsigned flags) {
  GtkWidget *g = GTK_WIDGET (g_object_new (PLOT_TYPE, NULL));
  _sv_plot_t *p = PLOT (g);
  p->recompute_callback = callback;
  p->app_data = app_data;
  p->crosshairs_callback = cross_callback;
  p->cross_data = cross_data;
  p->box_callback = box_callback;
  p->box_data = box_data;
  p->flags = flags;
  p->grid_mode = _SV_PLOT_GRID_NORMAL;
  p->resizable = 1;
  p->legend_active = 1;

  return p;
}

void _sv_plot_expose_request(_sv_plot_t *p){
  gdk_threads_enter();

  GtkWidget *widget = GTK_WIDGET(p);
  GdkRectangle r;
  
  if (GTK_WIDGET_REALIZED (widget)){
    r.x=0;
    r.y=0;
    r.width=widget->allocation.width;
    r.height=widget->allocation.height;
    
    gdk_window_invalidate_rect (widget->window, &r, FALSE);
  }
  gdk_threads_leave();
}

void _sv_plot_expose_request_partial(_sv_plot_t *p,int x, int y, int w, int h){
  gdk_threads_enter();

  GtkWidget *widget = GTK_WIDGET(p);
  GdkRectangle r;
  
  r.x=x;
  r.y=y;
  r.width=w;
  r.height=h;
  
  gdk_window_invalidate_rect (widget->window, &r, FALSE);
  gdk_threads_leave();
}

void _sv_plot_set_crosshairs(_sv_plot_t *p, double x, double y){
  gdk_threads_enter();

  p->selx = x;
  p->sely = y;
  p->cross_active=1;

  _sv_plot_expose_request(p);
  gdk_threads_leave();
}

void _sv_plot_set_crosshairs_snap(_sv_plot_t *p, double x, double y){
  gdk_threads_enter();
  double xpixel =  rint(_sv_scalespace_pixel(&p->x_v,x));
  double ypixel =  rint(_sv_scalespace_pixel(&p->y_v,y));

  p->selx = _sv_scalespace_value(&p->x_v,xpixel);
  p->sely = _sv_scalespace_value(&p->y_v,ypixel);
  p->cross_active=1;

  _sv_plot_expose_request(p);
  gdk_threads_leave();
}

void _sv_plot_snap_crosshairs(_sv_plot_t *p){
  gdk_threads_enter();

  double xpixel =  rint(_sv_scalespace_pixel(&p->x_v,p->selx));
  double ypixel =  rint(_sv_scalespace_pixel(&p->y_v,p->sely));

  p->selx = _sv_scalespace_value(&p->x_v,xpixel);
  p->sely = _sv_scalespace_value(&p->y_v,ypixel);

  _sv_plot_expose_request(p);
  gdk_threads_leave();
}

int _sv_plot_get_crosshair_xpixel(_sv_plot_t *p){
  _sv_scalespace_t x;
  double v;

  gdk_threads_enter();
  x = p->x;
  v = p->selx;
  gdk_threads_leave();

  return (int)rint(_sv_scalespace_pixel(&x,v));
}

int _sv_plot_get_crosshair_ypixel(_sv_plot_t *p){
  _sv_scalespace_t y;
  double v;

  gdk_threads_enter();
  y = p->y;
  v = p->sely;
  gdk_threads_leave();

  return (int)rint(_sv_scalespace_pixel(&y,v));
}

void _sv_plot_unset_box(_sv_plot_t *p){
  gdk_threads_enter();
  p->box_active = 0;
  gdk_threads_leave();
}

void _sv_plot_box_vals(_sv_plot_t *p, double ret[4]){
  gdk_threads_enter();
  int n = p->x.neg;
  
  ret[0] = (p->box_x1*n<p->box_x2*n?p->box_x1:p->box_x2);
  ret[1] = (p->box_x1*n>p->box_x2*n?p->box_x1:p->box_x2);

  n = p->y.neg;
  ret[2] = (p->box_y1*n>p->box_y2*n?p->box_y1:p->box_y2);
  ret[3] = (p->box_y1*n<p->box_y2*n?p->box_y1:p->box_y2);
  gdk_threads_leave();
}

void _sv_plot_box_set(_sv_plot_t *p, double vals[4]){
  gdk_threads_enter();

  p->box_x1=vals[0];
  p->box_x2=vals[1];
  p->box_y1=vals[2];
  p->box_y2=vals[3];
  p->box_active = 1;
  
  _sv_plot_expose_request(p);
  gdk_threads_leave();
}

void _sv_plot_legend_clear(_sv_plot_t *p){
  int i;
  if(p->legend_list){
    for(i=0;i<p->legend_entries;i++)
      if(p->legend_list[i])
	free(p->legend_list[i]);
    free(p->legend_list);
    p->legend_list=NULL;
  }
  p->legend_entries=0;
}

void _sv_plot_legend_add(_sv_plot_t *p, char *entry){
  _sv_plot_legend_add_with_color(p,entry,0xffffffffUL);
}

void _sv_plot_legend_add_with_color(_sv_plot_t *p, char *entry, u_int32_t color){
  if(!p->legend_list || !p->legend_colors){
    p->legend_list = calloc(1, sizeof(*p->legend_list));
    p->legend_colors = calloc(1, sizeof(*p->legend_colors));
    p->legend_entries=1;
  }else{
    p->legend_entries++;
    p->legend_list = realloc(p->legend_list, p->legend_entries*sizeof(*p->legend_list));
    p->legend_colors = realloc(p->legend_colors, p->legend_entries*sizeof(*p->legend_colors));
  }

  if(entry)
    p->legend_list[p->legend_entries-1] = strdup(entry);
  else
    p->legend_list[p->legend_entries-1] = strdup("");
  p->legend_colors[p->legend_entries-1] = color;
}

void _sv_plot_resizable(_sv_plot_t *p, int rp){
  GtkWidget *widget = GTK_WIDGET(p);
  if(!rp){

    p->resizable = 0;
    gtk_widget_set_size_request(widget,
				widget->allocation.width,
				widget->allocation.height);
    while(gtk_events_pending()){
      gtk_main_iteration(); 
      gdk_flush();
    }
    
  }else{
    gtk_widget_set_size_request(widget,400,200);
    while(gtk_events_pending()){
      gtk_main_iteration(); 
      gdk_flush();
    }
    p->resizable = 1;
  }
}