aboutsummaryrefslogtreecommitdiff
path: root/modules
diff options
context:
space:
mode:
Diffstat (limited to 'modules')
-rw-r--r--modules/pdp_colorgrid.c701
-rw-r--r--modules/pdp_colorgrid.tk87
-rw-r--r--modules/pdp_colorgrid.tk2c65
-rwxr-xr-xmodules/tk2c.bash24
4 files changed, 877 insertions, 0 deletions
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 <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_colorgrid.h"
+
+#ifdef NT
+#include <io.h>
+#else
+#include <unistd.h>
+#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; i<x->x_xlines; i++ )
+ {
+ COLORGRID_SYS_VGUI4(".x%x.c delete %xLINE%d0\n", canvas, x, i);
+ }
+ for (i=1; i<x->x_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 <KeyPress-Return> [concat pdp_colorgrid_ok $id]
+ bind $id.72rangef.ylines <KeyPress-Return> [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 <KeyPress-Return> [concat pdp_colorgrid_ok $id]\n");
+sys_gui("bind $id.72rangef.ylines <KeyPress-Return> [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