diff options
Diffstat (limited to 'gui/ticker.c')
| -rwxr-xr-x | gui/ticker.c | 423 |
1 files changed, 86 insertions, 337 deletions
diff --git a/gui/ticker.c b/gui/ticker.c index b40b1d7..57a1bfd 100755 --- a/gui/ticker.c +++ b/gui/ticker.c @@ -1,337 +1,86 @@ -/* (C) Guenter Geiger <geiger@epy.co.at> */
-
-
-#include <ggee.h>
-#include <m_pd.h>
-#include "g_canvas.h"
-#ifdef NT
-#pragma warning( disable : 4244 )
-#pragma warning( disable : 4305 )
-#endif
-
-/* ------------------------ ticker ----------------------------- */
-
-#define DEFAULTSIZE 15
-#define DEFAULTCOLOR "black"
-
-static t_class *ticker_class;
-
-typedef struct _ticker
-{
- t_object x_obj;
- t_glist * x_glist;
- int x_width;
- int x_height;
- t_float x_on;
-} t_ticker;
-
-/* widget helper functions */
-
-
-static void draw_inlets(t_ticker *x, t_glist *glist, int firsttime, int nin, int nout)
-{
- int n = nin;
- 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);
- }
- n = nout;
- 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 ticker_draw(t_ticker *x,t_glist *glist)
-{
- if (x->x_on) {
- sys_vgui(".x%x.c create line \
-%d %d %d %d -tags %xB\n",glist_getcanvas(glist),
- x->x_obj.te_xpix+1,x->x_obj.te_ypix+1,
- x->x_obj.te_xpix + x->x_width -1,
- x->x_obj.te_ypix + x->x_height -1,x);
- sys_vgui(".x%x.c create line \
-%d %d %d %d -tags %xC\n",glist_getcanvas(glist),
- x->x_obj.te_xpix+1,x->x_obj.te_ypix + x->x_height -1,
- x->x_obj.te_xpix + x->x_width -1,x->x_obj.te_ypix+1,
- x);
-
- }
- else {
- sys_vgui(".x%x.c delete %xB\n",
- glist_getcanvas(glist), x);
- sys_vgui(".x%x.c delete %xC\n",
- glist_getcanvas(glist), x);
- }
-}
-
-
-void ticker_update(t_ticker *x,t_glist *glist)
-{
- if (glist_isvisible(glist)) {
- if (x->x_on) {
- sys_vgui(".x%x.c coords %xB \
-%d %d %d %d\n",glist_getcanvas(glist),
- x,x->x_obj.te_xpix+1,x->x_obj.te_ypix+1,
- x->x_obj.te_xpix + x->x_width -1,
- x->x_obj.te_ypix + x->x_height -1);
- sys_vgui(".x%x.c coords %xC \
-%d %d %d %d\n",glist_getcanvas(glist),
- x,x->x_obj.te_xpix+1,x->x_obj.te_ypix + x->x_height -1,
- x->x_obj.te_xpix + x->x_width -1,x->x_obj.te_ypix+1);
-
- }
- }
-}
-
-
-
-void ticker_drawme(t_ticker *x, t_glist *glist, int firsttime)
-{
- if (firsttime) {
- sys_vgui(".x%x.c create rectangle \
-%d %d %d %d -tags %xS "BACKGROUND"\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);
- ticker_draw(x,glist);
- }
- 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);
- ticker_update(x,glist);
- }
-
- draw_inlets(x, glist, firsttime, 1,1);
-
-}
-
-
-
-
-void ticker_erase(t_ticker* x,t_glist* glist)
-{
- int n;
- sys_vgui(".x%x.c delete %xS\n",
- glist_getcanvas(glist), x);
-
- sys_vgui(".x%x.c delete %xP\n",
- glist_getcanvas(glist), x);
-
- n = 1;
- sys_vgui(".x%x.c delete %xB\n",
- glist_getcanvas(glist), x);
- sys_vgui(".x%x.c delete %xC\n",
- glist_getcanvas(glist), x);
-
- while (n--) {
- sys_vgui(".x%x.c delete %xi%d\n",glist_getcanvas(glist),x,n);
- sys_vgui(".x%x.c delete %xo%d\n",glist_getcanvas(glist),x,n);
- }
-}
-
-
-
-/* ------------------------ ticker widgetbehaviour----------------------------- */
-
-
-static void ticker_getrect(t_gobj *z, t_glist *owner,
- int *xp1, int *yp1, int *xp2, int *yp2)
-{
- int width, height;
- t_ticker* s = (t_ticker*)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 ticker_displace(t_gobj *z, t_glist *glist,
- int dx, int dy)
-{
- t_ticker *x = (t_ticker *)z;
- x->x_obj.te_xpix += dx;
- x->x_obj.te_ypix += dy;
- ticker_drawme(x, glist, 0);
- canvas_fixlinesfor(glist_getcanvas(glist),(t_text*) x);
-}
-
-static void ticker_select(t_gobj *z, t_glist *glist, int state)
-{
- t_ticker *x = (t_ticker *)z;
- sys_vgui(".x%x.c itemconfigure %xS -fill %s\n", glist,
- x, (state? "blue" : BACKGROUNDCOLOR));
-}
-
-
-static void ticker_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 ticker_delete(t_gobj *z, t_glist *glist)
-{
- t_text *x = (t_text *)z;
- canvas_deletelinesfor(glist_getcanvas(glist), x);
-}
-
-
-static void ticker_vis(t_gobj *z, t_glist *glist, int vis)
-{
- t_ticker* s = (t_ticker*)z;
- if (vis)
- ticker_drawme(s, glist, 1);
- else
- ticker_erase(s,glist);
-}
-
-/* can we use the normal text save function ?? */
-
-static void ticker_save(t_gobj *z, t_binbuf *b)
-{
- t_ticker *x = (t_ticker *)z;
- binbuf_addv(b, "ssiisii", gensym("#X"),gensym("obj"),
- (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix,
- gensym("ticker"),x->x_width,x->x_height);
- binbuf_addv(b, ";");
-}
-
-
-static void ticker_click(t_ticker *x,
- t_floatarg xpos, t_floatarg ypos, t_floatarg shift, t_floatarg ctrl,
- t_floatarg alt)
-{
- x->x_on = x->x_on == 0.0 ? 1.0:0.0;
- ticker_draw(x,x->x_glist);
- outlet_float(x->x_obj.ob_outlet,x->x_on);
-}
-
-#if (PD_VERSION_MINOR > 31)
-static int ticker_newclick(t_gobj *z, struct _glist *glist,
- int xpix, int ypix, int shift, int alt, int dbl, int doit)
-{
- if (doit)
- ticker_click((t_ticker *)z, (t_floatarg)xpix, (t_floatarg)ypix,
- (t_floatarg)shift, 0, (t_floatarg)alt);
- return (1);
-}
-#endif
-
-t_widgetbehavior ticker_widgetbehavior;
-
-
-void ticker_size(t_ticker* x,t_floatarg w,t_floatarg h) {
- x->x_width = w;
- x->x_height = h;
- ticker_drawme(x, x->x_glist, 0);
-}
-
-
-static void ticker_bang(t_ticker* x)
-{
- x->x_on = x->x_on == 0.0 ? 1.0:0.0;
- if (glist_isvisible(x->x_glist))
- ticker_draw(x,x->x_glist);
- outlet_float(x->x_obj.ob_outlet,x->x_on);
-}
-
-static void ticker_float(t_ticker* x,t_floatarg f)
-{
- x->x_on = f;
- if (glist_isvisible(x->x_glist))
- ticker_draw(x,x->x_glist);
- outlet_float(x->x_obj.ob_outlet,x->x_on);
-}
-
-static void ticker_set(t_ticker* x,t_floatarg f)
-{
- x->x_on = f;
-}
-
-static void *ticker_new(t_floatarg h,t_floatarg o)
-{
- t_ticker *x = (t_ticker *)pd_new(ticker_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;
-
- x->x_on = 0;
-
- outlet_new(&x->x_obj, &s_float);
- return (x);
-}
-
-void ticker_setup(void)
-{
- ticker_class = class_new(gensym("ticker"), (t_newmethod)ticker_new, 0,
- sizeof(t_ticker),0, A_DEFFLOAT,A_DEFFLOAT,0);
-
-
- class_addmethod(ticker_class, (t_method)ticker_click, gensym("click"),
- A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
- class_addmethod(ticker_class, (t_method)ticker_size, gensym("size"),
- A_FLOAT, A_FLOAT, 0);
-
- class_addfloat(ticker_class, ticker_float);
- class_addbang(ticker_class,ticker_bang);
- class_addmethod(ticker_class,(t_method) ticker_set,gensym("set"),A_FLOAT,0);
- class_setwidget(ticker_class,&ticker_widgetbehavior);
-
- ticker_widgetbehavior.w_getrectfn = ticker_getrect;
- ticker_widgetbehavior.w_displacefn = ticker_displace;
- ticker_widgetbehavior.w_selectfn = ticker_select;
- ticker_widgetbehavior.w_activatefn = ticker_activate;
- ticker_widgetbehavior.w_deletefn = ticker_delete;
- ticker_widgetbehavior.w_visfn = ticker_vis;
-#if (PD_VERSION_MINOR > 31)
- ticker_widgetbehavior.w_clickfn = ticker_newclick;
- ticker_widgetbehavior.w_propertiesfn = NULL;
-#endif
- ticker_widgetbehavior.w_savefn = ticker_save;
-}
-
-
+#include <m_pd.h> +#include "g_canvas.h" +#include <ggee.h> + +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +#include "fatom.h" + +/* can we use the normal text save function ?? */ + +static t_class *ticker_class; + +static void ticker_save(t_gobj *z, t_binbuf *b) +{ + + t_fatom *x = (t_fatom *)z; + + binbuf_addv(b, "ssiis", gensym("#X"),gensym("obj"), + x->x_obj.te_xpix, x->x_obj.te_ypix , + gensym("ticker")); + binbuf_addv(b, ";"); +} + +static void ticker_bang(t_fatom* x) +{ + x->x_val = !x->x_val; + fatom_float(x,x->x_val); +} + +static void *ticker_new() +{ + t_fatom *x = (t_fatom *)pd_new(ticker_class); + char buf[256]; + + x->x_type = gensym("checkbutton"); + x->x_glist = (t_glist*)NULL; +/* + if (h) x->x_width = h; + else +*/ +/* + if (o) x->x_height = o; + else +*/ + + /* bind to a symbol for ticker callback (later make this based on the + filepath ??) */ + + sprintf(buf,"ticker%x",x); + x->x_sym = gensym(buf); + pd_bind(&x->x_obj.ob_pd, x->x_sym); + +/* pipe startup code to slitk */ + + sys_vgui("proc fatom_cb%x {val} {\n + pd [concat ticker%x f $val \\;]\n + }\n",x,x); + + outlet_new(&x->x_obj, &s_float); + return (x); +} + + +t_widgetbehavior ticker_widgetbehavior = { + w_getrectfn: fatom_getrect, + w_displacefn: fatom_displace, + w_selectfn: fatom_select, + w_activatefn: fatom_activate, + w_deletefn: fatom_delete, + w_visfn: fatom_vis, + w_savefn: ticker_save, + w_clickfn: NULL, + w_propertiesfn: NULL, +}; + +void ticker_setup() { + ticker_class = class_new(gensym("ticker"), (t_newmethod)ticker_new, 0, + sizeof(t_fatom),0,0); + + class_addbang(ticker_class,ticker_bang); + fatom_setup_common(ticker_class); + class_setwidget(ticker_class,&ticker_widgetbehavior); +} |