From 607f5de1bd0ff0452f940772d3391fe0418de6c8 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Tue, 18 May 2004 00:58:15 +0000 Subject: Colorgrid object by Lluis Gomez svn path=/trunk/externals/pidip/; revision=1736 --- modules/pdp_colorgrid.c | 701 +++++++++++++++++++++++++++++++++++++++++++++ modules/pdp_colorgrid.tk | 87 ++++++ modules/pdp_colorgrid.tk2c | 65 +++++ modules/tk2c.bash | 24 ++ 4 files changed, 877 insertions(+) create mode 100644 modules/pdp_colorgrid.c create mode 100644 modules/pdp_colorgrid.tk create mode 100644 modules/pdp_colorgrid.tk2c create mode 100755 modules/tk2c.bash (limited to 'modules') diff --git a/modules/pdp_colorgrid.c b/modules/pdp_colorgrid.c new file mode 100644 index 0000000..ece62ad --- /dev/null +++ b/modules/pdp_colorgrid.c @@ -0,0 +1,701 @@ +/* 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_pdp_colorgrid.c written by Yves Degoyon 2002 */ +/* pdp_colorgrid control object : two dimensionnal pdp_colorgrid */ +/* 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 "t_tk.h" +#include "g_colorgrid.h" + +#ifdef NT +#include +#else +#include +#endif + +#define COLORGRID_IMG PWD"/patches/images/colorgrid.pnm" +#define DEFAULT_COLORGRID_WIDTH 256 +#define DEFAULT_COLORGRID_HEIGHT 50 +#define DEFAULT_COLORGRID_NBLINES 10 + +t_widgetbehavior pdp_colorgrid_widgetbehavior; +static t_class *pdp_colorgrid_class; +static int pdp_colorgridcount=0; + +static int guidebug=0; +static int pointsize = 5; + +static char *pdp_colorgrid_version = "pdp_colorgrid: version 0.4, written by Yves Degoyon (ydegoyon@free.fr) & Lluis Gomez i Bigorda (lluis@artefacte.org)"; + +#define COLORGRID_SYS_VGUI2(a,b) if (guidebug) \ + post(a,b);\ + sys_vgui(a,b) + +#define COLORGRID_SYS_VGUI3(a,b,c) if (guidebug) \ + post(a,b,c);\ + sys_vgui(a,b,c) + +#define COLORGRID_SYS_VGUI4(a,b,c,d) if (guidebug) \ + post(a,b,c,d);\ + sys_vgui(a,b,c,d) + +#define COLORGRID_SYS_VGUI5(a,b,c,d,e) if (guidebug) \ + post(a,b,c,d,e);\ + sys_vgui(a,b,c,d,e) + +#define COLORGRID_SYS_VGUI6(a,b,c,d,e,f) if (guidebug) \ + post(a,b,c,d,e,f);\ + sys_vgui(a,b,c,d,e,f) + +#define COLORGRID_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 COLORGRID_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 COLORGRID_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 pdp_colorgrid_draw_update(t_pdp_colorgrid *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) + { + COLORGRID_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 + COLORGRID_SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -outline {} -fill #FF0000 -tags %xPOINT\n", + canvas, xpoint, ypoint, xpoint+5, ypoint+5, x); + x->x_point = 1; + // } + // else + // { + // post( "pdp_colorgrid : position updated in an invisible pdp_colorgrid" ); + // } +} + +static void pdp_colorgrid_draw_new(t_pdp_colorgrid *x, t_glist *glist) +{ + t_canvas *canvas=glist_getcanvas(glist); + char *tagRoot; + char fname[MAXPDSTRING]=COLORGRID_IMG; + rtext_new(glist, (t_text *)x); + tagRoot = rtext_gettag(glist_findrtext(glist,(t_text *)x)); + + COLORGRID_SYS_VGUI3("image create photo img%x -file %s\n",x,fname); + + COLORGRID_SYS_VGUI6(".x%x.c create image %d %d -image img%x -tags %sS\n", canvas,text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist),x,tagRoot); + COLORGRID_SYS_VGUI5(".x%x.c coords %sS %d %d \n", + canvas, tagRoot, + x->x_obj.te_xpix + 128, x->x_obj.te_ypix + 25); + + COLORGRID_SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %so0\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, + tagRoot); + COLORGRID_SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %so1\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, + tagRoot); + COLORGRID_SYS_VGUI7(".x%x.c create rectangle %d %d %d %d -tags %so2\n", + canvas, x->x_obj.te_xpix+x->x_width-131, x->x_obj.te_ypix + x->x_height+1, + x->x_obj.te_xpix+x->x_width-126, x->x_obj.te_ypix + x->x_height+2, + tagRoot); + + if ( x->x_pdp_colorgrid ) + { + 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 ) + { + COLORGRID_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 ) + { + COLORGRID_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 pdp_colorgrid_draw_move(t_pdp_colorgrid *x, t_glist *glist) +{ + t_canvas *canvas=glist_getcanvas(glist); + char *tagRoot; + + tagRoot = rtext_gettag(glist_findrtext(glist,(t_text *)x)); + COLORGRID_SYS_VGUI7(".x%x.c coords %xCOLORGRID %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); + COLORGRID_SYS_VGUI5(".x%x.c coords %sS %d %d \n", + canvas, tagRoot, + x->x_obj.te_xpix + 128, x->x_obj.te_ypix + 25); + COLORGRID_SYS_VGUI7(".x%x.c coords %so0 %d %d %d %d\n", + canvas, tagRoot, + 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 ); + COLORGRID_SYS_VGUI7(".x%x.c coords %so1 %d %d %d %d\n", + canvas, tagRoot, + 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 ); + COLORGRID_SYS_VGUI7(".x%x.c coords %so2 %d %d %d %d\n", + canvas, tagRoot, + x->x_obj.te_xpix+x->x_width-131, x->x_obj.te_ypix + x->x_height+1, + x->x_obj.te_xpix+x->x_width-126, x->x_obj.te_ypix + x->x_height+2 ); + if ( x->x_point ) + { + pdp_colorgrid_draw_update(x, glist); + } + if ( x->x_pdp_colorgrid ) + { + 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 ) + { + COLORGRID_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 ) + { + COLORGRID_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 pdp_colorgrid_draw_erase(t_pdp_colorgrid* x,t_glist* glist) +{ + t_canvas *canvas=glist_getcanvas(glist); + int i; + char *tagRoot; + + tagRoot = rtext_gettag(glist_findrtext(glist,(t_text *)x)); + COLORGRID_SYS_VGUI3(".x%x.c delete %xCOLORGRID\n", canvas, x); + COLORGRID_SYS_VGUI3(".x%x.c delete %sS\n", canvas, tagRoot); + COLORGRID_SYS_VGUI3(".x%x.c delete %so0\n", canvas, tagRoot); + COLORGRID_SYS_VGUI3(".x%x.c delete %so1\n", canvas, tagRoot); + COLORGRID_SYS_VGUI3(".x%x.c delete %so2\n", canvas, tagRoot); + if (x->x_pdp_colorgrid) + { + for (i=1; ix_xlines; i++ ) + { + COLORGRID_SYS_VGUI4(".x%x.c delete %xLINE%d0\n", canvas, x, i); + } + for (i=1; ix_ylines; i++ ) + { + COLORGRID_SYS_VGUI4(".x%x.c delete %xLINE0%d\n", canvas, x, i); + } + } + if (x->x_point) + { + COLORGRID_SYS_VGUI3(".x%x.c delete %xPOINT\n", canvas, x); + x->x_point = 0; + } + rtext_free(glist_findrtext(glist, (t_text *)x)); +} + +static void pdp_colorgrid_draw_select(t_pdp_colorgrid* 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 */ + COLORGRID_SYS_VGUI3(".x%x.c itemconfigure %xCOLORGRID -outline #0000FF\n", canvas, x); + } + else + { + pd_unbind(&x->x_obj.ob_pd, x->x_name); + COLORGRID_SYS_VGUI3(".x%x.c itemconfigure %xCOLORGRID -outline #000000\n", canvas, x); + } +} + +static void pdp_colorgrid_hsv2rgb(t_float hue, t_float saturation, t_float value, t_float *red, t_float *green, t_float *blue) +{ + t_float i=0, f=0, p=0, q=0, t=0; + + if (saturation == 0) { + *red = value; + *green = value; + *blue = value; + } else { + if (hue == 6) hue = 0; + i = (int)hue ; /* the integer part of hue */ + f = hue - i; + p = value * (1 - saturation); + q = value * (1 - (saturation * f)); + t = value * (1 - (saturation * (1 - f))); + switch ((int)i) { + case 0: + *red = value; + *green = t; + *blue = p; + break; + case 1: + *red = q; + *green = value; + *blue = p; + break; + case 2: + *red = p; + *green = value; + *blue = t; + break; + case 3: + *red = p; + *green = q; + *blue = value; + break; + case 4: + *red = t; + *green = p; + *blue = value; + break; + case 5: + *red = value; + *green = p; + *blue = q; + break; + } + } +} + +static void pdp_colorgrid_output_current(t_pdp_colorgrid* x) +{ + t_float ox=0, oy=0, hue, saturation, value, red, green, blue ; + +/* These values need to be the same as those that produced the spectrum image:*/ + + t_float box_x = 256; + t_float box_y = 25; + + t_float min_value = 0.3; + t_float max_value = 1.0; + t_float value_inc = (max_value - min_value) / box_y; + + t_float min_hue = 0; + t_float max_hue = 6; + t_float hue_inc = (max_hue - min_hue) / box_x; + + t_float max_saturation = 0.9; + t_float min_saturation = 0.0; + t_float saturation_inc = (max_saturation - min_saturation) / box_y; + + t_float xvalue, yvalue, rvalue, gvalue, bvalue; + 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; + 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; + yvalue = 50 - yvalue; + + /* Use the coordinates only if they are non-zero: */ + + if ((xvalue >= 0) && (yvalue >= 0)) { + ox = xvalue; + oy = yvalue; + } else { + xvalue = ox; + yvalue = oy; + } + + if ((yvalue != 0)&&(yvalue!=50)) + { + /* Calculate HSV based on given coordinates and convert to RGB: */ + hue = hue_inc * xvalue; + if (yvalue <= box_y) { + saturation = max_saturation; + value = min_value + (value_inc * yvalue); + } else { + value = max_value - value_inc; + saturation = max_saturation - (saturation_inc * (yvalue - box_y)); + } + + pdp_colorgrid_hsv2rgb(hue, saturation, value, &red, &green, &blue); + } else { + if (yvalue == 0) { + red = 0; + green = 0; + blue = 0; + } else { + red = 1; + green = 1; + blue = 1; + } + } + + /* The RGB values are returned in the interval [0..1] so we + need to multiply by 256 to get "normal" color values.*/ + + red = red * 256; + green = green * 256; + blue = blue * 256; + + outlet_float( x->x_xoutlet, red ); + outlet_float( x->x_youtlet, green ); + outlet_float( x->x_zoutlet, blue ); +} + +/* ------------------------ pdp_colorgrid widgetbehaviour----------------------------- */ + + +static void pdp_colorgrid_getrect(t_gobj *z, t_glist *owner, + int *xp1, int *yp1, int *xp2, int *yp2) +{ + t_pdp_colorgrid* x = (t_pdp_colorgrid*)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 pdp_colorgrid_save(t_gobj *z, t_binbuf *b) +{ + t_pdp_colorgrid *x = (t_pdp_colorgrid *)z; + + // post( "saving pdp_colorgrid : %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("pdp_colorgrid"), x->x_name, x->x_width, x->x_min, + x->x_max, x->x_height, + x->y_min, x->y_max, + x->x_pdp_colorgrid, x->x_xstep, + x->x_ystep, x->x_xlines, x->x_ylines, + x->x_current, x->y_current ); + binbuf_addv(b, ";"); +} + +static void pdp_colorgrid_properties(t_gobj *z, t_glist *owner) +{ + char buf[800]; + t_pdp_colorgrid *x=(t_pdp_colorgrid *)z; + + sprintf(buf, "pdtk_pdp_colorgrid_dialog %%s %d %d %d\n", + x->x_xlines, x->x_ylines, x->x_pdp_colorgrid ); + // post("pdp_colorgrid_properties : %s", buf ); + gfxstub_new(&x->x_obj.ob_pd, x, buf); +} + +static void pdp_colorgrid_select(t_gobj *z, t_glist *glist, int selected) +{ + t_pdp_colorgrid *x = (t_pdp_colorgrid *)z; + + x->x_selected = selected; + pdp_colorgrid_draw_select( x, glist ); +} + +static void pdp_colorgrid_vis(t_gobj *z, t_glist *glist, int vis) +{ + t_pdp_colorgrid *x = (t_pdp_colorgrid *)z; + + if (vis) + { + pdp_colorgrid_draw_new( x, glist ); + pdp_colorgrid_draw_update( x, glist ); + pdp_colorgrid_output_current(x); + } + else + { + pdp_colorgrid_draw_erase( x, glist ); + } +} + +static void pdp_colorgrid_dialog(t_pdp_colorgrid *x, t_symbol *s, int argc, t_atom *argv) +{ + if ( !x ) { + post( "pdp_colorgrid : error :tried to set properties on an unexisting object" ); + } + if ( argv[0].a_type != A_FLOAT || argv[1].a_type != A_FLOAT || + argv[2].a_type != A_FLOAT ) + { + post( "pdp_colorgrid : wrong arguments" ); + return; + } + x->x_xlines = argv[0].a_w.w_float; + x->x_ylines = argv[1].a_w.w_float; + x->x_pdp_colorgrid = argv[2].a_w.w_float; + pdp_colorgrid_draw_erase(x, x->x_glist); + pdp_colorgrid_draw_new(x, x->x_glist); +} + +static void pdp_colorgrid_delete(t_gobj *z, t_glist *glist) +{ + canvas_deletelinesfor( glist_getcanvas(glist), (t_text *)z); +} + +static void pdp_colorgrid_displace(t_gobj *z, t_glist *glist, int dx, int dy) +{ + t_pdp_colorgrid *x = (t_pdp_colorgrid *)z; + int xold = x->x_obj.te_xpix; + int yold = x->x_obj.te_ypix; + + // post( "pdp_colorgrid_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) + { + pdp_colorgrid_draw_move(x, x->x_glist); + } +} + +static void pdp_colorgrid_motion(t_pdp_colorgrid *x, t_floatarg dx, t_floatarg dy) +{ + int xold = x->x_current; + int yold = x->y_current; + + // post( "pdp_colorgrid_motion dx=%f dy=%f", dx, dy ); + + x->x_current += dx; + x->y_current += dy; + if(xold != x->x_current || yold != x->y_current) + { + pdp_colorgrid_output_current(x); + pdp_colorgrid_draw_update(x, x->x_glist); + } +} + +static int pdp_colorgrid_click(t_gobj *z, struct _glist *glist, + int xpix, int ypix, int shift, int alt, int dbl, int doit) +{ + t_pdp_colorgrid* x = (t_pdp_colorgrid *)z; + + // post( "pdp_colorgrid_click doit=%d x=%d y=%d", doit, xpix, ypix ); + if ( doit) + { + x->x_current = xpix; + x->y_current = ypix; + pdp_colorgrid_output_current(x); + pdp_colorgrid_draw_update(x, glist); + glist_grab(glist, &x->x_obj.te_g, (t_glistmotionfn)pdp_colorgrid_motion, + 0, xpix, ypix); + } + return (1); +} + +static void pdp_colorgrid_goto(t_pdp_colorgrid *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( "pdp_colorgrid_set x=%f y=%f", newx, newy ); + + x->x_current = newx + x->x_obj.te_xpix; + x->y_current = newy + x->x_obj.te_ypix; + if(xold != x->x_current || yold != x->y_current) + { + pdp_colorgrid_output_current(x); + pdp_colorgrid_draw_update(x, x->x_glist); + } +} + +static void pdp_colorgrid_xgoto(t_pdp_colorgrid *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( "pdp_colorgrid_set x=%f y=%f", newx, newy ); + + x->x_current = newx + x->x_obj.te_xpix; + x->y_current = newy + x->x_obj.te_ypix; + if(xold != x->x_current || yold != x->y_current) + { + pdp_colorgrid_draw_update(x, x->x_glist); + } +} + +static void pdp_colorgrid_bang(t_pdp_colorgrid *x) { + pdp_colorgrid_output_current(x); +} + +static t_pdp_colorgrid *pdp_colorgrid_new(t_symbol *s, int argc, t_atom *argv) +{ + int i, zz; + t_pdp_colorgrid *x; + t_pd *x2; + char *str; + + // post( "pdp_colorgrid_new : create : %s argc =%d", s->s_name, argc ); + + x = (t_pdp_colorgrid *)pd_new(pdp_colorgrid_class); + // new pdp_colorgrid created from the gui + if ( argc != 0 ) + { + if ( argc != 14 ) + { + post( "pdp_colorgrid : 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( "pdp_colorgrid : wrong arguments" ); + return NULL; + } + + // update pdp_colorgrid count + if (!strncmp((str = argv[0].a_w.w_symbol->s_name), "pdp_colorgrid", 5) + && (zz = atoi(str + 5)) > pdp_colorgridcount) + { + pdp_colorgridcount = 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_pdp_colorgrid = 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, "pdp_colorgrid%d", ++pdp_colorgridcount); + s = gensym(buf); + + x->x_name = s; + pd_bind(&x->x_obj.ob_pd, x->x_name); + + x->x_width = DEFAULT_COLORGRID_WIDTH; + x->x_min = 0; + x->x_max = DEFAULT_COLORGRID_WIDTH; + x->x_height = DEFAULT_COLORGRID_HEIGHT; + x->y_min = 0; + x->y_max = DEFAULT_COLORGRID_HEIGHT; + x->x_pdp_colorgrid = 0; + x->x_xstep = 1.0; + x->x_ystep = 1.0; + x->x_xlines = DEFAULT_COLORGRID_NBLINES; + x->x_ylines = DEFAULT_COLORGRID_NBLINES; + x->x_current = 0; + x->y_current = 0; + + } + + // common fields for new and restored pdp_colorgrids + 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_zoutlet = outlet_new(&x->x_obj, &s_float ); + + // post( "pdp_colorgrid_new name : %s width: %d height : %d", x->x_name->s_name, x->x_width, x->x_height ); + + return (x); +} + +static void pdp_colorgrid_free(t_pdp_colorgrid *x) +{ + post( "pdp_colorgrid~: freeing ressources [NULL]" ); +} + +void pdp_colorgrid_setup(void) +{ +#include "pdp_colorgrid.tk2c" + post ( pdp_colorgrid_version ); + pdp_colorgrid_class = class_new(gensym("pdp_colorgrid"), (t_newmethod)pdp_colorgrid_new, + (t_method)pdp_colorgrid_free, sizeof(t_pdp_colorgrid), 0, A_GIMME, 0); + class_addmethod(pdp_colorgrid_class, (t_method)pdp_colorgrid_click, gensym("click"), A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0); + class_addmethod(pdp_colorgrid_class, (t_method)pdp_colorgrid_motion, gensym("motion"), A_FLOAT, A_FLOAT, 0); + class_addmethod(pdp_colorgrid_class, (t_method)pdp_colorgrid_bang, gensym("bang"), 0); + class_addmethod(pdp_colorgrid_class, (t_method)pdp_colorgrid_goto, gensym("goto"), A_FLOAT, A_FLOAT, 0); + class_addmethod(pdp_colorgrid_class, (t_method)pdp_colorgrid_xgoto, gensym("xgoto"), A_FLOAT, A_FLOAT, 0); + class_addmethod(pdp_colorgrid_class, (t_method)pdp_colorgrid_dialog, gensym("dialog"), A_GIMME, 0); + pdp_colorgrid_widgetbehavior.w_getrectfn = pdp_colorgrid_getrect; + pdp_colorgrid_widgetbehavior.w_displacefn = pdp_colorgrid_displace; + pdp_colorgrid_widgetbehavior.w_selectfn = pdp_colorgrid_select; + pdp_colorgrid_widgetbehavior.w_activatefn = NULL; + pdp_colorgrid_widgetbehavior.w_deletefn = pdp_colorgrid_delete; + pdp_colorgrid_widgetbehavior.w_visfn = pdp_colorgrid_vis; + pdp_colorgrid_widgetbehavior.w_clickfn = pdp_colorgrid_click; + class_setwidget(pdp_colorgrid_class, &pdp_colorgrid_widgetbehavior); + class_setpropertiesfn(pdp_colorgrid_class, pdp_colorgrid_properties); + class_setsavefn(pdp_colorgrid_class, pdp_colorgrid_save); + class_sethelpsymbol(pdp_colorgrid_class, gensym("help-pdp_colorgrid.pd")); +} diff --git a/modules/pdp_colorgrid.tk b/modules/pdp_colorgrid.tk new file mode 100644 index 0000000..293885d --- /dev/null +++ b/modules/pdp_colorgrid.tk @@ -0,0 +1,87 @@ +############ pdp_colorgrid procedures -- ydegoyon@free.fr ######### + +proc pdp_colorgrid_apply {id} { +# strip "." from the TK id to make a variable name suffix + set vid [string trimleft $id .] +# for each variable, make a local variable to hold its name... + set var_graph_pdp_colorgrid [concat graph_pdp_colorgrid_$vid] + global $var_graph_pdp_colorgrid + set var_graph_xlines [concat graph_xlines_$vid] + global $var_graph_xlines + set var_graph_ylines [concat graph_ylines_$vid] + global $var_graph_ylines + + set cmd [concat $id dialog \ + [eval concat $$var_graph_xlines] \ + [eval concat $$var_graph_ylines] \ + [eval concat $$var_graph_pdp_colorgrid] \ + \;] + #puts stderr $cmd + pd $cmd +} + +proc pdp_colorgrid_cancel {id} { + set cmd [concat $id cancel \;] + #puts stderr $cmd + pd $cmd +} + +proc pdp_colorgrid_ok {id} { + pdp_colorgrid_apply $id + pdp_colorgrid_cancel $id +} + +proc pdtk_pdp_colorgrid_dialog {id xlines ylines pdp_colorgrid} { + set vid [string trimleft $id .] + set var_graph_pdp_colorgrid [concat graph_pdp_colorgrid_$vid] + global $var_graph_pdp_colorgrid + set var_graph_xlines [concat graph_xlines_$vid] + global $var_graph_xlines + set var_graph_ylines [concat graph_ylines_$vid] + global $var_graph_ylines + + set $var_graph_pdp_colorgrid $pdp_colorgrid + set $var_graph_xlines $xlines + set $var_graph_ylines $ylines + + toplevel $id + wm title $id {pdp_colorgrid} + wm protocol $id WM_DELETE_WINDOW [concat pdp_colorgrid_cancel $id] + + label $id.label -text {COLORGRID PROPERTIES} + pack $id.label -side top + + frame $id.buttonframe + pack $id.buttonframe -side bottom -fill x -pady 2m + button $id.buttonframe.cancel -text {Cancel}\ + -command "pdp_colorgrid_cancel $id" + button $id.buttonframe.apply -text {Apply}\ + -command "pdp_colorgrid_apply $id" + button $id.buttonframe.ok -text {OK}\ + -command "pdp_colorgrid_ok $id" + pack $id.buttonframe.cancel -side left -expand 1 + pack $id.buttonframe.apply -side left -expand 1 + pack $id.buttonframe.ok -side left -expand 1 + + frame $id.42rangef + pack $id.42rangef -side top + label $id.42rangef.lxlines -text "X sections :" + entry $id.42rangef.xlines -textvariable $var_graph_xlines -width 7 + pack $id.42rangef.lxlines $id.42rangef.xlines -side left + + frame $id.72rangef + pack $id.72rangef -side top + label $id.72rangef.lylines -text "Y sections :" + entry $id.72rangef.ylines -textvariable $var_graph_ylines -width 7 + pack $id.72rangef.lylines $id.72rangef.ylines -side left + + checkbutton $id.showpdp_colorgrid -text {Show Grid} -variable $var_graph_pdp_colorgrid \ + -anchor w + pack $id.showpdp_colorgrid -side top + + bind $id.42rangef.xlines [concat pdp_colorgrid_ok $id] + bind $id.72rangef.ylines [concat pdp_colorgrid_ok $id] + focus $id.42rangef.xlines +} + +############ pdp_colorgrid procedures END -- lluis@artefacte.org ######### diff --git a/modules/pdp_colorgrid.tk2c b/modules/pdp_colorgrid.tk2c new file mode 100644 index 0000000..1faf937 --- /dev/null +++ b/modules/pdp_colorgrid.tk2c @@ -0,0 +1,65 @@ +// ########### pdp_colorgrid procedures -- ydegoyon@free.fr ######### +sys_gui("proc pdp_colorgrid_apply {id} {\n"); +// strip "." from the TK id to make a variable name suffix +sys_gui("set vid [string trimleft $id .]\n"); +// for each variable, make a local variable to hold its name... +sys_gui("set var_graph_pdp_colorgrid [concat graph_pdp_colorgrid_$vid]\n"); +sys_gui("global $var_graph_pdp_colorgrid\n"); +sys_gui("set var_graph_xlines [concat graph_xlines_$vid]\n"); +sys_gui("global $var_graph_xlines\n"); +sys_gui("set var_graph_ylines [concat graph_ylines_$vid]\n"); +sys_gui("global $var_graph_ylines\n"); +sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_xlines] [eval concat $$var_graph_ylines] [eval concat $$var_graph_pdp_colorgrid] \\;]\n"); +// puts stderr $cmd +sys_gui("pd $cmd\n"); +sys_gui("}\n"); +sys_gui("proc pdp_colorgrid_cancel {id} {\n"); +sys_gui("set cmd [concat $id cancel \\;]\n"); +// puts stderr $cmd +sys_gui("pd $cmd\n"); +sys_gui("}\n"); +sys_gui("proc pdp_colorgrid_ok {id} {\n"); +sys_gui("pdp_colorgrid_apply $id\n"); +sys_gui("pdp_colorgrid_cancel $id\n"); +sys_gui("}\n"); +sys_gui("proc pdtk_pdp_colorgrid_dialog {id xlines ylines pdp_colorgrid} {\n"); +sys_gui("set vid [string trimleft $id .]\n"); +sys_gui("set var_graph_pdp_colorgrid [concat graph_pdp_colorgrid_$vid]\n"); +sys_gui("global $var_graph_pdp_colorgrid\n"); +sys_gui("set var_graph_xlines [concat graph_xlines_$vid]\n"); +sys_gui("global $var_graph_xlines\n"); +sys_gui("set var_graph_ylines [concat graph_ylines_$vid]\n"); +sys_gui("global $var_graph_ylines\n"); +sys_gui("set $var_graph_pdp_colorgrid $pdp_colorgrid\n"); +sys_gui("set $var_graph_xlines $xlines\n"); +sys_gui("set $var_graph_ylines $ylines\n"); +sys_gui("toplevel $id\n"); +sys_gui("wm title $id {pdp_colorgrid}\n"); +sys_gui("wm protocol $id WM_DELETE_WINDOW [concat pdp_colorgrid_cancel $id]\n"); +sys_gui("label $id.label -text {COLORGRID PROPERTIES}\n"); +sys_gui("pack $id.label -side top\n"); +sys_gui("frame $id.buttonframe\n"); +sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n"); +sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"pdp_colorgrid_cancel $id\"\n"); +sys_gui("button $id.buttonframe.apply -text {Apply} -command \"pdp_colorgrid_apply $id\"\n"); +sys_gui("button $id.buttonframe.ok -text {OK} -command \"pdp_colorgrid_ok $id\"\n"); +sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n"); +sys_gui("pack $id.buttonframe.apply -side left -expand 1\n"); +sys_gui("pack $id.buttonframe.ok -side left -expand 1\n"); +sys_gui("frame $id.42rangef\n"); +sys_gui("pack $id.42rangef -side top\n"); +sys_gui("label $id.42rangef.lxlines -text \"X sections :\"\n"); +sys_gui("entry $id.42rangef.xlines -textvariable $var_graph_xlines -width 7\n"); +sys_gui("pack $id.42rangef.lxlines $id.42rangef.xlines -side left\n"); +sys_gui("frame $id.72rangef\n"); +sys_gui("pack $id.72rangef -side top\n"); +sys_gui("label $id.72rangef.lylines -text \"Y sections :\"\n"); +sys_gui("entry $id.72rangef.ylines -textvariable $var_graph_ylines -width 7\n"); +sys_gui("pack $id.72rangef.lylines $id.72rangef.ylines -side left\n"); +sys_gui("checkbutton $id.showpdp_colorgrid -text {Show Grid} -variable $var_graph_pdp_colorgrid -anchor w\n"); +sys_gui("pack $id.showpdp_colorgrid -side top\n"); +sys_gui("bind $id.42rangef.xlines [concat pdp_colorgrid_ok $id]\n"); +sys_gui("bind $id.72rangef.ylines [concat pdp_colorgrid_ok $id]\n"); +sys_gui("focus $id.42rangef.xlines\n"); +sys_gui("}\n"); +// ########### pdp_colorgrid procedures END -- lluis@artefacte.org ######### diff --git a/modules/tk2c.bash b/modules/tk2c.bash new file mode 100755 index 0000000..9dfeb03 --- /dev/null +++ b/modules/tk2c.bash @@ -0,0 +1,24 @@ +#!/bin/bash + +#set -x + +while read line +do + for word in $line + do + if [ "X"$word != "X"${word#\#} ] + then + echo // ${line#\#} + break + else + line=${line//\'/\\\'} +#useless, slashes never gets in + line=${line//\\/\\\\} +#this one's dirty, i know + line=${line//;/\\\\;} + line=${line//\"/\\\"} + echo 'sys_gui("'$line'\n");' + break + fi + done +done -- cgit v1.2.1