From d145fa6f792d6c44da2feec90507adb94e40323e Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sun, 31 Jul 2011 03:59:16 +0000 Subject: got everything building using the template Makefile svn path=/trunk/externals/unauthorized/; revision=15173 --- grid.c | 717 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 717 insertions(+) create mode 100644 grid.c (limited to 'grid.c') diff --git a/grid.c b/grid.c new file mode 100644 index 0000000..84c0d7c --- /dev/null +++ b/grid.c @@ -0,0 +1,717 @@ +/* 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 +#include +#include +#include +#include +#include "m_pd.h" +#include "m_imp.h" +#include "g_canvas.h" + +#include "g_grid.h" + +#ifdef _WIN32 +#include +#else +#include +#endif + +#define DEFAULT_GRID_WIDTH 200 +#define DEFAULT_GRID_HEIGHT 200 +#define DEFAULT_GRID_NBLINES 10 + +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.8, 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; + + // later : try to figure out what's this test for ?? + // 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); + x->x_point = 1; + // } + // else + // { + // post( "grid : position updated in an invisible grid" ); + // } +} + +static void grid_draw_new(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++; + } + } + canvas_fixlinesfor( canvas, (t_text*)x ); +} + +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); + 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; ix_xlines; i++ ) + { + GRID_SYS_VGUI4(".x%lx.c delete %lxLINE%d0\n", canvas, x, i); + } + for (i=1; ix_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); + } + else + { + pd_unbind(&x->x_obj.ob_pd, x->x_name); + GRID_SYS_VGUI3(".x%lx.c itemconfigure %lxGRID -outline #000000\n", 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]; + 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); +} + +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 ) { + post( "grid : error :tried to set properties on an unexisting object" ); + } + if ( argc != 12 ) + { + post( "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 ) { + post( "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); +} + +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)) + { + grid_draw_move(x, x->x_glist); + } +} + +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 ) ) + { + post( "wrong color component : %d", (int) color1 ); + } + if ( ( color2 < 0 ) || ( color2 > 255 ) ) + { + post( "wrong color component : %d", (int) color2 ); + } + if ( ( color3 < 0 ) || ( color3 > 255 ) ) + { + post( "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 ); +} + +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) + ((xvalue - x->x_min) / x->x_max) * 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_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) + ((xvalue - x->x_min) / x->x_max) * 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_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) + ((xvalue - x->x_min) / x->x_max) * 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) + ((xvalue - x->x_min) / x->x_max) * 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_draw_update(x, x->x_glist); + } +} + +static void grid_bang(t_grid *x) { + grid_output_current(x); +} + +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 ) + { + post( "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 ) { + post( "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 ); + + return (x); +} + +static void grid_free(t_grid *x) +{ + post( "grid~: freeing ressources [NULL]" ); +} + +void grid_setup(void) +{ + 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); + 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; + +#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); + + sys_vgui("eval [read [open %s/%s.tcl]]\n", + grid_class->c_externdir->s_name, grid_class->c_name->s_name); +} -- cgit v1.2.1