#include <FL/Fl.H>
#include <FL/Fl_Window.H>
#include <FL/fl_draw.H>
#include <FL/Fl_Choice.H>
#include <FL/Fl_Button.H>

#include "cwindow.h"
#include <math.h>
#include <string.h>

#define NUMOFWINDOWS (30)
#define XINIT    10      /* set default window location */
#define YINIT    50
#define WIDTH    450     /* start off small - user resizes */
#define HEIGHT   150
#define BDR      5
#define BORDERW 10           /* inset from L & R edge */
#define TXHGHT   14      /* baseline offset for text */
#define MAXLSEGS 4096    /* X can only deal with so many linesegs .. */

Fl_Window *form = NULL;
Fl_Choice *choice;
Fl_Button *end;

Fl_Menu_Item menu[] = {
  {NULL,	0, 0, (void*)NULL}, //0
  {NULL,	0, 0, (void*)NULL}, //1
  {NULL,	0, 0, (void*)NULL}, //2
  {NULL,	0, 0, (void*)NULL}, //3
  {NULL,	0, 0, (void*)NULL}, //4
  {NULL,	0, 0, (void*)NULL}, //5
  {NULL,	0, 0, (void*)NULL}, //6
  {NULL,	0, 0, (void*)NULL}, //7
  {NULL,	0, 0, (void*)NULL}, //8
  {NULL,	0, 0, (void*)NULL}, //9
  {NULL,	0, 0, (void*)NULL}, //10
  {NULL,	0, 0, (void*)NULL}, //11
  {NULL,	0, 0, (void*)NULL}, //12
  {NULL,	0, 0, (void*)NULL}, //13
  {NULL,	0, 0, (void*)NULL}, //14
  {NULL,	0, 0, (void*)NULL}, //15
  {NULL,	0, 0, (void*)NULL}, //16
  {NULL,	0, 0, (void*)NULL}, //17
  {NULL,	0, 0, (void*)NULL}, //18
  {NULL,	0, 0, (void*)NULL}, //19
  {NULL,	0, 0, (void*)NULL}, //20
  {NULL,	0, 0, (void*)NULL}, //21
  {NULL,	0, 0, (void*)NULL}, //22
  {NULL,	0, 0, (void*)NULL}, //23
  {NULL,	0, 0, (void*)NULL}, //24
  {NULL,	0, 0, (void*)NULL}, //25
  {NULL,	0, 0, (void*)NULL}, //26
  {NULL,	0, 0, (void*)NULL}, //27
  {NULL,	0, 0, (void*)NULL}, //28
  {NULL,	0, 0, (void*)NULL}, //29
  0};

class graph_box: public Fl_Window {
    void draw();
public:
    int curr;
    int last;
    graph_box(int x,int y,int w,int h,const char *l=0)
      : Fl_Window(x,y,w,h,l) {}
    void add_graph(WINDAT *wdptr);
}*graph;

void graph_box::draw()
{
    Fl_Window::draw();
    fl_color(0,0,0);
    fl_line_style(FL_SOLID);
    fl_rect(0,0,w(),h());
    if (curr>=0) {
      WINDAT	  *win   = (WINDAT*)menu[curr].user_data_;
      if (win==NULL) return;
      MYFLT       *fdata = win->fdata;
      long        npts   = win->npts;
      char        *msg   = win->caption;
      short       win_x, win_y, win_w, win_h;     /* window rect */
      short       gra_x, gra_y, gra_w, gra_h;     /* graph rect is inset */
      short       y_axis;
      int         lsegs,pts_pls;
      int         pol;
      char        string[80];

      pol  = win->polarity;

      win_x = 0;  win_y = 0;              /* window pixels addressed relative */

      /* set new width and height so we leave a 20% border around the plot */
      gra_w = w() - 2*BORDERW;
      gra_h = h();
      gra_x = win_x + BORDERW;
      gra_y = win_y;
      /* figure height of Y axis - top, middle or bottom */
      if (pol == (short)BIPOL)
        y_axis = gra_y + (gra_h/2);
      else if (pol == (short)NEGPOL)
        y_axis = gra_y;
      else                /* POSPOL */
        y_axis = gra_y + gra_h;

      if (npts < MAXLSEGS) {
        lsegs = npts;                   /* one lineseg per datum */
        pts_pls = 1;
      }
      else {
        pts_pls = npts/MAXLSEGS;
        if (npts%MAXLSEGS) pts_pls++;
        lsegs = npts/pts_pls;
      }
      fl_begin_line();
      {       /* take scale factors out of for-loop for faster run-time */
        MYFLT x_scale = gra_w / (MYFLT)(lsegs-1);
        MYFLT y_scale = gra_h / win->oabsmax; /* unipolar default */
        MYFLT  f,ma,mi,*fdptr = fdata;
        int c,i = 0, j = lsegs;

        if (pol == (short)BIPOL)
          y_scale /= 2.0;             /* max data scales to h/2 */
        /* put x-y pairs into a point list for XDraw */
        while (j--) {
          int x = gra_x + (short)((MYFLT)i++ * x_scale);
          int y;
          if (pts_pls == 1)
            f = *fdptr++;
          else {
            ma = mi = *fdptr++;
            for (c = 1; c < pts_pls; ++c)
              if ((f = *fdptr++) > ma)    ma = f;
              else if ( f<mi )            mi = f;
            if (ma < 0)             f = mi;
            else if (mi > 0)        f = ma;
            else if (ma > -mi)      f = ma;
            else f = mi;
          }
          y = y_axis - (short)(f * y_scale);
          fl_vertex(x,y);
        }
      }
      fl_end_line();

      /* now draw axes: y-axis is always on the left edge,
         x-axis height is determined by the case we're in */
      fl_line(gra_x, y_axis, (gra_x + gra_w), y_axis);
      fl_line(gra_x, gra_y, gra_x, (gra_y + gra_h));
      if (win->danflag) {       /* flag to add dotted divider */
        fl_line_style(FL_DOT);
        fl_line(win_x+w()/2, win_y, win_x+w()/2, win_y+win_h);
      }
      sprintf(string,"%s  %ld points, max %5.3f",msg,npts,win->oabsmax);
      form->label(string);
     }
    fl_line_style(FL_SOLID);
}

void add_graph(WINDAT *wdptr)
{
    WINDAT *n = (WINDAT*)malloc(sizeof(WINDAT));
    int m;
    WINDAT *old;
    int replacing = 0;

    memcpy(n, wdptr, sizeof(WINDAT));
    n->fdata = (MYFLT*)malloc(n->npts*sizeof(MYFLT));
    memcpy(n->fdata, wdptr->fdata, n->npts*sizeof(MYFLT));
    for (m=0; m<NUMOFWINDOWS; m++) { // If text the same use slot
      if (menu[m].text!=NULL && strcmp(wdptr->caption, menu[m].text)==0) {
        replacing = 1;
        goto replace;
      }
    }
    // Use a new slot, cycling round
    graph->last++;
    m = graph->last;
    if (m>=NUMOFWINDOWS) m = graph->last = 0;
 replace:
    old = (WINDAT*)menu[m].user_data_;
    if (old) {
      free((void*)(old->fdata));
      free((void*)old);
    }
    menu[m].user_data_ = n;
    if (replacing==0) {
      if (menu[m].text!=NULL) free((void*)menu[m].text);
      menu[m].text = (const char*)malloc(strlen(n->caption)+1);
      strcpy((char *)menu[m].text, n->caption);
    }
    graph->curr = m;
    choice->value(m);
    graph->redraw();
}


void do_redraw(Fl_Widget*,void*)
{
    graph->curr=choice->value();
    graph->redraw();
}

void makeWindow(char *name)
{
    if (form==NULL) {
      form = new Fl_Window(WIDTH,HEIGHT, name);
      choice = new Fl_Choice(140,0,140,20,"Choose Graph");
      choice->menu(menu);
      choice->value(0);
      choice->callback((Fl_Callback*)do_redraw);
      graph=new graph_box(BDR,30+BDR,WIDTH-2*BDR,HEIGHT-30-2*BDR);
      graph->curr = -1;
      graph->last = -1;
      graph->end();
      end = new Fl_Button(WIDTH-30, 0, 25,15, "Quit");
      end->hide();
      form->resizable(graph);
      form->end();
    }
}

extern "C" {
  void DrawGraph_(WINDAT *);
  long MakeWindow(char *);
  int POLL_EVENTS(void);
  void kill_graph(int);
  int myFLwait(void);
  void MakeXYin_(XYINDAT*, MYFLT, MYFLT);
  void ReadXYin_(XYINDAT *wdptr);
  void KillXYin_(XYINDAT *x);
}

void DrawGraph_(WINDAT *wdptr)
{
    add_graph(wdptr);
    Fl::check();
}

long MakeWindow(char *name)
{
    long m;
    if (form==NULL) {
      makeWindow(name);
      form->show();
    }
    return (long)form;
}

int POLL_EVENTS(void)
{
    if (form) Fl::check();
    return 1;
}

void kill_graph(int m)
{
    WINDAT *n = (WINDAT*)menu[m].user_data_;
    free(n->fdata);
    free(n);
    menu[m].user_data_ = NULL;
    menu[m].text = "(deleted)";
}

int myFLwait()
{
    if (form==NULL) return 1;
    end->show();
    while (end->value()==0) Fl::wait(0.5);
    return 1;
}

#define GUTTERH 20           /* space for text at top & bottom */
#define BORDERW 10           /* inset from L & R edge */

void MakeXYin_(XYINDAT *w, MYFLT x, MYFLT y)
{
    if (w->windid==0) {
      Fl_Window *xyin = new Fl_Window(WIDTH,WIDTH, "XY input");
      short   win_x, win_y;
      short   gra_x, gra_y, gra_w, gra_h;

      win_x = 0;  win_y = 0;              /* window pixels addressed relative */
      
      /* set new width and height so we leave a 20% border around the plot */
      gra_w = xyin->w() - 2*BORDERW;      gra_h = xyin->h() - 2*GUTTERH;
      gra_x = win_x + BORDERW;            gra_y = win_y + GUTTERH;
      w->m_x = gra_x + (int)(x * (MYFLT)gra_w);
      w->m_y = gra_y + (int)(y * (MYFLT)gra_h);
      fl_color(0,0,0);
      fl_line_style(FL_DOT);
      fl_line(gra_x,w->m_y,(gra_x+gra_w),w->m_y);
      fl_line(w->m_x,gra_y, w->m_x,(gra_y+gra_h));
      w->windid = (long) xyin;
      xyin->show();
    }
}

void ReadXYin_(XYINDAT *wdptr)
{
    short       win_x, win_y;
    short       gra_x, gra_y, gra_w, gra_h;
    short       m_x, m_y;
    Fl_Window *xwin = (Fl_Window *)wdptr->windid;

    Fl::wait(0.1);
    m_x = Fl::event_x();
    m_y = Fl::event_y();

    win_x = 0;  win_y = 0;      /* window pixels addressed relative */

    /* set new width and height so we leave a 20% border around the plot */
    gra_w = xwin->w() - 2*BORDERW;      gra_h = xwin->h() - 2*GUTTERH;
    gra_x = win_x + BORDERW;            gra_y = win_y + GUTTERH;

    /* clip mouse position */
    if (m_x < gra_x)            m_x = gra_x;
    else if (m_x > gra_x+gra_w) m_x = gra_x+gra_w;
    if (m_y < gra_y)            m_y = gra_y;
    else if (m_y > gra_y+gra_h) m_y = gra_y+gra_h;

    if (m_x != wdptr->m_x || m_y != wdptr->m_y) { /* only redo if changed */
      /* undraw old crosshairs */
      fl_color(FL_BACKGROUND_COLOR);
      fl_line_style(FL_SOLID);
      fl_line(gra_x, wdptr->m_y, (gra_x + gra_w), wdptr->m_y);
      fl_line(wdptr->m_x, gra_y, wdptr->m_x, (gra_y + gra_h));
      // Draw new
      fl_color(0,0,0);
      fl_line_style(FL_SOLID);
      fl_line(gra_x, m_y, (gra_x + gra_w), m_y);
      fl_line(m_x, gra_y, m_x, (gra_y + gra_h));
      wdptr->m_x = m_x;       wdptr->m_y = m_y;
      wdptr->x = ((MYFLT)m_x-gra_x)/(MYFLT)gra_w;
      wdptr->y = ((MYFLT)m_y-gra_y)/(MYFLT)gra_h;
    }
}

void KillXYin_(XYINDAT *wdptr)
{
    Fl_Window *x = (Fl_Window*)wdptr->windid;
    x->~Fl_Window();
}