added fatom

svn path=/trunk/externals/ggee/; revision=50

2 files changed, 413 insertions, 0 deletions

diff --git a/gui/fatom.c b/gui/fatom.c
new file mode 100644
index 0000000..1031a95
--- /dev/null
+++ b/gui/fatom.c
@@ -0,0 +1,385 @@
+#include <m_pd.h>
+#include "g_canvas.h"
+#include <ggee.h>
+
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+/* ------------------------ fatom ----------------------------- */
+
+#define x_val a_pos.a_w.w_float
+
+static t_class *fatom_class;
+
+typedef struct _fatom
+{
+     t_object x_obj;
+     t_atom a_pos;
+
+     t_glist * x_glist;
+     int x_width;
+     int x_height;
+     t_symbol*  x_sym;
+     t_symbol*  x_type;
+} 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);
+     for (i = 0; i < n; i++)
+     {
+	  int onset = x->x_obj.te_xpos + (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_ypos + x->x_height - 1,
+			onset + IOWIDTH, x->x_obj.te_ypos + 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_ypos + x->x_height - 1,
+			onset + IOWIDTH, x->x_obj.te_ypos + x->x_height);
+     }
+     n = nout; 
+     nplus = (n == 1 ? 1 : n-1);
+     for (i = 0; i < n; i++)
+     {
+	  int onset = x->x_obj.te_xpos + (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_ypos,
+			     onset + IOWIDTH, x->x_obj.te_ypos + 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_ypos,
+			onset + IOWIDTH, x->x_obj.te_ypos + 1);
+	  
+     }
+}
+
+
+void fatom_drawme(t_fatom *x, t_glist *glist, int firsttime)
+{
+     if (firsttime) {
+
+	  if (!strcmp(x->x_type->s_name,"vslider")) {
+	       x->x_width = 32;
+	       x->x_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",glist_getcanvas(glist),x,x);
+	       sys_vgui(".x%x.c create window %d %d -anchor nw -window .x%x.c.s%x -tags %xS\n", 
+			glist_getcanvas(glist),x->x_obj.te_xpos, x->x_obj.te_ypos+2,glist_getcanvas(glist),x,x);
+	  } else  if (!strcmp(x->x_type->s_name,"hslider")) {
+	       x->x_width = 150;
+	       x->x_height = 28;
+	       sys_vgui("scale .x%x.c.s%x \
+                    -sliderlength 10 \
+                    -showvalue 0 \
+                    -length 131 \
+                    -orient horizontal \
+                    -from 127 -to 0 \
+                    -command fatom_cb%x\n",glist_getcanvas(glist),x,x);
+	       sys_vgui(".x%x.c create window %d %d -anchor nw -window .x%x.c.s%x -tags %xS\n", 
+			glist_getcanvas(glist),x->x_obj.te_xpos, x->x_obj.te_ypos+2,glist_getcanvas(glist),x,x);
+	  } else if (!strcmp(x->x_type->s_name,"checkbutton")) {
+	       x->x_width = 40;
+	       x->x_height = 25;
+	       sys_vgui("checkbutton .x%x.c.s%x \
+                    -command { fatom_cb%x $fatom_val%x} -variable fatom_val%x\n",glist_getcanvas(glist),x,x,x,x);
+	       sys_vgui(".x%x.c create window %d %d -anchor nw -window .x%x.c.s%x -tags %xS\n", 
+			x->x_glist,x->x_obj.te_xpos, x->x_obj.te_ypos+2,glist_getcanvas(glist),x,x);
+	  } else if (!strcmp(x->x_type->s_name,"hradio")) {
+	       int i;
+	       x->x_width = 8*20;
+	       x->x_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",glist_getcanvas(glist),x,i,x,x,x,i);
+		    sys_vgui(".x%x.c create window %d %d -anchor nw -window .x%x.c.s%x%d -tags %x%xS\n", 
+			     x->x_glist,x->x_obj.te_xpos+i*20, x->x_obj.te_ypos+2,x->x_glist,x,i,x,i);
+	       }
+	  } else if (!strcmp(x->x_type->s_name,"vradio")) {
+	       int i;
+	       x->x_width = 30;
+	       x->x_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",glist_getcanvas(glist),x,i,x,x,x,i);
+		    sys_vgui(".x%x.c create window %d %d -anchor nw -window .x%x.c.s%x%d -tags %x%xS\n", 
+			     x->x_glist,x->x_obj.te_xpos, x->x_obj.te_ypos+2+i*20,x->x_glist,x,i,x,i);
+	       }
+	  } else {
+	       x->x_width = 32;
+	       x->x_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",glist_getcanvas(glist),x,x);
+	       sys_vgui(".x%x.c create window %d %d -anchor nw -window .x%x.c.s%x -tags %xS\n", 
+			glist_getcanvas(glist),x->x_obj.te_xpos, x->x_obj.te_ypos+2,glist_getcanvas(glist),x,x);
+	  }
+	       
+
+
+     }     
+     else {
+	  if (!strcmp(x->x_type->s_name,"hradio")) {
+	       int i;
+	       for (i=0;i<8;i++) {
+		    sys_vgui(".x%x.c coords %x%xS \
+%d %d\n",
+			     glist_getcanvas(glist), x,i,
+			     x->x_obj.te_xpos + 20*i, x->x_obj.te_ypos+2);
+	       }
+	  }
+	  else if (!strcmp(x->x_type->s_name,"vradio")) {
+	       int i;
+	       for (i=0;i<8;i++) {
+		    sys_vgui(".x%x.c coords %x%xS \
+%d %d\n",
+			     glist_getcanvas(glist), x,i,
+			     x->x_obj.te_xpos, x->x_obj.te_ypos+2+20*i);
+	       }
+	       
+	  } else {
+	       sys_vgui(".x%x.c coords %xS \
+%d %d\n",
+			glist_getcanvas(glist), x,
+			x->x_obj.te_xpos, x->x_obj.te_ypos+2);
+	  }
+     }
+
+     draw_inlets(x, glist, firsttime, 1,1);
+}
+
+
+void fatom_erase(t_fatom* x,t_glist* glist)
+{
+     int n;
+
+//     sys_vgui(".x%x.c.s%x delete\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",x->x_glist,x,0);
+     sys_vgui(".x%x.c delete %xo%d\n",x->x_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_width;
+    height = s->x_height;
+    *xp1 = s->x_obj.te_xpos;
+    *yp1 = s->x_obj.te_ypos;
+    *xp2 = s->x_obj.te_xpos + width;
+    *yp2 = s->x_obj.te_ypos + height;
+}
+
+static void fatom_displace(t_gobj *z, t_glist *glist,
+    int dx, int dy)
+{
+    t_fatom *x = (t_fatom *)z;
+    x->x_obj.te_xpos += dx;
+    x->x_obj.te_ypos += dy;
+    sys_vgui(".x%x.c coords %xSEL %d %d %d %d\n",
+		   glist_getcanvas(glist), x,
+		   x->x_obj.te_xpos, x->x_obj.te_ypos,
+       	           x->x_obj.te_xpos + x->x_width, x->x_obj.te_ypos + x->x_height);
+
+    fatom_drawme(x, glist, 0);
+    canvas_fixlinesfor(glist_getcanvas(glist),(t_text*) x);
+}
+
+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),
+		   x->x_obj.te_xpos, x->x_obj.te_ypos,
+		   x->x_obj.te_xpos + x->x_width, x->x_obj.te_ypos + x->x_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;
+    if (vis)
+	 fatom_drawme(s, glist, 1);
+    else
+	 fatom_erase(s,glist);
+}
+
+/* can we use the normal text save function ?? */
+
+static void fatom_save(t_gobj *z, t_binbuf *b)
+{
+
+    t_fatom *x = (t_fatom *)z;
+
+    binbuf_addv(b, "ssiiss", gensym("#X"),gensym("obj"),
+		(t_int)x->x_obj.te_xpos, (t_int)x->x_obj.te_ypos,  
+		gensym("fatom"),x->x_type);
+    binbuf_addv(b, ";");
+}
+
+
+t_widgetbehavior   fatom_widgetbehavior;
+
+void fatom_size(t_fatom* x,t_floatarg w,t_floatarg h) {
+     x->x_width = w;
+     x->x_height = h;
+}
+
+void fatom_color(t_fatom* x,t_symbol* col)
+{
+/*     outlet_bang(x->x_obj.ob_outlet); only bang if there was a bang .. 
+       so color black does the same as bang, but doesn't forward the bang 
+*/
+}
+
+static void fatom_setwidget()
+{
+    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_VERSION_MINOR > 31) 
+    fatom_widgetbehavior.w_clickfn = NULL;
+    fatom_widgetbehavior.w_propertiesfn = NULL; 
+#endif
+    fatom_widgetbehavior.w_savefn =   fatom_save;
+}
+
+
+
+static void fatom_float(t_fatom* x,t_floatarg f) 
+{
+     x->x_val = f;
+     sys_vgui(".x%x.c.s%x set %f\n",x->x_glist,x,f);
+     outlet_float(x->x_obj.ob_outlet,f);
+}
+
+static void fatom_f(t_fatom* x,t_floatarg f) 
+{
+     x->x_val = f;
+     outlet_float(x->x_obj.ob_outlet,f);
+}
+
+static void *fatom_new(t_symbol* type)
+{
+    t_fatom *x = (t_fatom *)pd_new(fatom_class);
+    char buf[256];
+
+    x->x_type = type;
+
+    x->x_glist = (t_glist*) canvas_getcurrent();
+/*
+    if (h) x->x_width = h;
+    else
+*/
+/*
+    if (o) x->x_height = o;
+    else
+*/
+
+    /* bind to a symbol for fatom callback (later make this based on the
+       filepath ??) */
+
+    sprintf(buf,"fatom%x",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 {val} {\n
+       pd [concat fatom%x f $val \\;]\n
+       }\n",x,x);
+
+    outlet_new(&x->x_obj, &s_float);
+    return (x);
+}
+
+void fatom_setup(void)
+{
+    fatom_class = class_new(gensym("fatom"), (t_newmethod)fatom_new, 0,
+				sizeof(t_fatom),0,A_DEFSYM,0);
+
+    class_addfloat(fatom_class, (t_method)fatom_float);
+    class_addmethod(fatom_class, (t_method)fatom_f, gensym("f"),
+    	A_FLOAT, 0);
+
+/*
+    class_addmethod(fatom_class, (t_method)fatom_size, gensym("size"),
+    	A_FLOAT, A_FLOAT, 0);
+
+    class_addmethod(fatom_class, (t_method)fatom_color, gensym("color"),
+    	A_SYMBOL, 0);
+*/
+/*
+    class_addmethod(fatom_class, (t_method)fatom_open, gensym("open"),
+    	A_SYMBOL, 0);
+*/
+    fatom_setwidget();
+    class_setwidget(fatom_class,&fatom_widgetbehavior);
+
+}
+
+
diff --git a/gui/fatom.pd b/gui/fatom.pd
new file mode 100644
index 0000000..7795ace
--- /dev/null
+++ b/gui/fatom.pd
@@ -0,0 +1,28 @@
+#N canvas 357 136 578 414 10;
+#X obj 19 151 fatom ;
+#X floatatom 19 318 5 0 0;
+#X floatatom 52 193 5 0 0;
+#X floatatom 221 221 5 0 0;
+#X obj 52 153 fatom hslider;
+#X obj 221 187 fatom checkbutton;
+#X obj 315 57 image logo100.gif;
+#X text 10 24 ==================================;
+#X text 17 123 Sliders;
+#X text 216 130 Togglebutton;
+#X text 320 131 Radio Button;
+#X floatatom 368 217 5 0 0;
+#X text 17 10 Widgets with Floatatom Behaviour;
+#X text 14 376 (C) 2002 Guenter Geiger;
+#X obj 368 186 fatom hradio;
+#X obj 321 161 fatom vradio;
+#X floatatom 321 332 5 0 0;
+#X floatatom 221 164 5 0 0;
+#X floatatom 368 162 5 0 0;
+#X text 14 69 The fatom object;
+#X connect 0 0 1 0;
+#X connect 4 0 2 0;
+#X connect 5 0 3 0;
+#X connect 14 0 11 0;
+#X connect 15 0 16 0;
+#X connect 17 0 5 0;
+#X connect 18 0 14 0;