diff options
-rw-r--r-- | grid/grid2.c | 554 |
1 files changed, 0 insertions, 554 deletions
diff --git a/grid/grid2.c b/grid/grid2.c deleted file mode 100644 index 06d5b5e..0000000 --- a/grid/grid2.c +++ /dev/null @@ -1,554 +0,0 @@ -/* 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 "m_imp.h" -#include "g_canvas.h" -#include "t_tk.h" -#include "g_grid.h" - -#ifdef NT -#include <io.h> -#else -#include <unistd.h> -#endif - -/* needed to create a grid from PD's menu -void canvas_objtext(t_glist *gl, int xpos, int ypos, int selected, t_binbuf *b); -void canvas_startmotion(t_canvas *x); -*/ - -#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.2, 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_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%x.c delete %xPOINT\n", canvas, x); - } - - if ( x->x_current < x->x_obj.te_xpix ) xpoint = x->x_obj.te_xpix; - if ( x->x_current > x->x_obj.te_xpix + x->x_width - pointsize ) - xpoint = x->x_obj.te_xpix + x->x_width - pointsize; - if ( x->y_current < x->x_obj.te_ypix ) ypoint = x->x_obj.te_ypix; - if ( x->y_current > x->x_obj.te_ypix + x->x_height - pointsize ) - ypoint = x->x_obj.te_ypix + x->x_height - pointsize; - // draw the selected point - GRID_SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -fill #FF0000 -tags %xPOINT\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_VGUI7(".x%x.c create rectangle %d %d %d %d -fill #124392 -tags %xGRID\n", - canvas, x->x_obj.te_xpix, x->x_obj.te_ypix, - x->x_obj.te_xpix + x->x_width, x->x_obj.te_ypix + x->x_height, - x); - GRID_SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %xOUTL\n", - canvas, x->x_obj.te_xpix, x->x_obj.te_ypix + x->x_height+1, - x->x_obj.te_xpix+7, x->x_obj.te_ypix + x->x_height+2, - x); - GRID_SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %xOUTR\n", - canvas, x->x_obj.te_xpix+x->x_width-7, x->x_obj.te_ypix + x->x_height+1, - x->x_obj.te_xpix+x->x_width, x->x_obj.te_ypix + x->x_height+2, - x); - - if ( x->x_grid ) - { - int xlpos = x->x_obj.te_xpix+x->x_width/x->x_xlines; - int ylpos = x->x_obj.te_ypix+x->x_height/x->x_ylines; - int xcount = 1; - int ycount = 1; - while ( xlpos < x->x_obj.te_xpix+x->x_width ) - { - GRID_SYS_VGUI9(".x%x.c create line %d %d %d %d -fill #FFFFFF -tags %xLINE%d%d\n", - canvas, xlpos, x->x_obj.te_ypix, - xlpos, x->x_obj.te_ypix+x->x_height, - x, xcount, 0 ); - xlpos+=x->x_width/x->x_xlines; - xcount++; - } - while ( ylpos < x->x_obj.te_ypix+x->x_height ) - { - GRID_SYS_VGUI9(".x%x.c create line %d %d %d %d -fill #FFFFFF -tags %xLINE%d%d\n", - canvas, x->x_obj.te_xpix, ylpos, - x->x_obj.te_xpix+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%x.c coords %xGRID %d %d %d %d\n", - canvas, x, - x->x_obj.te_xpix, x->x_obj.te_ypix, - x->x_obj.te_xpix+x->x_width, x->x_obj.te_ypix+x->x_height); - GRID_SYS_VGUI7(".x%x.c coords %xOUTL %d %d %d %d\n", - canvas, x, - x->x_obj.te_xpix, x->x_obj.te_ypix + x->x_height+1, - x->x_obj.te_xpix+7, x->x_obj.te_ypix + x->x_height+2 ); - GRID_SYS_VGUI7(".x%x.c coords %xOUTR %d %d %d %d\n", - canvas, x, - x->x_obj.te_xpix+x->x_width-7, x->x_obj.te_ypix + x->x_height+1, - x->x_obj.te_xpix+x->x_width, x->x_obj.te_ypix + x->x_height+2 ); - if ( x->x_point ) - { - grid_draw_update(x, glist); - } - if ( x->x_grid ) - { - int xlpos = x->x_obj.te_xpix+x->x_width/x->x_xlines; - int ylpos = x->x_obj.te_ypix+x->x_height/x->x_ylines; - int xcount = 1; - int ycount = 1; - while ( xlpos < x->x_obj.te_xpix+x->x_width ) - { - GRID_SYS_VGUI9(".x%x.c coords %xLINE%d%d %d %d %d %d\n", - canvas, x, xcount, 0, xlpos, x->x_obj.te_ypix, - xlpos, x->x_obj.te_ypix + x->x_height); - xlpos+=x->x_width/x->x_xlines; - xcount++; - } - while ( ylpos < x->x_obj.te_ypix+x->x_height ) - { - GRID_SYS_VGUI9(".x%x.c coords %xLINE%d%d %d %d %d %d\n", - canvas, x, 0, ycount, x->x_obj.te_xpix, ylpos, - x->x_obj.te_xpix + 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%x.c delete %xGRID\n", canvas, x); - GRID_SYS_VGUI3(".x%x.c delete %xOUTL\n", canvas, x); - GRID_SYS_VGUI3(".x%x.c delete %xOUTR\n", canvas, x); - if (x->x_grid) - { - for (i=1; i<x->x_xlines; i++ ) - { - GRID_SYS_VGUI4(".x%x.c delete %xLINE%d0\n", canvas, x, i); - } - for (i=1; i<x->x_ylines; i++ ) - { - GRID_SYS_VGUI4(".x%x.c delete %xLINE0%d\n", canvas, x, i); - } - } - if (x->x_point) - { - GRID_SYS_VGUI3(".x%x.c delete %xPOINT\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%x.c itemconfigure %xGRID -outline #0000FF\n", canvas, x); - } - else - { - pd_unbind(&x->x_obj.ob_pd, x->x_name); - GRID_SYS_VGUI3(".x%x.c itemconfigure %xGRID -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 - x->x_obj.te_xpix) * (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 - x->x_obj.te_ypix ) * (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 = x->x_obj.te_xpix; - *yp1 = x->x_obj.te_ypix; - *xp2 = x->x_obj.te_xpix+x->x_width; - *yp2 = x->x_obj.te_ypix+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, - gensym("grid"), 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_getcanvas(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 = x->x_obj.te_xpix; - int yold = x->x_obj.te_ypix; - - // 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 != x->x_obj.te_xpix || yold != x->x_obj.te_ypix) - { - 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 void grid_set(t_grid *x, t_floatarg dx, t_floatarg dy) -{ - int xold = x->x_current; - int yold = x->y_current; - - // post( "grid_set x=%f y=%f", x, y ); - - 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 t_grid *grid_new(t_symbol *s, int argc, t_atom *argv) -{ - int i, zz; - t_grid *x; - t_pd *x2; - 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 ); - - // 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~: grid_free" ); -} - -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_set, gensym("set"), A_FLOAT, A_FLOAT, 0); - class_addmethod(grid_class, (t_method)grid_dialog, gensym("dialog"), A_GIMME, 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; - /* - * <hans@eds.org>: As of 0.37, pd does not have these last - * two elements in t_widgetbehavoir anymore. - * see pd/src/notes.txt: - * savefunction and dialog into class structure - */ -#if PD_MINOR_VERSION < 37 || !defined(PD_MINOR_VERSION) - grid_widgetbehavior.w_propertiesfn = grid_properties; - grid_widgetbehavior.w_savefn = grid_save; -/* this is needed to make the help patch work on < 0.37 */ - class_sethelpsymbol(grid_class, gensym("grid-help.pd")); -#else - class_setsavefn(grid_class, &grid_save); - class_setpropertiesfn(grid_class, &grid_properties); -#endif - class_setwidget(grid_class, &grid_widgetbehavior); -} |