[PD-cvs] externals/pidip/modules pdp_colorgrid.c,NONE,1.1 pdp_colorgrid.tk,NONE,1.1 pdp_colorgrid.tk2c,NONE,1.1 tk2c.bash,NONE,1.1
Yves Degoyon
sevyves at users.sourceforge.net
Tue May 18 02:58:18 CEST 2004
- Previous message: [PD-cvs] externals/pidip config.status,1.5,NONE
- Next message: [PD-cvs] externals/pidip CHANGES.LOG,1.13,1.14 Makefile,1.5,1.6 Makefile.in,1.4,1.5 README,1.1,1.2 acinclude.m4,1.6,1.7 aclocal.m4,1.6,1.7 configure,1.6,1.7 configure.ac,1.8,1.9 configure.in,1.3,1.4
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/externals/pidip/modules
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16871
Added Files:
pdp_colorgrid.c pdp_colorgrid.tk pdp_colorgrid.tk2c tk2c.bash
Log Message:
Colorgrid object by Lluis Gomez
--- NEW FILE: pdp_colorgrid.c ---
/* 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 at free.fr) & Lluis Gomez i Bigorda (lluis at 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"));
}
--- NEW FILE: pdp_colorgrid.tk ---
############ pdp_colorgrid procedures -- ydegoyon at 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 at artefacte.org #########
--- NEW FILE: pdp_colorgrid.tk2c ---
// ########### pdp_colorgrid procedures -- ydegoyon at 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 at artefacte.org #########
--- NEW FILE: tk2c.bash ---
#!/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
- Previous message: [PD-cvs] externals/pidip config.status,1.5,NONE
- Next message: [PD-cvs] externals/pidip CHANGES.LOG,1.13,1.14 Makefile,1.5,1.6 Makefile.in,1.4,1.5 README,1.1,1.2 acinclude.m4,1.6,1.7 aclocal.m4,1.6,1.7 configure,1.6,1.7 configure.ac,1.8,1.9 configure.in,1.3,1.4
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list