Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9601
Added Files:
cursor-help.pd cursor.c
Log Message:
rough start at a cursor object, I need help with Pd GUI programming
--- NEW FILE: cursor-help.pd ---
#N canvas 0 22 454 304 10;
#X msg 178 124 start;
#X msg 227 124 stop;
#X obj 142 123 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 157 151 cursor 80 80;
#X floatatom 99 242 5 0 0 0 - - -;
#X floatatom 239 242 5 0 0 0 - - -;
#X obj 131 258 print LEFT;
#X obj 226 265 print RIGHT;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 3 1 5 0;
#X connect 3 1 7 0;
--- NEW FILE: cursor.c ---
/* (C) Guenter Geiger <geiger(a)xdv.org> */
#include <m_pd.h>
#include "g_canvas.h"
/* ------------------------ cursor ----------------------------- */
#define BACKGROUNDCOLOR "grey"
#define DEFAULTSIZE 80
static t_class *cursor_class;
typedef struct _cursor
{
t_object x_obj;
t_glist * x_glist;
t_outlet* out2;
int x_width;
int x_height;
int x;
int y;
} t_cursor;
/* widget helper functions */
void cursor_drawme(t_cursor *x, t_glist *glist, int firsttime)
{
if (firsttime) {
sys_vgui(".x%x.c create rectangle %d %d %d %d -tags %xS -fill %s\n",
glist_getcanvas(glist),
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,BACKGROUNDCOLOR);
}
else {
sys_vgui(".x%x.c coords %xS \
%d %d %d %d\n",
glist_getcanvas(glist), 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);
}
{
/* outlets */
int n = 2;
int nplus, i;
nplus = (n == 1 ? 1 : n-1);
for (i = 0; i < n; i++)
{
int onset = x->x_obj.te_xpix + (x->x_width - IOWIDTH) * i / nplus;
if (firsttime)
sys_vgui(".x%x.c create rectangle %d %d %d %d -tags %xo%d\n",
glist_getcanvas(glist),
onset, x->x_obj.te_ypix + x->x_height - 1,
onset + IOWIDTH, x->x_obj.te_ypix + x->x_height,
x, i);
else
sys_vgui(".x%x.c coords %xo%d %d %d %d %d\n",
glist_getcanvas(glist), x, i,
onset, x->x_obj.te_ypix + x->x_height - 1,
onset + IOWIDTH, x->x_obj.te_ypix + x->x_height);
}
/* inlets */
n = 0;
nplus = (n == 1 ? 1 : n-1);
for (i = 0; i < n; i++)
{
int onset = x->x_obj.te_xpix + (x->x_width - IOWIDTH) * i / nplus;
if (firsttime)
sys_vgui(".x%x.c create rectangle %d %d %d %d -tags %xi%d\n",
glist_getcanvas(glist),
onset, x->x_obj.te_ypix,
onset + IOWIDTH, x->x_obj.te_ypix + 1,
x, i);
else
sys_vgui(".x%x.c coords %xi%d %d %d %d %d\n",
glist_getcanvas(glist), x, i,
onset, x->x_obj.te_ypix,
onset + IOWIDTH, x->x_obj.te_ypix + 1);
}
}
}
void cursor_erase(t_cursor* x,t_glist* glist)
{
int n;
sys_vgui(".x%x.c delete %xS\n",
glist_getcanvas(glist), x);
n = 2;
while (n--) {
sys_vgui(".x%x.c delete %xo%d\n",glist_getcanvas(glist),x,n);
}
}
/* ------------------------ cursor widgetbehaviour----------------------------- */
static void cursor_getrect(t_gobj *z, t_glist *owner,
int *xp1, int *yp1, int *xp2, int *yp2)
{
int width, height;
t_cursor* s = (t_cursor*)z;
width = s->x_width;
height = s->x_height;
*xp1 = s->x_obj.te_xpix;
*yp1 = s->x_obj.te_ypix;
*xp2 = s->x_obj.te_xpix + width;
*yp2 = s->x_obj.te_ypix + height;
}
static void cursor_displace(t_gobj *z, t_glist *glist,
int dx, int dy)
{
t_cursor *x = (t_cursor *)z;
x->x_obj.te_xpix += dx;
x->x_obj.te_ypix += dy;
cursor_drawme(x, glist, 0);
canvas_fixlinesfor(glist_getcanvas(glist),(t_text*) x);
}
static void cursor_select(t_gobj *z, t_glist *glist, int state)
{
t_cursor *x = (t_cursor *)z;
sys_vgui(".x%x.c itemconfigure %xS -fill %s\n", glist,
x, (state? "blue" : BACKGROUNDCOLOR));
}
static void cursor_motion(t_cursor *x, t_floatarg dx, t_floatarg dy)
{
x->x += dx;
x->y += dy;
outlet_float(x->out2,x->y);
outlet_float(x->x_obj.ob_outlet,x->x);
}
static void cursor_start(t_cursor *x)
{
glist_grab(x->x_glist, &x->x_obj.te_g, (t_glistmotionfn) cursor_motion,
(t_glistkeyfn) NULL, NULL, NULL);
/* x->x = xpos - x->x_obj.te_xpix; */
/* x->y = ypos - x->x_obj.te_ypix; */
/* outlet_float(x->out2,x->y); */
/* outlet_float(x->x_obj.ob_outlet,x->x); */
}
static void cursor_activate(t_gobj *z, t_glist *glist, int state)
{
/* t_text *x = (t_text *)z;
t_rtext *y = glist_findrtext(glist, x);
if (z->g_pd != gatom_class) rtext_activate(y, state);*/
t_cursor *x = (t_cursor *) z;
cursor_start(x);
}
static void cursor_delete(t_gobj *z, t_glist *glist)
{
t_text *x = (t_text *)z;
canvas_deletelinesfor(glist_getcanvas(glist), x);
}
static void cursor_vis(t_gobj *z, t_glist *glist, int vis)
{
t_cursor* s = (t_cursor*)z;
if (vis)
cursor_drawme(s, glist, 1);
else
cursor_erase(s,glist);
}
/* can we use the normal text save function ?? */
static void cursor_save(t_gobj *z, t_binbuf *b)
{
t_cursor *x = (t_cursor *)z;
binbuf_addv(b, "ssiisii", gensym("#X"),gensym("obj"),
(t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix,
gensym("cursor"),x->x_width,x->x_height);
binbuf_addv(b, ";");
}
t_widgetbehavior cursor_widgetbehavior;
void cursor_key(t_cursor *x, t_floatarg f)
{
post("key");
}
static void cursor_click(t_cursor *x,
t_floatarg xpos, t_floatarg ypos, t_floatarg shift, t_floatarg ctrl,
t_floatarg alt)
{
glist_grab(x->x_glist, &x->x_obj.te_g, (t_glistmotionfn) cursor_motion,
(t_glistkeyfn) NULL, xpos, ypos);
x->x = xpos - x->x_obj.te_xpix;
x->y = ypos - x->x_obj.te_ypix;
outlet_float(x->out2,x->y);
outlet_float(x->x_obj.ob_outlet,x->x);
}
static int cursor_newclick(t_gobj *z, struct _glist *glist,
int xpix, int ypix, int shift, int alt, int dbl, int doit)
{
if (doit)
cursor_click((t_cursor *)z, (t_floatarg)xpix, (t_floatarg)ypix,
(t_floatarg)shift, 0, (t_floatarg)alt);
return (1);
}
void cursor_size(t_cursor* x,t_floatarg w,t_floatarg h) {
x->x_width = w;
x->x_height = h;
cursor_drawme(x, x->x_glist, 0);
}
static void cursor_setwidget(void)
{
cursor_widgetbehavior.w_getrectfn = cursor_getrect;
cursor_widgetbehavior.w_displacefn = cursor_displace;
cursor_widgetbehavior.w_selectfn = cursor_select;
cursor_widgetbehavior.w_activatefn = cursor_activate;
cursor_widgetbehavior.w_deletefn = cursor_delete;
cursor_widgetbehavior.w_visfn = cursor_vis;
cursor_widgetbehavior.w_clickfn = cursor_newclick;
}
static void *cursor_new(t_floatarg h,t_floatarg o)
{
t_cursor *x = (t_cursor *)pd_new(cursor_class);
x->x_glist = (t_glist*) canvas_getcurrent();
if (h) x->x_width = h;
else
x->x_width = DEFAULTSIZE;
if (o) x->x_height = o;
else
x->x_height = DEFAULTSIZE;
outlet_new(&x->x_obj, &s_float);
x->out2 = outlet_new(&x->x_obj, &s_float);
return (x);
}
void cursor_setup(void)
{
cursor_class = class_new(gensym("cursor"), (t_newmethod)cursor_new, 0,
sizeof(t_cursor),0, A_DEFFLOAT,A_DEFFLOAT,0);
class_addcreator((t_newmethod)cursor_new,gensym("bng"),A_DEFSYM,A_DEFFLOAT,A_DEFFLOAT,A_GIMME,0);
class_addmethod(cursor_class, (t_method)cursor_click, gensym("click"),
A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
class_addmethod(cursor_class, (t_method)cursor_size, gensym("size"),
A_FLOAT, A_FLOAT, 0);
class_addmethod(cursor_class,(t_method) cursor_start,gensym("start"),0);
/* class_addfloat(cursor_class,(t_method) cursor_float); */
cursor_setwidget();
class_setwidget(cursor_class,&cursor_widgetbehavior);
#if PD_MINOR_VERSION >= 37
class_setsavefn(cursor_class,&cursor_save);
#endif
}