/* Copyright (c) 1997-1999 Miller Puckette.
 * For information on usage and redistribution, and for a DISCLAIMER OF ALL
 * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */

/* g_grid.c written by Yves Degoyon 2002                                       */
/* grid control object : two dimensionnal grid                                 */
/* thanks to Thomas Musil, Miller Puckette, Guenther Geiger and Krzystof Czaja */

#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <math.h>
#include <ctype.h>
#include "m_pd.h"
#include "g_canvas.h"

#include "g_grid.h"

/* For the scalehandle... */
#include "g_all_guis.h"

#ifdef _WIN32
#include <io.h>
#else
#include <unistd.h>
#endif

EXTERN int gfxstub_haveproperties(void *key);

#define DEFAULT_GRID_WIDTH 200
#define DEFAULT_GRID_HEIGHT 200
#define DEFAULT_GRID_NBLINES 10
#define MIN_GRID_WIDTH 20
#define MIN_GRID_HEIGHT 20

t_widgetbehavior grid_widgetbehavior;
static t_class *grid_class;
static int gridcount=0;

static int guidebug=0;
static int pointsize = 5;

static char   *grid_version = "grid: version 0.9, written by Yves Degoyon (ydegoyon@free.fr)";

#define GRID_SYS_VGUI2(a,b) if (guidebug) \
                         post(a,b);\
                         sys_vgui(a,b)

#define GRID_SYS_VGUI3(a,b,c) if (guidebug) \
                         post(a,b,c);\
                         sys_vgui(a,b,c)

#define GRID_SYS_VGUI4(a,b,c,d) if (guidebug) \
                         post(a,b,c,d);\
                         sys_vgui(a,b,c,d)

#define GRID_SYS_VGUI7(a,b,c,d,e,f,g) if (guidebug) \
                         post(a,b,c,d,e,f,g );\
                         sys_vgui(a,b,c,d,e,f,g)

#define GRID_SYS_VGUI8(a,b,c,d,e,f,g,h) if (guidebug) \
                         post(a,b,c,d,e,f,g,h);\
                         sys_vgui(a,b,c,d,e,f,g,h)

#define GRID_SYS_VGUI9(a,b,c,d,e,f,g,h,i) if (guidebug) \
                         post(a,b,c,d,e,f,g,h,i );\
                         sys_vgui(a,b,c,d,e,f,g,h,i)

/* drawing functions */
static void grid_draw_update(t_grid *x, t_glist *glist)
{
    t_canvas *canvas=glist_getcanvas(glist);
    t_int xpoint=x->x_current, ypoint=x->y_current;

    if (glist_isvisible(glist))
    {
        // delete previous point if existing
        //if (x->x_point)
        //{
        //   GRID_SYS_VGUI3(".x%lx.c delete %lxPOINT\n", canvas, x);
        //}

        if (x->x_current < text_xpix(&x->x_obj, glist))
            xpoint = text_xpix(&x->x_obj, glist);
        if (x->x_current > text_xpix(&x->x_obj, glist) + x->x_width - pointsize)
            xpoint = text_xpix(&x->x_obj, glist) + x->x_width - pointsize;
        if (x->y_current < text_ypix(&x->x_obj, glist))
            ypoint = text_ypix(&x->x_obj, glist);
        if (x->y_current > text_ypix(&x->x_obj, glist) + x->x_height - pointsize)
            ypoint = text_ypix(&x->x_obj, glist) + x->x_height - pointsize;
        // draw the selected point
        //GRID_SYS_VGUI7(".x%lx.c create rectangle %d %d %d %d "
        //               "-fill #FF0000 -tags %lxPOINT\n",
        //    canvas, xpoint, ypoint, xpoint+pointsize, ypoint+pointsize, x);
        /* move the point */
        gui_vmess("gui_grid_point", "xxii",
            canvas,
            x,
            xpoint - text_xpix(&x->x_obj, glist),
            ypoint - text_ypix(&x->x_obj, glist));
        x->x_point = 1;
    }
    // else
    // {
    //    post( "grid : position updated in an invisible grid" );
    // }
}

static void grid_draw_select(t_grid* x, t_glist* glist);
static void grid_draw_configure(t_grid *x, t_glist *glist)
{
    t_canvas *canvas=glist_getcanvas(glist);
    //GRID_SYS_VGUI8(".x%lx.c create rectangle %d %d %d %d "
    //               "-fill %s -tags %lxGRID\n",
    //    canvas, text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),
    //    text_xpix(&x->x_obj, glist) + x->x_width,
    //    text_ypix(&x->x_obj, glist) + x->x_height,
    //    x->x_bgcolor, x);
    //GRID_SYS_VGUI7(".x%lx.c create rectangle %d %d %d %d -tags %lxo0\n",
    //    canvas, text_xpix(&x->x_obj, glist),
    //    text_ypix(&x->x_obj, glist) + x->x_height+1,
    //    text_xpix(&x->x_obj, glist)+7,
    //    text_ypix(&x->x_obj, glist) + x->x_height+2, x);
    //GRID_SYS_VGUI7(".x%lx.c create rectangle %d %d %d %d -tags %lxo1\n",
    //    canvas, text_xpix(&x->x_obj, glist) + x->x_width - 7,
    //    text_ypix(&x->x_obj, glist) + x->x_height + 1,
    //    text_xpix(&x->x_obj, glist) + x->x_width,
    //    text_ypix(&x->x_obj, glist) + x->x_height + 2,
    //    x);
    //if (x->x_grid)
    //{
    //    int xlpos = text_xpix(&x->x_obj, glist)+x->x_width/x->x_xlines;
    //    int ylpos = text_ypix(&x->x_obj, glist)+x->x_height/x->x_ylines;
    //    int xcount = 1;
    //    int ycount = 1;
    //    while ( xlpos < text_xpix(&x->x_obj, glist)+x->x_width )
    //    {
    //        GRID_SYS_VGUI9(".x%lx.c create line %d %d %d %d "
    //                       "-fill #FFFFFF -tags %lxLINE%d%d\n",
    //            canvas, xlpos, text_ypix(&x->x_obj, glist),
    //            xlpos, text_ypix(&x->x_obj, glist) + x->x_height,
    //            x, xcount, 0);
    //        xlpos += x->x_width / x->x_xlines;
    //        xcount++;
    //    }
    //    while (ylpos < text_ypix(&x->x_obj, glist)+x->x_height)
    //    {
    //        GRID_SYS_VGUI9(".x%lx.c create line %d %d %d %d "
    //                       "-fill #FFFFFF -tags %lxLINE%d%d\n",
    //            canvas, text_xpix(&x->x_obj, glist), ylpos,
    //            text_xpix(&x->x_obj, glist)+x->x_width, ylpos,
    //            x, 0, ycount);
    //        ylpos += x->x_height / x->x_ylines;
    //        ycount++;
    //    }
    //}

    // gui_gobj_new, "xx type text_xpix text_ypix istoplevel"
    gui_vmess("gui_configure_grid", "xxiisiii",
        canvas,
        x,
        x->x_width,
        x->x_height,
        x->x_bgcolor,
        x->x_grid,
        x->x_xlines,
        x->x_ylines);
    if (glist_isselected(glist, (t_gobj*)&x->x_obj))
        grid_draw_select(x, glist);
    canvas_fixlinesfor( canvas, (t_text*)x );
}

static void grid_draw_new(t_grid *x, t_glist *glist)
{
    t_canvas *canvas=glist_getcanvas(glist);
    gui_vmess("gui_grid_new", "xxiii",
        canvas,
        x,
        text_xpix(&x->x_obj, glist),
        text_ypix(&x->x_obj, glist),
        glist_istoplevel(glist));
    grid_draw_configure(x, glist);
}

static void grid_draw_move(t_grid *x, t_glist *glist)
{
    t_canvas *canvas=glist_getcanvas(glist);

    //GRID_SYS_VGUI7(".x%lx.c coords %lxGRID %d %d %d %d\n",
    //    canvas, x,
    //    text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),
    //    text_xpix(&x->x_obj, glist)+x->x_width,
    //    text_ypix(&x->x_obj, glist)+x->x_height);
    //GRID_SYS_VGUI7(".x%lx.c coords %lxo0 %d %d %d %d\n",
    //    canvas, x,
    //    text_xpix(&x->x_obj, glist),
    //    text_ypix(&x->x_obj, glist) + x->x_height + 1,
    //    text_xpix(&x->x_obj, glist) + 7,
    //    text_ypix(&x->x_obj, glist) + x->x_height + 2);
    //GRID_SYS_VGUI7(".x%lx.c coords %lxo1 %d %d %d %d\n",
    //    canvas, x,
    //    text_xpix(&x->x_obj, glist) + x->x_width - 7,
    //    text_ypix(&x->x_obj, glist) + x->x_height + 1,
    //    text_xpix(&x->x_obj, glist) + x->x_width,
    //    text_ypix(&x->x_obj, glist) + x->x_height + 2);
    if (x->x_point)
    {
        grid_draw_update(x, glist);
    }
    //if (x->x_grid)
    //{
    //    int xlpos = text_xpix(&x->x_obj, glist)+x->x_width/x->x_xlines;
    //    int ylpos = text_ypix(&x->x_obj, glist)+x->x_height/x->x_ylines;
    //    int xcount = 1;
    //    int ycount = 1;
    //    while (xlpos < text_xpix(&x->x_obj, glist) + x->x_width)
    //    {
    //        GRID_SYS_VGUI9(".x%lx.c coords %lxLINE%d%d %d %d %d %d\n",
    //            canvas, x, xcount, 0, xlpos, text_ypix(&x->x_obj, glist),
    //            xlpos, text_ypix(&x->x_obj, glist) + x->x_height);
    //            xlpos+=x->x_width/x->x_xlines;
    //        xcount++;
    //    }
    //    while (ylpos < text_ypix(&x->x_obj, glist) + x->x_height)
    //    {
    //        GRID_SYS_VGUI9(".x%lx.c coords %lxLINE%d%d %d %d %d %d\n",
    //            canvas, x, 0, ycount, text_xpix(&x->x_obj, glist), ylpos,
    //            text_xpix(&x->x_obj, glist) + x->x_width, ylpos);
    //            ylpos+=x->x_height/x->x_ylines;
    //        ycount++;
    //    }
    //}
    canvas_fixlinesfor( canvas, (t_text*)x );
}

static void grid_draw_erase(t_grid* x, t_glist* glist)
{
    t_canvas *canvas = glist_getcanvas(glist);

    gui_vmess("gui_gobj_erase", "xx",
        canvas, x);
    //int i;

    //GRID_SYS_VGUI3(".x%lx.c delete %lxGRID\n", canvas, x);
    //GRID_SYS_VGUI3(".x%lx.c delete %lxo0\n", canvas, x);
    //GRID_SYS_VGUI3(".x%lx.c delete %lxo1\n", canvas, x);
    //if (x->x_grid)
    //{
    //    for (i=1; i<x->x_xlines; i++)
    //    {
    //        GRID_SYS_VGUI4(".x%lx.c delete %lxLINE%d0\n", canvas, x, i);
    //    }
    //    for (i=1; i<x->x_ylines; i++)
    //    {
    //        GRID_SYS_VGUI4(".x%lx.c delete %lxLINE0%d\n", canvas, x, i);
    //    }
    //}
    //if (x->x_point)
    //{
    //    GRID_SYS_VGUI3(".x%lx.c delete %lxPOINT\n", canvas, x);
    //    x->x_point = 0;
    //}
}

static void grid_draw_select(t_grid* x,t_glist* glist)
{
    t_canvas *canvas = glist_getcanvas(glist);
    if (x->x_selected)
    {
        //pd_bind(&x->x_obj.ob_pd, x->x_name);
        /* sets the item in blue */
        //GRID_SYS_VGUI3(".x%lx.c itemconfigure %lxGRID "
        //               "-outline #0000FF\n",
        //    canvas, x);
        gui_vmess("gui_gobj_select", "xx", canvas, x);
    }
    else
    {
        //pd_unbind(&x->x_obj.ob_pd, x->x_name);
        //GRID_SYS_VGUI3(".x%lx.c itemconfigure %lxGRID "
        //               "-outline #000000\n",
        //    canvas, x);
        gui_vmess("gui_gobj_deselect", "xx", canvas, x);
    }
}

static void grid_output_current(t_grid* x)
{
    t_float xvalue, yvalue;
    t_float xmodstep, ymodstep;

    xvalue = x->x_min + (x->x_current - text_xpix(&x->x_obj, x->x_glist)) * (x->x_max-x->x_min) / x->x_width ;
    if (xvalue < x->x_min ) xvalue = x->x_min;
    if (xvalue > x->x_max ) xvalue = x->x_max;
    xmodstep = ((float)((int)(xvalue*10000) % (int)(x->x_xstep*10000))/10000.);
    xvalue = xvalue - xmodstep;
    outlet_float( x->x_xoutlet, xvalue );

    yvalue = x->y_max - (x->y_current - text_ypix(&x->x_obj, x->x_glist) ) * (x->y_max-x->y_min) / x->x_height ;
    if (yvalue < x->y_min ) yvalue = x->y_min;
    if (yvalue > x->y_max ) yvalue = x->y_max;
    ymodstep = ((float)((int)(yvalue*10000) % (int)(x->x_ystep*10000))/10000.);
    yvalue = yvalue - ymodstep;
    outlet_float(x->x_youtlet, yvalue);
}

/* ------------------------ grid widgetbehaviour----------------------------- */


static void grid_getrect(t_gobj *z, t_glist *owner,
    int *xp1, int *yp1, int *xp2, int *yp2)
{
   t_grid* x = (t_grid*)z;

   *xp1 = text_xpix(&x->x_obj, x->x_glist);
   *yp1 = text_ypix(&x->x_obj, x->x_glist);
   *xp2 = text_xpix(&x->x_obj, x->x_glist)+x->x_width;
   *yp2 = text_ypix(&x->x_obj, x->x_glist)+x->x_height;
}

static void grid_save(t_gobj *z, t_binbuf *b)
{
    t_grid *x = (t_grid *)z;

    // post( "saving grid : %s", x->x_name->s_name );
    binbuf_addv(b, "ssiissiffiffiffiiff", gensym("#X"),gensym("obj"),
    (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix,
        atom_getsymbol(binbuf_getvec(x->x_obj.te_binbuf)),
        x->x_name, x->x_width, x->x_min,
        x->x_max, x->x_height,
        x->y_min, x->y_max,
        x->x_grid, x->x_xstep, 
        x->x_ystep, x->x_xlines, x->x_ylines, 
        x->x_current, x->y_current );
    binbuf_addv(b, ";");
}

static void grid_properties(t_gobj *z, t_glist *owner)
{
    char buf[800];
    char *gfx_tag;
    t_grid *x=(t_grid *)z;

    //sprintf(buf, "pdtk_grid_dialog %%s %s %d %.2f %.2f %d %.2f %.2f %d %.2f %.2f %d %d\n",
    //    x->x_name->s_name, x->x_width, x->x_min, x->x_max, x->x_height, 
    //    x->y_min, x->y_max, x->x_grid, x->x_xstep, x->x_ystep,
    //    x->x_xlines, x->x_ylines );
        // post("grid_properties : %s", buf );
    //gfxstub_new(&x->x_obj.ob_pd, x, buf);
    gfx_tag = gfxstub_new2(&x->x_obj.ob_pd, x);

    gui_start_vmess("gui_external_dialog", "ss", gfx_tag, "grid");
    gui_start_array();

    gui_s("receive_symbol"); gui_s(x->x_name->s_name);
    gui_s("width"); gui_i(x->x_width);
    gui_s("min"); gui_f(x->x_min);
    gui_s("max"); gui_f(x->x_max);
    gui_s("height"); gui_i(x->x_height);
    gui_s("y-min"); gui_f(x->y_min);
    gui_s("y-max"); gui_f(x->y_max);
    gui_s("grid_toggle"); gui_i(x->x_grid);
    gui_s("x-steps"); gui_f(x->x_xstep);
    gui_s("y-steps"); gui_f(x->x_ystep);
    gui_s("x-lines"); gui_i(x->x_xlines);
    gui_s("y-lines"); gui_i(x->x_ylines);

    gui_end_array();
    gui_end_vmess();

}

static void grid_select(t_gobj *z, t_glist *glist, int selected)
{
    t_grid *x = (t_grid *)z;

    x->x_selected = selected;
    grid_draw_select(x, glist);
}

static void grid_vis(t_gobj *z, t_glist *glist, int vis)
{
    t_grid *x = (t_grid *)z;

    if (vis)
    {
        grid_draw_new( x, glist );
        grid_draw_update( x, glist );
        grid_output_current(x);
    }
    else
    {
        grid_draw_erase( x, glist );
    }
}

static void grid_dialog(t_grid *x, t_symbol *s, int argc, t_atom *argv)
{
    if (!x)
    {
        error("grid : error :tried to set properties on an unexisting object");
    }
    if (argc != 12)
    {
        pd_error(x,
            "grid : error in the number of arguments ( %d instead of 12 )",
                argc );
        return;
    }
        if ( argv[0].a_type != A_SYMBOL || argv[1].a_type != A_FLOAT ||
            argv[2].a_type != A_FLOAT || argv[3].a_type != A_FLOAT ||
            argv[4].a_type != A_FLOAT || argv[5].a_type != A_FLOAT ||
            argv[6].a_type != A_FLOAT || argv[7].a_type != A_FLOAT || 
            argv[8].a_type != A_FLOAT || argv[9].a_type != A_FLOAT || 
            argv[10].a_type != A_FLOAT || argv[11].a_type != A_FLOAT ) {
        pd_error(x, "grid : wrong arguments" );
        return;
    }
    x->x_name = argv[0].a_w.w_symbol;
    x->x_width = (int)argv[1].a_w.w_float;
    x->x_min = argv[2].a_w.w_float;
    x->x_max = argv[3].a_w.w_float;
    x->x_height = (int)argv[4].a_w.w_float;
    x->y_min = argv[5].a_w.w_float;
    x->y_max = argv[6].a_w.w_float;
    x->x_grid = argv[7].a_w.w_float;
    x->x_xstep = argv[8].a_w.w_float;
    x->x_ystep = argv[9].a_w.w_float;
    x->x_xlines = argv[10].a_w.w_float;
    x->x_ylines = argv[11].a_w.w_float;
    //grid_draw_erase(x, x->x_glist);
    //grid_draw_new(x, x->x_glist);
    grid_draw_configure(x, x->x_glist);
}

static void grid_delete(t_gobj *z, t_glist *glist)
{
    canvas_deletelinesfor(glist, (t_text *)z);
}

static void grid_displace(t_gobj *z, t_glist *glist, int dx, int dy)
{
    t_grid *x = (t_grid *)z;
    int xold = text_xpix(&x->x_obj, glist);
    int yold = text_ypix(&x->x_obj, glist);

    // post( "grid_displace dx=%d dy=%d", dx, dy );

    x->x_obj.te_xpix += dx;
    x->x_current += dx;
    x->x_obj.te_ypix += dy;
    x->y_current += dy;
    if (xold != text_xpix(&x->x_obj, glist) || yold != text_ypix(&x->x_obj, glist))
    {
        gui_vmess("gui_text_displace", "xxii",
            glist_getcanvas(glist),
            x,
            dx,
            dy
        );
	//grid_draw_move(x, x->x_glist);
        canvas_fixlinesfor(glist, (t_text *)z);
    }
}

static void grid_displace_wtag(t_gobj *z, t_glist *glist, int dx, int dy)
{
    t_grid *x = (t_grid *)z;
    int xold = text_xpix(&x->x_obj, glist);
    int yold = text_ypix(&x->x_obj, glist);

    // post( "grid_displace dx=%d dy=%d", dx, dy );

    x->x_obj.te_xpix += dx;
    x->x_current += dx;
    x->x_obj.te_ypix += dy;
    x->y_current += dy;
    if (xold != text_xpix(&x->x_obj, glist) || yold != text_ypix(&x->x_obj, glist))
    {
	//grid_draw_move(x, x->x_glist);
        canvas_fixlinesfor(glist, (t_text *)z);
    }
}


static void grid_motion(t_grid *x, t_floatarg dx, t_floatarg dy)
{
    int xold = x->x_current;
    int yold = x->y_current;

    // post( "grid_motion dx=%f dy=%f", dx, dy );

    x->x_current += dx;
    x->y_current += dy;
    if(xold != x->x_current || yold != x->y_current)
    {
        grid_output_current(x);
	grid_draw_update(x, x->x_glist);
    }
}

static int grid_click(t_gobj *z, struct _glist *glist,
    int xpix, int ypix, int shift, int alt, int dbl, int doit)
{
    t_grid* x = (t_grid *)z;

    // post( "grid_click doit=%d x=%d y=%d", doit, xpix, ypix );
    if ( doit) 
    {
        x->x_current = xpix;
        x->y_current = ypix;
        grid_output_current(x);
        grid_draw_update(x, glist);
        glist_grab(glist, &x->x_obj.te_g, (t_glistmotionfn)grid_motion,
            0, xpix, ypix);
    }
    return (1);
}

static void grid_goto(t_grid *x, t_floatarg newx, t_floatarg newy)
{
    int xold = x->x_current;
    int yold = x->y_current;

    if (newx > x->x_width-1) newx = x->x_width-1;
    if (newx < 0) newx = 0;
    if (newy > x->x_height-1) newy = x->x_height-1;
    if (newy < 0) newy = 0;

    // post( "grid_set x=%f y=%f", newx, newy );

    x->x_current = newx + text_xpix(&x->x_obj, x->x_glist);
    x->y_current = newy + text_ypix(&x->x_obj, x->x_glist);
    if (xold != x->x_current || yold != x->y_current)
    {
        grid_output_current(x);
        grid_draw_update(x, x->x_glist);
    }
}


static void grid_new_color(t_grid *x, t_floatarg color1,
    t_floatarg color2, t_floatarg color3)
{
    char col1[10], col2[10], col3[10];

    if ((color1 < 0) || (color1 > 255))
    {
        pd_error(x, "wrong color component : %d", (int)color1);
    }
    if ((color2 < 0) || (color2 > 255))
    {
        pd_error(x, "wrong color component : %d", (int)color2);
    }
    if ((color3 < 0) || (color3 > 255))
    {
        pd_error(x, "wrong color component : %d", (int)color3);
    }

    if (color1 < 17)
        sprintf(col1,"0%X",(int) color1);
    else
        sprintf(col1,"%X",(int) color1);

    if (color2 < 17)
        sprintf(col2,"0%X",(int) color2);
    else
        sprintf(col2,"%X",(int) color2);

    if (color3 < 17)
        sprintf(col3,"0%X",(int) color3);
    else
        sprintf(col3,"%X",(int) color3);
    sprintf( x->x_bgcolor, "#%s%s%s", col1, col2, col3);

    //grid_draw_erase(x, x->x_glist);
    //grid_draw_new(x, x->x_glist);
    grid_draw_configure(x, x->x_glist);
}

static void grid_values(t_grid* x, t_floatarg xvalue, t_floatarg yvalue)
{
    int xold = x->x_current;
    int yold = x->y_current;

    if (xvalue < x->x_min ) xvalue = x->x_min;
    if (xvalue > x->x_max ) xvalue = x->x_max;

    x->x_current = text_xpix(&x->x_obj, x->x_glist)
        + abs(((xvalue - x->x_min) / (x->x_max - x->x_min)) * x->x_width);

    if (yvalue < x->y_min ) yvalue = x->y_min;
    if (yvalue > x->y_max ) yvalue = x->y_max;

    x->y_current = text_ypix(&x->x_obj, x->x_glist)
        + abs((1 - (yvalue - x->y_min) / (x->y_max  - x->y_min)) * x->x_height);

    if (xold != x->x_current || yold != x->y_current)
    {
        grid_output_current(x);
        grid_draw_update(x, x->x_glist);
    }
}

static void grid_xvalues(t_grid* x, t_floatarg xvalue, t_floatarg yvalue)
{
    int xold = x->x_current;
    int yold = x->y_current;

    if (xvalue < x->x_min ) xvalue = x->x_min;
    if (xvalue > x->x_max ) xvalue = x->x_max;

    x->x_current = text_xpix(&x->x_obj, x->x_glist)
        + abs(((xvalue - x->x_min) / (x->x_max - x->x_min)) * x->x_width);

    if (yvalue < x->y_min ) yvalue = x->y_min;
    if (yvalue > x->y_max ) yvalue = x->y_max;

    x->y_current = text_ypix(&x->x_obj, x->x_glist)
        + abs((1 - (yvalue - x->y_min) / (x->y_max  - x->y_min)) * x->x_height);

    if (xold != x->x_current || yold != x->y_current)
    {
        grid_draw_update(x, x->x_glist);
    }
}

static void grid_valuemotion(t_grid* x, t_floatarg dx, t_floatarg dy)
{
    int xold = x->x_current;
    int yold = x->y_current;
    t_float xvalue, yvalue;

    xvalue = x->x_min + (x->x_current - text_xpix(&x->x_obj, x->x_glist)) * (x->x_max-x->x_min) / x->x_width ;
    if (xvalue < x->x_min ) xvalue = x->x_min;
    if (xvalue > x->x_max ) xvalue = x->x_max;

    yvalue = x->y_max - (x->y_current - text_ypix(&x->x_obj, x->x_glist) ) * (x->y_max-x->y_min) / x->x_height ;
    if (yvalue < x->y_min ) yvalue = x->y_min;
    if (yvalue > x->y_max ) yvalue = x->y_max;

    xvalue += dx;
    yvalue += dy;

    if (xvalue < x->x_min ) xvalue = x->x_min;
    if (xvalue > x->x_max ) xvalue = x->x_max;

    x->x_current = text_xpix(&x->x_obj, x->x_glist)
        + abs(((xvalue - x->x_min) / (x->x_max - x->x_min)) * x->x_width);

    if (yvalue < x->y_min ) yvalue = x->y_min;
    if (yvalue > x->y_max ) yvalue = x->y_max;

    x->y_current =  text_ypix(&x->x_obj, x->x_glist) + (1 - ((yvalue - x->y_min) / x->y_max)) * x->x_height;



   if (xold != x->x_current || yold != x->y_current)
    {
        grid_output_current(x);
        grid_draw_update(x, x->x_glist);
    }
}

static void grid_xvaluemotion(t_grid* x, t_floatarg dx, t_floatarg dy)
{
    int xold = x->x_current;
    int yold = x->y_current;
    t_float xvalue, yvalue;

    xvalue = x->x_min + (x->x_current - text_xpix(&x->x_obj, x->x_glist)) * (x->x_max-x->x_min) / x->x_width;
    if (xvalue < x->x_min) xvalue = x->x_min;
    if (xvalue > x->x_max) xvalue = x->x_max;

    yvalue = x->y_max - (x->y_current - text_ypix(&x->x_obj, x->x_glist) ) * (x->y_max-x->y_min) / x->x_height ;
    if (yvalue < x->y_min ) yvalue = x->y_min;
    if (yvalue > x->y_max ) yvalue = x->y_max;

    xvalue += dx;
    yvalue += dy;

    if (xvalue < x->x_min) xvalue = x->x_min;
    if (xvalue > x->x_max) xvalue = x->x_max;

    x->x_current = text_xpix(&x->x_obj, x->x_glist)
        + abs(((xvalue - x->x_min) / (x->x_max - x->x_min)) * x->x_width);

    if (yvalue < x->y_min) yvalue = x->y_min;
    if (yvalue > x->y_max) yvalue = x->y_max;

    x->y_current =  text_ypix(&x->x_obj, x->x_glist)
        + abs((1 - (yvalue - x->y_min) / (x->y_max - x->y_min)) * x->x_height);

    if (xold != x->x_current || yold != x->y_current)
    {
        grid_draw_update(x, x->x_glist);
    }
}

static void grid_bang(t_grid *x) {
    grid_output_current(x);
}

static void grid__clickhook(t_scalehandle *sh, int newstate)
{
    t_grid *x = (t_grid *)(sh->h_master);
    /* Use constrained dragging-- see g_canvas.c clickhook */
    sh->h_constrain = newstate;
    sh->h_adjust_x = sh->h_offset_x -
        (((t_object *)x)->te_xpix + x->x_width);
    sh->h_adjust_y = sh->h_offset_y -
        (((t_object *)x)->te_ypix + x->x_height);
    canvas_apply_setundo(x->x_glist, (t_gobj *)x);
    sh->h_dragon = newstate;
}

static void grid__motionhook(t_scalehandle *sh,
    t_floatarg mouse_x, t_floatarg mouse_y)
{
    t_grid *x = (t_grid *)(sh->h_master);
    int width = (sh->h_constrain == CURSOR_EDITMODE_RESIZE_Y) ?
        x->x_width :
        (int)mouse_x - text_xpix(&x->x_obj, x->x_glist) - sh->h_adjust_x;
    int height = (sh->h_constrain == CURSOR_EDITMODE_RESIZE_X) ?
        x->x_height :
        (int)mouse_y - text_ypix(&x->x_obj, x->x_glist) - sh->h_adjust_y;
    int minw = MIN_GRID_WIDTH,
        minh = MIN_GRID_HEIGHT;
    x->x_width = width < minw ? minw : width;
    x->x_height = height < minh ? minh : height;
    if (glist_isvisible(x->x_glist))
    {
        grid_draw_configure(x, x->x_glist);
        //scalehandle_unclick_scale(sh);
    }

    int properties = gfxstub_haveproperties((void *)x);
    if (properties)
    {
        int new_w = x->x_width + sh->h_dragx;
        int new_h = x->x_height + sh->h_dragy;
        properties_set_field_int(properties,"width",new_w);
        properties_set_field_int(properties,"height",new_h);
    }
}

/* wrapper method for forwarding "scalehandle" data */
static void grid_click_for_resizing(t_grid *x, t_floatarg f,
    t_floatarg xxx, t_floatarg yyy)
{
    t_scalehandle *sh = (t_scalehandle *)x->x_handle;
    sh->h_offset_x = (int)xxx;
    sh->h_offset_y = (int)yyy;
    grid__clickhook(sh, f);
}

/* another wrapper for forwarding "scalehandle" motion data */
static void grid_motion_for_resizing(t_grid *x, t_floatarg xxx,
    t_floatarg yyy)
{
    t_scalehandle *sh = (t_scalehandle *)x->x_handle;
    grid__motionhook(sh, xxx, yyy);
}

static t_grid *grid_new(t_symbol *s, int argc, t_atom *argv)
{
    int zz;
    t_grid *x;
    char *str;
 
    // post( "grid_new : create : %s argc =%d", s->s_name, argc );

    x = (t_grid *)pd_new(grid_class);
    // new grid created from the gui 
    if (argc != 0)
    {
        if ( argc != 14 )
        {
            pd_error(x, "grid : error in the number of arguments "
                        "( %d instead of 14 )",
                argc );
            return NULL;
        }
        if (argv[0].a_type != A_SYMBOL || argv[1].a_type != A_FLOAT ||
            argv[2].a_type != A_FLOAT || argv[3].a_type != A_FLOAT ||
            argv[4].a_type != A_FLOAT || argv[5].a_type != A_FLOAT ||
            argv[6].a_type != A_FLOAT || argv[7].a_type != A_FLOAT ||
            argv[8].a_type != A_FLOAT || argv[9].a_type != A_FLOAT ||
            argv[10].a_type != A_FLOAT || argv[11].a_type != A_FLOAT ||
            argv[12].a_type != A_FLOAT || argv[13].a_type != A_FLOAT )
        {
            pd_error(x, "grid : wrong arguments" );
            return NULL;
        }

        // update grid count
        if (!strncmp((str = argv[0].a_w.w_symbol->s_name), "grid", 5)
            && (zz = atoi(str + 5)) > gridcount)
        {
            gridcount = zz;
        }
        x->x_name = argv[0].a_w.w_symbol;
        pd_bind(&x->x_obj.ob_pd, x->x_name);
        x->x_width = argv[1].a_w.w_float;
        x->x_min = argv[2].a_w.w_float;
        x->x_max = argv[3].a_w.w_float;
        x->x_height = argv[4].a_w.w_float;
        x->y_min = argv[5].a_w.w_float;
        x->y_max = argv[6].a_w.w_float;
        x->x_grid = argv[7].a_w.w_float;
        x->x_xstep = argv[8].a_w.w_float;
        x->x_ystep = argv[9].a_w.w_float;
        x->x_xlines = argv[10].a_w.w_float;
        x->x_ylines = argv[11].a_w.w_float;
        x->x_current = argv[12].a_w.w_float;
        x->y_current = argv[13].a_w.w_float;
        x->x_point = 1;
    }
    else
    {
        char buf[40];

        sprintf(buf, "grid%d", ++gridcount);
        s = gensym(buf);

        x->x_name = s;
        pd_bind(&x->x_obj.ob_pd, x->x_name);

        x->x_width = DEFAULT_GRID_WIDTH;
        x->x_min = 0;
        x->x_max = DEFAULT_GRID_WIDTH - 1;
        x->x_height = DEFAULT_GRID_HEIGHT;
        x->y_min = 0;
        x->y_max = DEFAULT_GRID_HEIGHT - 1;
        x->x_grid = 1;
        x->x_xstep = 1.0;
        x->x_ystep = 1.0;
        x->x_xlines = DEFAULT_GRID_NBLINES;
        x->x_ylines = DEFAULT_GRID_NBLINES;
        x->x_current = 0;
        x->y_current = 0;
    }

    // common fields for new and restored grids
    x->x_point = 0;
    x->x_selected = 0;
    x->x_glist = (t_glist *) canvas_getcurrent();
    x->x_xoutlet = outlet_new(&x->x_obj, &s_float );
    x->x_youtlet = outlet_new(&x->x_obj, &s_float );

    x->x_bgcolor = (char*)getbytes(12);
    strcpy( x->x_bgcolor, "#123589" );

    // post( "grid_new name : %s width: %d height : %d",
    // x->x_name->s_name, x->x_width, x->x_height );

    x->x_handle = (t_pd*)scalehandle_new((t_object *)x, x->x_glist, 1,
        grid__clickhook, grid__motionhook);

    return (x);
}

static void grid_free(t_grid *x)
{
    pd_unbind(&x->x_obj.ob_pd, x->x_name);
    gfxstub_deleteforkey(x);
}

void grid_setup(void)
{
//#include "grid.tk2c"
    post ( grid_version );
    grid_class = class_new(gensym("grid"), (t_newmethod)grid_new,
        (t_method)grid_free, sizeof(t_grid), 0, A_GIMME, 0);
    class_addmethod(grid_class, (t_method)grid_click,
        gensym("click"), A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
    class_addmethod(grid_class, (t_method)grid_motion,
        gensym("motion"), A_FLOAT, A_FLOAT, 0);
    class_addmethod(grid_class, (t_method)grid_bang,
        gensym("bang"), 0);
    class_addmethod(grid_class, (t_method)grid_values,
        gensym("values"), A_FLOAT, A_FLOAT, 0);
    class_addmethod(grid_class, (t_method)grid_valuemotion,
        gensym("valuemotion"), A_FLOAT, A_FLOAT, 0);
    class_addmethod(grid_class, (t_method)grid_xvalues,
        gensym("xvalues"), A_FLOAT, A_FLOAT, 0);
    class_addmethod(grid_class, (t_method)grid_xvaluemotion,
        gensym("xvaluemotion"), A_FLOAT, A_FLOAT, 0);
    class_addmethod(grid_class, (t_method)grid_goto,
        gensym("goto"), A_FLOAT, A_FLOAT, 0);
    class_addmethod(grid_class, (t_method)grid_dialog,
        gensym("dialog"), A_GIMME, 0);
    class_addmethod(grid_class, (t_method)grid_new_color,
        gensym("color"), A_FLOAT, A_FLOAT, A_FLOAT, 0);
    /* Big hack for receiving edit-mode resize anchor clicks from
       g_editor.c. */
    class_addmethod(grid_class, (t_method)grid_click_for_resizing,
                    gensym("_click_for_resizing"),
                    A_FLOAT, A_FLOAT, A_FLOAT, 0);
    class_addmethod(grid_class, (t_method)grid_motion_for_resizing,
                    gensym("_motion_for_resizing"),
                    A_FLOAT, A_FLOAT, 0);
    grid_widgetbehavior.w_getrectfn =    grid_getrect;
    grid_widgetbehavior.w_displacefn =   grid_displace;
    grid_widgetbehavior.w_selectfn =     grid_select;
    grid_widgetbehavior.w_activatefn =   NULL;
    grid_widgetbehavior.w_deletefn =     grid_delete;
    grid_widgetbehavior.w_visfn =        grid_vis;
    grid_widgetbehavior.w_clickfn =      grid_click;
    grid_widgetbehavior.w_displacefnwtag = grid_displace_wtag;

#if PD_MINOR_VERSION >= 37
    class_setpropertiesfn(grid_class, grid_properties);
    class_setsavefn(grid_class, grid_save);
#else
    grid_widgetbehavior.w_propertiesfn = grid_properties;
    grid_widgetbehavior.w_savefn =       grid_save;
#endif

    class_setwidget(grid_class, &grid_widgetbehavior);
}
