From c1ae4414d4ac6504992434b949b252c30daf0c48 Mon Sep 17 00:00:00 2001 From: Wincent Balin Date: Thu, 3 Jun 2010 00:39:13 +0000 Subject: pdbox: Source cleanup. Removed unneeded files. git-svn-id: svn://svn.rockbox.org/rockbox/trunk@26497 a1c6a512-1295-4272-9138-f99709370657 --- apps/plugins/pdbox/PDa/extra/fatom.h | 486 ----------------------------------- 1 file changed, 486 deletions(-) delete mode 100644 apps/plugins/pdbox/PDa/extra/fatom.h (limited to 'apps/plugins/pdbox/PDa/extra/fatom.h') diff --git a/apps/plugins/pdbox/PDa/extra/fatom.h b/apps/plugins/pdbox/PDa/extra/fatom.h deleted file mode 100644 index a7a153fad3..0000000000 --- a/apps/plugins/pdbox/PDa/extra/fatom.h +++ /dev/null @@ -1,486 +0,0 @@ -/* ------------------------ fatom ----------------------------- */ - -#define x_val a_pos.a_w.w_float -#define DEBUG(x) - -#include -#include - -typedef struct _fatom -{ - t_object x_obj; - t_atom a_pos; /* the value of the fatom */ - - t_symbol* x_send; - t_symbol* x_receive; - t_glist * x_glist; /* value of the current canvas, intialized in _new */ - int x_rect_width; /* width of the widget */ - int x_rect_height; /* height of the widget */ - t_symbol* x_sym; /* symbol for receiving callbacks from GUI */ - t_symbol* x_type; /* type of fatom (vslider, hslider, checkbutton) */ - - t_symbol* x_text; /* associated widget text */ - int x_max; /* maximum value of a_pos (x_val) */ - int x_min; /* minimum value of a_pos (x_val) */ - int x_width; /* width of widget (e.g x_rect_height + 15 for hslider, x_rect_width + 15 for slider) */ - t_symbol* x_color; - t_symbol* x_bgcolor; -} t_fatom; - -/* widget helper functions */ - - - - -static void draw_inlets(t_fatom *x, t_glist *glist, int firsttime, int nin, int nout) -{ - int n = nin; - int nplus, i; - nplus = (n == 1 ? 1 : n-1); - DEBUG(post("draw inlet");) - for (i = 0; i < n; i++) - { - int onset = text_xpix(&x->x_obj, glist) + (x->x_rect_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, text_ypix(&x->x_obj, glist) + x->x_rect_height - 1, - onset + IOWIDTH, text_ypix(&x->x_obj, glist) + x->x_rect_height, - x, i); - else - sys_vgui(".x%x.c coords %xo%d %d %d %d %d\n", - glist_getcanvas(glist), x, i, - onset, text_ypix(&x->x_obj, glist) + x->x_rect_height - 1, - onset + IOWIDTH, text_ypix(&x->x_obj, glist) + x->x_rect_height); - } - n = nout; - nplus = (n == 1 ? 1 : n-1); - for (i = 0; i < n; i++) - { - int onset = text_xpix(&x->x_obj, glist) + (x->x_rect_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, text_ypix(&x->x_obj, glist), - onset + IOWIDTH, text_ypix(&x->x_obj, glist) + 1, - x, i); - else - sys_vgui(".x%x.c coords %xi%d %d %d %d %d\n", - glist_getcanvas(glist), x, i, - onset, text_ypix(&x->x_obj, glist), - onset + IOWIDTH, text_ypix(&x->x_obj, glist) + 1); - - } - DEBUG(post("draw inlet end");) -} - - -static void draw_handle(t_fatom *x, t_glist *glist, int firsttime) { - int onset = text_xpix(&x->x_obj, glist) + (x->x_rect_width - IOWIDTH+2); - - if (firsttime) - sys_vgui(".x%x.c create rectangle %d %d %d %d -tags %xhandle\n", - glist_getcanvas(glist), - onset, text_ypix(&x->x_obj, glist) + x->x_rect_height - 12, - onset + IOWIDTH, text_ypix(&x->x_obj, glist) + x->x_rect_height-4, - x); - else - sys_vgui(".x%x.c coords %xhandle %d %d %d %d\n", - glist_getcanvas(glist), x, - onset, text_ypix(&x->x_obj, glist) + x->x_rect_height - 12, - onset + IOWIDTH, text_ypix(&x->x_obj, glist) + x->x_rect_height-4); -} - -static void create_widget(t_fatom *x, t_glist *glist) -{ - t_canvas *canvas=glist_getcanvas(glist); - - if (!strcmp(x->x_type->s_name,"vslider")) { - x->x_rect_width = x->x_width+15; - x->x_rect_height = x->x_max-x->x_min+26; - - sys_vgui("scale .x%x.c.s%x \ - -sliderlength 10 \ - -showvalue 0 \ - -length %d \ - -resolution 0.01 \ - -repeatinterval 20 \ - -from %d -to %d \ - -width %d \ - -bg %s \ - -activebackground %s \ - -troughcolor %s \ - -command fatom_cb%x\n",canvas,x, - x->x_max-x->x_min+14, - x->x_max, - x->x_min, - x->x_width, - x->x_color->s_name, - x->x_color->s_name, - x->x_bgcolor->s_name, - x); - } else if (!strcmp(x->x_type->s_name,"hslider")) { - x->x_rect_width = x->x_max-x->x_min + 24; - x->x_rect_height = x->x_width + 15; - sys_vgui("scale .x%x.c.s%x \ - -sliderlength 10 \ - -showvalue 0 \ - -length %d \ - -resolution 0.01 \ - -orient horizontal \ - -repeatinterval 20 \ - -from %d -to %d \ - -width %d \ - -bg %s \ - -activebackground %s \ - -troughcolor %s \ - -command fatom_cb%x\n",canvas,x, - x->x_max-x->x_min+14, - x->x_min, - x->x_max, - x->x_width, - x->x_color->s_name, - x->x_color->s_name, - x->x_bgcolor->s_name, - x); - } else if (!strcmp(x->x_type->s_name,"checkbutton")) { - x->x_rect_width = 32; - x->x_rect_height = 28; - sys_vgui("checkbutton .x%x.c.s%x \ - -command { fatom_cb%x $fatom_val%x} -variable fatom_val%x -text \"%s\" \ - -bg %s \ - -activebackground %s \ - \n",canvas,x,x,x,x, - x->x_text->s_name, - x->x_color->s_name, - x->x_bgcolor->s_name); - } else if (!strcmp(x->x_type->s_name,"hradio")) { - int i; - x->x_rect_width = 8*20; - x->x_rect_height = 25; - for (i=0;i<8;i++) { - sys_vgui("radiobutton .x%x.c.s%x%d \ - -command { fatom_cb%x $fatom_val%x} -variable fatom_val%x -value %d\n",canvas,x,i,x,x,x,i); - } - /* TODO pack them */ - } else if (!strcmp(x->x_type->s_name,"vradio")) { - int i; - x->x_rect_width = 30; - x->x_rect_height = 20*8+5; - for (i=0;i<8;i++) { - sys_vgui("radiobutton .x%x.c.s%x%d \ - -command { fatom_cb%x $fatom_val%x} -variable fatom_val%x -value %d\n",canvas,x,i,x,x,x,i); - } - /* TODO pack them */ - } else { - x->x_rect_width = 32; - x->x_rect_height = 140; - sys_vgui("scale .x%x.c.s%x \ - -sliderlength 10 \ - -showvalue 0 \ - -length 131 \ - -from 127 -to 0 \ - -command fatom_cb%x\n",canvas,x,x); - } - - /* set the start value */ - if (!strcmp(x->x_type->s_name,"checkbutton")) { - if (x->x_val) - sys_vgui(".x%x.c.s%x select\n",canvas,x,x->x_val); - else - sys_vgui(".x%x.c.s%x deselect\n",canvas,x,x->x_val); - } else - sys_vgui(".x%x.c.s%x set %f\n",canvas,x,x->x_val); - -} - - - - - -static void fatom_drawme(t_fatom *x, t_glist *glist, int firsttime) -{ - t_canvas *canvas=glist_getcanvas(glist);// x->x_glist;//glist_getcanvas(glist); - DEBUG(post("drawme %d",firsttime);) - if (firsttime) { - DEBUG(post("glist %x canvas %x",x->x_glist,canvas)); - create_widget(x,glist); - x->x_glist = canvas; - sys_vgui(".x%x.c create window %d %d -anchor nw -window .x%x.c.s%x -tags %xS\n", - canvas,text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist)+2,x->x_glist,x,x); - - } - else { - sys_vgui(".x%x.c coords %xS \ -%d %d\n", - canvas, x, - text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist)+2); - } - draw_inlets(x, glist, firsttime, 1,1); - // draw_handle(x, glist, firsttime); - -} - - -static void fatom_erase(t_fatom* x,t_glist* glist) -{ - int n; - - DEBUG(post("erase");) - sys_vgui("destroy .x%x.c.s%x\n",glist_getcanvas(glist),x); - - sys_vgui(".x%x.c delete %xS\n",glist_getcanvas(glist), x); - - /* inlets and outlets */ - - sys_vgui(".x%x.c delete %xi%d\n",glist_getcanvas(glist),x,0); - sys_vgui(".x%x.c delete %xo%d\n",glist_getcanvas(glist),x,0); - sys_vgui(".x%x.c delete %xhandle\n",glist_getcanvas(glist),x,0); -} - - - -/* ------------------------ fatom widgetbehaviour----------------------------- */ - - -static void fatom_getrect(t_gobj *z, t_glist *owner, - int *xp1, int *yp1, int *xp2, int *yp2) -{ - int width, height; - t_fatom* s = (t_fatom*)z; - - width = s->x_rect_width; - height = s->x_rect_height; - *xp1 = text_xpix(&s->x_obj, owner); - *yp1 = text_ypix(&s->x_obj, owner); - *xp2 = text_xpix(&s->x_obj, owner) + width; - *yp2 = text_ypix(&s->x_obj, owner) + height; -} - -static void fatom_displace(t_gobj *z, t_glist *glist, - int dx, int dy) -{ - t_fatom *x = (t_fatom *)z; - DEBUG(post("displace");) - x->x_obj.te_xpix += dx; - x->x_obj.te_ypix += dy; - if (glist_isvisible(glist)) - { - sys_vgui(".x%x.c coords %xSEL %d %d %d %d\n", - glist_getcanvas(glist), x, - text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist), - text_xpix(&x->x_obj, glist) + x->x_rect_width, text_ypix(&x->x_obj, glist) + x->x_rect_height); - - fatom_drawme(x, glist, 0); - canvas_fixlinesfor(glist_getcanvas(glist),(t_text*) x); - } - DEBUG(post("displace end");) -} - -static void fatom_select(t_gobj *z, t_glist *glist, int state) -{ - t_fatom *x = (t_fatom *)z; - if (state) { - sys_vgui(".x%x.c create rectangle \ -%d %d %d %d -tags %xSEL -outline blue\n", - glist_getcanvas(glist), - text_xpix(&x->x_obj, glist), text_ypix(&x->x_obj, glist), - text_xpix(&x->x_obj, glist) + x->x_rect_width, text_ypix(&x->x_obj, glist) + x->x_rect_height, - x); - } - else { - sys_vgui(".x%x.c delete %xSEL\n", - glist_getcanvas(glist), x); - } - - - -} - - -static void fatom_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);*/ -} - -static void fatom_delete(t_gobj *z, t_glist *glist) -{ - t_text *x = (t_text *)z; - canvas_deletelinesfor(glist_getcanvas(glist), x); -} - - -static void fatom_vis(t_gobj *z, t_glist *glist, int vis) -{ - t_fatom* s = (t_fatom*)z; - t_rtext *y; - DEBUG(post("vis: %d",vis);) - if (vis) { -#ifdef PD_MINOR_VERSION - y = (t_rtext *) rtext_new(glist, (t_text *)z); -#else - y = (t_rtext *) rtext_new(glist, (t_text *)z,0,0); -#endif - fatom_drawme(s, glist, 1); - } - else { - y = glist_findrtext(glist, (t_text *)z); - fatom_erase(s,glist); - rtext_free(y); - } -} - -static void fatom_save(t_gobj *z, t_binbuf *b); - -t_widgetbehavior fatom_widgetbehavior; - - - - -static void fatom_size(t_fatom* x,t_floatarg w,t_floatarg h) { - x->x_rect_width = w; - x->x_rect_height = h; -} - -static void fatom_color(t_fatom* x,t_symbol* col) -{ - -} - - -static void fatom_f(t_fatom* x,t_floatarg f) -{ - x->x_val = f; - if (x->x_send == &s_) - outlet_float(x->x_obj.ob_outlet,f); - else - if (x->x_send->s_thing) pd_float(x->x_send->s_thing,f); -} - - -static void fatom_float(t_fatom* x,t_floatarg f) -{ - if (glist_isvisible(x->x_glist)) { - if (!strcmp(x->x_type->s_name,"checkbutton")) { - if (x->x_val) - sys_vgui(".x%x.c.s%x select\n",x->x_glist,x,f); - else - sys_vgui(".x%x.c.s%x deselect\n",x->x_glist,x,f); - } else - sys_vgui(".x%x.c.s%x set %f\n",x->x_glist,x,f); - } - fatom_f(x,f); -} - - -static void fatom_bang(t_fatom* x,t_floatarg f) -{ - outlet_float(x->x_obj.ob_outlet,x->x_val); -} - - -static void fatom_properties(t_gobj *z, t_glist *owner) -{ - post("N/I"); -} - - -static void fatom_save(t_gobj *z, t_binbuf *b) -{ - - t_fatom *x = (t_fatom *)z; - - binbuf_addv(b, "ssiiss", gensym("#X"),gensym("obj"), - x->x_obj.te_xpix, x->x_obj.te_ypix , - gensym("fatom"),x->x_type); - binbuf_addv(b, ";"); -} - - -static void *fatom_new(t_fatom* x,int argc,t_atom* argv) -{ - char buf[256]; - int n = 0; - x->x_glist = canvas_getcurrent(); - - x->x_text = gensym(""); - x->x_max = 127; - x->x_min = 0; - x->x_width = 15; - x->x_color = gensym("grey"); - x->x_bgcolor = gensym("grey"); - x->x_send = &s_; - - while (argc) { - if (argv->a_type == A_FLOAT) { - if (n==0) x->x_max = atom_getfloat(argv); - if (n==1) x->x_min = atom_getfloat(argv); - if (n==2) x->x_width = atom_getfloat(argv); - } - - if (argv->a_type == A_SYMBOL) { - post("%d: symbol value %s",n,atom_getsymbol(argv)->s_name); - if (n==3) x->x_send = atom_getsymbol(argv); - if (n==4) x->x_color = atom_getsymbol(argv); - if (n==5) x->x_bgcolor = atom_getsymbol(argv); - } - argv++; - argc--; - n++; - } - - /* bind to a symbol for slider callback (later make this based on the - filepath ??) */ - - sprintf(buf,"fatom%x",(t_int)x); - x->x_sym = gensym(buf); - pd_bind(&x->x_obj.ob_pd, x->x_sym); - - /* pipe startup code to tk */ - - sys_vgui("proc fatom_cb%x {v} {\n pd [concat fatom%x f $v \\;]\n }\n",x,x); - - outlet_new(&x->x_obj, &s_float); - return (x); -} - -static void fatom_setup_common(t_class* class) -{ - - fatom_widgetbehavior.w_getrectfn = fatom_getrect; - fatom_widgetbehavior.w_displacefn = fatom_displace; - fatom_widgetbehavior.w_selectfn = fatom_select; - fatom_widgetbehavior.w_activatefn = fatom_activate; - fatom_widgetbehavior.w_deletefn = fatom_delete; - fatom_widgetbehavior.w_visfn = fatom_vis; -#if PD_MINOR_VERSION < 37 - fatom_widgetbehavior.w_savefn = fatom_save; - fatom_widgetbehavior.w_propertiesfn = NULL; -#endif - fatom_widgetbehavior.w_clickfn = NULL; - - class_addfloat(class, (t_method)fatom_float); - class_addbang(class, (t_method)fatom_bang); - class_addmethod(class, (t_method)fatom_f, gensym("f"), - A_FLOAT, 0); - -/* - class_addmethod(class, (t_method)fatom_size, gensym("size"), - A_FLOAT, A_FLOAT, 0); - - class_addmethod(class, (t_method)fatom_color, gensym("color"), - A_SYMBOL, 0); -*/ -/* - class_addmethod(class, (t_method)fatom_open, gensym("open"), - A_SYMBOL, 0); -*/ - - class_setwidget(class,&fatom_widgetbehavior); -#if PD_MINOR_VERSION >= 37 - class_setsavefn(class,&fatom_save); -#endif -} - -- cgit v1.2.3