aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rwxr-xr-xgui/envgen.c625
-rwxr-xr-xgui/envgen.h109
-rwxr-xr-xgui/w_envgen.h1011
3 files changed, 882 insertions, 863 deletions
diff --git a/gui/envgen.c b/gui/envgen.c
index 054d836..5df03df 100755
--- a/gui/envgen.c
+++ b/gui/envgen.c
@@ -1,299 +1,326 @@
-/* (C) Guenter Geiger <geiger@epy.co.at> */
-
-
-#include <m_pd.h>
-#ifdef NT
-#pragma warning( disable : 4244 )
-#pragma warning( disable : 4305 )
-#endif
-
-/* ------------------------ envgen~ ----------------------------- */
-
-#define NONE 0
-#define ATTACK 1
-#define SUSTAIN 3
-#define STATES 100
-
-#include "envgen.h"
-#include "w_envgen.h"
-
-static t_class *envgen_class;
-
-
-char dumpy[2000];
-
-/* initialize envelope with argument vector */
-
-#include <stdio.h>
-
-/*
- envgen crashes frequently when reallocating memory ....
- I really don't know why, it crashes during resizebytes,
- which means it is unable to realloc() the memory ?????
- the pointer seems to be ok, I don't know what else could
- cause the problem. for the moment we prevent from reallocating
- by setting the STATES variable to 100 */
-
-void envgen_resize(t_envgen* x,int ns)
-{
- if (ns > x->args) {
- int newargs = ns*sizeof(t_float);
-
- x->duration = resizebytes(x->duration,x->args*sizeof(t_float),newargs);
- x->finalvalues = resizebytes(x->finalvalues,x->args*sizeof(t_float),newargs);
- x->args = ns;
- }
-}
-
-
-
-void envgen_totaldur(t_envgen* x,t_float dur)
-{
- int i;
- float f = dur/x->duration[x->last_state];
-
- if (dur < 10) {
- post("envgen: duration too small %f",dur);
- return;
- }
-
- for (i=1;i<=x->last_state;i++)
- x->duration[i]*=f;
-}
-
-
-static void envgen_dump(t_envgen* e)
-{
- t_atom argv[50];
- int argc= 0;
- t_atom* a = argv;
- int i;
-
- SETFLOAT(a,e->finalvalues[0]);argc++;
- for (i=1;i <= e->last_state;i++) {
- SETFLOAT(argv+argc,e->duration[i] - e->duration[i-1]);
- argc++;
- SETFLOAT(argv+argc,e->finalvalues[i]);
- argc++;
- }
- outlet_list(e->out2,&s_list,argc,(t_atom*)&argv);
-
-}
-
-void envgen_init(t_envgen *x,int argc,t_atom* argv)
-{
- t_float* dur;
- t_float* val;
- t_float tdur = 0;
-
- if (!argc) return;
-
- x->duration[0] = 0;
-
- x->last_state = argc>>1;
- envgen_resize(x,argc>>1);
-
- dur = x->duration;
- val = x->finalvalues;
-
- if (argc) {
- *val = atom_getfloat(argv++);
- *dur = 0.0;
- }
- dur++;val++;argc--;
- for (;argc > 0;argc--) {
- tdur += atom_getfloat(argv++);
-#ifdef DEBUG
- post("dur =%f",tdur);
-#endif
- *dur++ = tdur;
- argc--;
- if (argc > 0)
- *val++ = atom_getfloat(argv++);
- else
- *val++ = 0;
-#ifdef DEBUG
- post("val =%f",*(val-1));
-#endif
-
- }
-
-}
-
-
-
-
-
-void envgen_list(t_envgen *x,t_symbol* s, int argc,t_atom* argv)
-{
- envgen_init(x,argc,argv);
- if (glist_isvisible(x->w.glist)) {
- envgen_drawme(x, x->w.glist, 0);
- }
-}
-
-void envgen_setresize(t_envgen *x, t_floatarg f)
-{
- x->resizeable = f;
-}
-
-
-void envgen_float(t_envgen *x, t_floatarg f)
-{
- int state = 0;
- float val;
-
- while (x->duration[state] < f && state < x->last_state) state++;
-
- if (state == 0 || f >= x->duration[x->last_state]) {
- outlet_float(x->x_obj.ob_outlet,x->finalvalues[state]*(x->max-x->min));
- return;
- }
-
- val = x->finalvalues[state-1] +
- (f - x->duration[state-1])*
- (x->finalvalues[state] - x->finalvalues[state-1])/
- (x->duration[state] - x->duration[state-1]);
-
- val *= (x->max - x->min);
- outlet_float(x->x_obj.ob_outlet,val);
-}
-
-
-void envgen_bang(t_envgen *x)
-{
- t_atom a[2];
-
- SETFLOAT(a,x->finalvalues[NONE]);
- SETFLOAT(a+1,0);
- outlet_list(x->x_obj.ob_outlet,&s_list,2,(t_atom*)&a);
-
-/* we don't force the first value anymore, so the first value
- is actually with what we have left off at the end ...
- this reduces clicks
-*/
- x->x_state = ATTACK;
- x->x_val = x->finalvalues[NONE];
-
- SETFLOAT(a,x->finalvalues[x->x_state]*(x->max-x->min));
- SETFLOAT(a+1,x->duration[x->x_state]);
-
- outlet_list(x->x_obj.ob_outlet,&s_list,2,(t_atom*)&a);
- clock_delay(x->x_clock,x->duration[x->x_state]);
-}
-
-
-static void envgen_sustain(t_envgen *x, t_floatarg f)
-{
- if (f > 0 && f < x->last_state)
- x->sustain_state = f;
-}
-
-
-static void envgen_tick(t_envgen* x)
-{
- t_atom a[2];
- x->x_state++;
- if (x->x_state <= x->last_state) {
- float del = x->duration[x->x_state] - x->duration[x->x_state-1];
- clock_delay(x->x_clock,del);
- SETFLOAT(a,x->finalvalues[x->x_state]*(x->max-x->min));
- SETFLOAT(a+1,del);
-
- outlet_list(x->x_obj.ob_outlet,&s_list,2,(t_atom*)&a);
- }
- else
- clock_unset(x->x_clock);
-}
-
-static void envgen_freeze(t_envgen* x, t_floatarg f)
-{
- x->x_freeze = f;
-}
-
-static void *envgen_new(t_symbol *s,int argc,t_atom* argv)
-{
- t_envgen *x = (t_envgen *)pd_new(envgen_class);
-
- x->args = STATES;
- x->finalvalues = getbytes( x->args*sizeof(t_float));
- x->duration = getbytes( x->args*sizeof(t_float));
-#ifdef DEBUG
- post("finalvalues %x",x->finalvalues);
-#endif
- /* widget */
-
- x->w.grabbed = 0;
- x->resizing = 0;
- x->resizeable = 0;
-
- x->w.glist = (t_glist*) canvas_getcurrent();
-
- x->w.width = 200;
- if (argc) x->w.width = atom_getfloat(argv++),argc--;
- x->w.height = 140;
- if (argc) x->w.height = atom_getfloat(argv++),argc--;
- x->max = 1.0;
- if (argc) x->max = atom_getfloat(argv++),argc--;
- x->min = 0.0;
- if (argc) x->min = atom_getfloat(argv++),argc--;
-
- if (argc)
- envgen_init(x,argc,argv);
- else {
- t_atom a[5];
- SETFLOAT(a,0);
- SETFLOAT(a+1,50);
- SETFLOAT(a+2,1);
- SETFLOAT(a+3,50);
- SETFLOAT(a+4,0);
- envgen_init(x,5,a);
- }
-
- x->x_val = 0.0;
- x->x_state = NONE;
- x->sustain_state = SUSTAIN;
- x->x_freeze = 0;
-
- outlet_new(&x->x_obj, &s_float);
- x->out2 = outlet_new(&x->x_obj, &s_float);
-
- x->x_clock = clock_new(x, (t_method) envgen_tick);
- return (x);
-}
-
-
-void envgen_motion(t_envgen *x, t_floatarg dx, t_floatarg dy);
-void envgen_click(t_envgen *x,
- t_floatarg xpos, t_floatarg ypos, t_floatarg shift, t_floatarg ctrl,
- t_floatarg alt);
-void envgen_key(t_envgen *x, t_floatarg f);
-
-
-void envgen_setup(void)
-{
- envgen_class = class_new(gensym("envgen"), (t_newmethod)envgen_new, 0,
- sizeof(t_envgen), 0,A_GIMME,0);
-
- class_addcreator((t_newmethod)envgen_new,gensym("envgen~"),A_GIMME,0);
- class_addfloat(envgen_class, envgen_float);
-
- class_addbang(envgen_class,envgen_bang);
- class_addlist(envgen_class,envgen_list);
- class_addmethod(envgen_class,(t_method)envgen_sustain,gensym("sustain"),A_FLOAT,A_NULL);
-
- class_addmethod(envgen_class, (t_method)envgen_click, gensym("click"),
- A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
- class_addmethod(envgen_class, (t_method)envgen_motion, gensym("motion"),
- A_FLOAT, A_FLOAT, 0);
- class_addmethod(envgen_class, (t_method)envgen_key, gensym("key"),
- A_FLOAT, 0);
-
- class_addmethod(envgen_class,(t_method)envgen_totaldur,gensym("duration"),A_FLOAT,NULL);
- class_addmethod(envgen_class,(t_method)envgen_freeze,gensym("freeze"),A_FLOAT,NULL);
- class_addmethod(envgen_class,(t_method)envgen_setresize,gensym("resize"),A_FLOAT,A_NULL);
-
- envgen_setwidget();
- class_setwidget(envgen_class,&envgen_widgetbehavior);
- class_addmethod(envgen_class,(t_method)envgen_dump,gensym("dump"),A_NULL);
-}
+/* (C) Guenter Geiger <geiger@epy.co.at> */
+
+#include <m_pd.h>
+
+//#define DEBUG
+/* ------------------------ envgen~ ----------------------------- */
+
+#define NONE 0
+#define ATTACK 1
+#define SUSTAIN 3
+#define STATES 100
+
+#include "envgen.h"
+#include "w_envgen.h"
+
+static t_class *envgen_class;
+
+
+#define OUT_LIST(x,nr,a) \
+ outlet_list(x->x_obj.ob_outlet,&s_list,nr,(t_atom*)&a);\
+ if (x->s_sym != &s_ && x->s_sym->s_thing) pd_list(x->s_sym->s_thing, &s_list, nr, (t_atom*)&a);
+
+
+char dumpy[2000];
+
+/* initialize envelope with argument vector */
+
+#include <stdio.h>
+
+/*
+ envgen crashes frequently when reallocating memory ....
+ I really don't know why, it crashes during resizebytes,
+ which means it is unable to realloc() the memory ?????
+ the pointer seems to be ok, I don't know what else could
+ cause the problem. for the moment we prevent from reallocating
+ by setting the STATES variable to 100 */
+
+void envgen_resize(t_envgen* x,int ns)
+{
+ if (ns > x->args) {
+ int newargs = ns*sizeof(t_float);
+
+ x->duration = resizebytes(x->duration,x->args*sizeof(t_float),newargs);
+ x->finalvalues = resizebytes(x->finalvalues,x->args*sizeof(t_float),newargs);
+ x->args = ns;
+ }
+}
+
+
+
+void envgen_totaldur(t_envgen* x,t_float dur)
+{
+ int i;
+ float f = dur/x->duration[x->last_state];
+
+ if (dur < 10) {
+ post("envgen: duration too small %f",dur);
+ return;
+ }
+
+ for (i=1;i<=x->last_state;i++)
+ x->duration[i]*=f;
+}
+
+
+static void envgen_dump(t_envgen* e)
+{
+ t_atom argv[50];
+ int argc= 0;
+ t_atom* a = argv;
+ int i;
+
+ SETFLOAT(a,e->finalvalues[0]);argc++;
+ for (i=1;i <= e->last_state;i++) {
+ SETFLOAT(argv+argc,e->duration[i] - e->duration[i-1]);
+ argc++;
+ SETFLOAT(argv+argc,e->finalvalues[i]);
+ argc++;
+ }
+ outlet_list(e->out2,&s_list,argc,(t_atom*)&argv);
+
+}
+
+void envgen_init(t_envgen *x,int argc,t_atom* argv)
+{
+ t_float* dur;
+ t_float* val;
+ t_float tdur = 0;
+
+ if (!argc) return;
+
+ x->duration[0] = 0;
+
+ x->last_state = argc>>1;
+ envgen_resize(x,argc>>1);
+
+ dur = x->duration;
+ val = x->finalvalues;
+
+ if (argc) {
+ *val = atom_getfloat(argv++);
+ *dur = 0.0;
+ }
+ dur++;val++;argc--;
+ for (;argc > 0;argc--) {
+ tdur += atom_getfloat(argv++);
+#ifdef DEBUG
+ post("dur =%f",tdur);
+#endif
+ *dur++ = tdur;
+ argc--;
+ if (argc > 0)
+ *val++ = atom_getfloat(argv++);
+ else
+ *val++ = 0;
+#ifdef DEBUG
+ post("val =%f",*(val-1));
+#endif
+
+ }
+
+}
+
+
+
+
+
+void envgen_list(t_envgen *x,t_symbol* s, int argc,t_atom* argv)
+{
+ envgen_init(x,argc,argv);
+ if (glist_isvisible(x->w.glist)) {
+ envgen_drawme(x, x->w.glist, 0);
+ }
+}
+
+void envgen_setresize(t_envgen *x, t_floatarg f)
+{
+ x->resizeable = f;
+}
+
+
+void envgen_float(t_envgen *x, t_floatarg f)
+{
+ int state = 0;
+ float val;
+
+ while (x->duration[state] < f && state < x->last_state) state++;
+
+ if (state == 0 || f >= x->duration[x->last_state]) {
+ val = x->finalvalues[state]*(x->max-x->min);
+ outlet_float(x->x_obj.ob_outlet,f);
+ if (x->s_sym != &s_) pd_float(x->s_sym->s_thing, f);
+ return;
+ }
+
+ val = x->finalvalues[state-1] +
+ (f - x->duration[state-1])*
+ (x->finalvalues[state] - x->finalvalues[state-1])/
+ (x->duration[state] - x->duration[state-1]);
+
+ val *= (x->max - x->min);
+ outlet_float(x->x_obj.ob_outlet,val);
+ if (x->s_sym != &s_) pd_float(x->s_sym->s_thing, val);
+}
+
+
+void envgen_bang(t_envgen *x)
+{
+ t_atom a[2];
+
+ SETFLOAT(a,x->finalvalues[NONE]);
+ SETFLOAT(a+1,0);
+
+ OUT_LIST(x,2,a);
+
+/* we don't force the first value anymore, so the first value
+ is actually with what we have left off at the end ...
+ this reduces clicks
+*/
+ x->x_state = ATTACK;
+ x->x_val = x->finalvalues[NONE];
+
+ SETFLOAT(a,x->finalvalues[x->x_state]*(x->max-x->min));
+ SETFLOAT(a+1,x->duration[x->x_state]);
+
+ OUT_LIST(x,2,a);
+ clock_delay(x->x_clock,x->duration[x->x_state]);
+}
+
+
+static void envgen_sustain(t_envgen *x, t_floatarg f)
+{
+ if (f > 0 && f < x->last_state)
+ x->sustain_state = f;
+}
+
+
+static void envgen_tick(t_envgen* x)
+{
+ t_atom a[2];
+ x->x_state++;
+ if (x->x_state <= x->last_state) {
+ float del = x->duration[x->x_state] - x->duration[x->x_state-1];
+ clock_delay(x->x_clock,del);
+ SETFLOAT(a,x->finalvalues[x->x_state]*(x->max-x->min));
+ SETFLOAT(a+1,del);
+ OUT_LIST(x,2,a);
+ }
+ else
+ clock_unset(x->x_clock);
+}
+
+static void envgen_freeze(t_envgen* x, t_floatarg f)
+{
+ x->x_freeze = f;
+}
+
+
+static void bindsym(t_pd* x,t_symbol* o,t_symbol* s)
+{
+ if (o != &s_) pd_unbind(x,o);
+ o = s;
+ pd_bind(x,s);
+}
+
+static void *envgen_new(t_symbol *s,int argc,t_atom* argv)
+{
+ t_envgen *x = (t_envgen *)pd_new(envgen_class);
+
+ x->args = STATES;
+ x->finalvalues = getbytes( x->args*sizeof(t_float));
+ x->duration = getbytes( x->args*sizeof(t_float));
+#ifdef DEBUG
+ post("finalvalues %x",x->finalvalues);
+#endif
+ /* widget */
+
+ x->w.grabbed = 0;
+ x->resizing = 0;
+ x->resizeable = 1;
+
+ x->w.glist = (t_glist*) canvas_getcurrent();
+
+ x->w.width = 200;
+ if (argc) x->w.width = atom_getfloat(argv++),argc--;
+ x->w.height = 140;
+ if (argc) x->w.height = atom_getfloat(argv++),argc--;
+ x->max = 1.0;
+ if (argc) x->max = atom_getfloat(argv++),argc--;
+ x->min = 0.0;
+ if (argc) x->min = atom_getfloat(argv++),argc--;
+
+ x->r_sym = &s_;
+ if (argc) {
+ t_symbol* n;
+
+ n = atom_getsymbol(argv++);
+ bindsym(&x->x_obj.ob_pd,x->r_sym,n);
+ x->r_sym = n;
+ argc--;
+ }
+ // post("recv %s",x->r_sym->s_name);
+
+ x->s_sym = &s_;
+ if (argc) x->s_sym = atom_getsymbol(argv++),argc--;
+ // post("send %s",x->s_sym->s_name);
+
+ if (argc)
+ envgen_init(x,argc,argv);
+ else {
+ t_atom a[5];
+ SETFLOAT(a,0);
+ SETFLOAT(a+1,50);
+ SETFLOAT(a+2,1);
+ SETFLOAT(a+3,50);
+ SETFLOAT(a+4,0);
+ envgen_init(x,5,a);
+ }
+
+ x->x_val = 0.0;
+ x->x_state = NONE;
+ x->sustain_state = SUSTAIN;
+ x->x_freeze = 0;
+
+ outlet_new(&x->x_obj, &s_float);
+ x->out2 = outlet_new(&x->x_obj, &s_float);
+
+ x->x_clock = clock_new(x, (t_method) envgen_tick);
+ return (x);
+}
+
+
+void envgen_motion(t_envgen *x, t_floatarg dx, t_floatarg dy);
+void envgen_click(t_envgen *x,
+ t_floatarg xpos, t_floatarg ypos, t_floatarg shift, t_floatarg ctrl,
+ t_floatarg alt);
+void envgen_key(t_envgen *x, t_floatarg f);
+
+
+void envgen_setup(void)
+{
+ envgen_class = class_new(gensym("envgen"), (t_newmethod)envgen_new, 0,
+ sizeof(t_envgen), 0,A_GIMME,0);
+
+ class_addcreator((t_newmethod)envgen_new,gensym("envgen~"),A_GIMME,0);
+ class_addfloat(envgen_class, envgen_float);
+
+ class_addbang(envgen_class,envgen_bang);
+ class_addlist(envgen_class,envgen_list);
+ class_addmethod(envgen_class,(t_method)envgen_sustain,gensym("sustain"),A_FLOAT,A_NULL);
+
+ class_addmethod(envgen_class, (t_method)envgen_click, gensym("click"),
+ A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
+ class_addmethod(envgen_class, (t_method)envgen_motion, gensym("motion"),
+ A_FLOAT, A_FLOAT, 0);
+ class_addmethod(envgen_class, (t_method)envgen_key, gensym("key"),
+ A_FLOAT, 0);
+
+ class_addmethod(envgen_class,(t_method)envgen_totaldur,gensym("duration"),A_FLOAT,NULL);
+ class_addmethod(envgen_class,(t_method)envgen_freeze,gensym("freeze"),A_FLOAT,NULL);
+ class_addmethod(envgen_class,(t_method)envgen_setresize,gensym("resize"),A_FLOAT,A_NULL);
+
+ envgen_setwidget();
+ class_setwidget(envgen_class,&envgen_widgetbehavior);
+ class_addmethod(envgen_class,(t_method)envgen_dump,gensym("dump"),A_NULL);
+}
diff --git a/gui/envgen.h b/gui/envgen.h
index 905c80a..a3a8721 100755
--- a/gui/envgen.h
+++ b/gui/envgen.h
@@ -1,53 +1,56 @@
-#ifndef __GG_ENVGEN_H__
-#define __GG_ENVGEN_H__
-
-#include "g_canvas.h"
-
-typedef struct _wenvgen {
- t_glist* glist;
- int width;
- int height;
- int numdoodles;
- int grabbed; /* for moving points */
- int shift; /* move 100th */
- float pointerx;
- float pointery;
- t_clock* numclock;
-} t_wenvgen;
-
-typedef struct _envgen
-{
- t_object x_obj;
-
- t_float x_val;
-
- int x_state;
- int last_state;
- int sustain_state;
- int envchanged;
-
- t_float* finalvalues;
- t_float* duration;
- t_float totaldur;
- t_int args; /* get rid of that */
- t_int resizing;
- t_int resizeable;
-
- t_float min;
- t_float max;
-
- t_clock* x_clock;
- t_float x_freeze;
-
- t_outlet* out2;
- /* widget parameters */
- t_wenvgen w;
-} t_envgen;
-
-
-t_widgetbehavior envgen_widgetbehavior;
-void envgen_drawme(t_envgen *x, t_glist *glist, int firsttime);
-int envgen_set_values(t_envgen * x);
-void envgen_resize(t_envgen* x,int ns);
-
-#endif
+#ifndef __GG_ENVGEN_H__
+#define __GG_ENVGEN_H__
+
+#include "g_canvas.h"
+
+typedef struct _wenvgen {
+ t_glist* glist;
+ int width;
+ int height;
+ int numdoodles;
+ int grabbed; /* for moving points */
+ int shift; /* move 100th */
+ float pointerx;
+ float pointery;
+ t_clock* numclock;
+} t_wenvgen;
+
+typedef struct _envgen
+{
+ t_object x_obj;
+
+ t_float x_val;
+
+ int x_state;
+ int last_state;
+ int sustain_state;
+ int envchanged;
+
+ t_float* finalvalues;
+ t_float* duration;
+ t_float totaldur;
+ t_int args; /* get rid of that */
+ t_int resizing;
+ t_int resizeable;
+
+ t_symbol* r_sym;
+ t_symbol* s_sym;
+
+ t_float min;
+ t_float max;
+
+ t_clock* x_clock;
+ t_float x_freeze;
+
+ t_outlet* out2;
+ /* widget parameters */
+ t_wenvgen w;
+} t_envgen;
+
+
+t_widgetbehavior envgen_widgetbehavior;
+void envgen_drawme(t_envgen *x, t_glist *glist, int firsttime);
+int envgen_set_values(t_envgen * x);
+void envgen_resize(t_envgen* x,int ns);
+
+#endif
diff --git a/gui/w_envgen.h b/gui/w_envgen.h
index c436947..aa4b8c6 100755
--- a/gui/w_envgen.h
+++ b/gui/w_envgen.h
@@ -1,511 +1,500 @@
-#include <stdio.h>
-#include <string.h>
-#include <math.h>
-#ifdef NT
-#pragma warning( disable : 4244 )
-#pragma warning( disable : 4305 )
-#define abs fabs
-#endif
-
-#define PD_VERSION_MINOR 32
-#define BACKGROUND "-fill grey"
-#define BACKGROUNDCOLOR "grey"
-#define BORDER 2
-
-#if 0 /* backwards compatiblity */
-#define text_xpix(a,b) a.te_xpos
-#define text_ypix(a,b) a.te_ypos
-#endif
-
-static void draw_inlets(t_envgen *x, t_glist *glist, int firsttime, int nin, int nout)
-{
- int n = nout;
- int nplus, i;
- nplus = (n == 1 ? 1 : n-1);
- for (i = 0; i < n; i++)
- {
- int onset = x->x_obj.te_xpix + (x->w.width-2*BORDER) * 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->w.height - 1 + 2*BORDER,
- onset + IOWIDTH, x->x_obj.te_ypix + x->w.height + 2*BORDER,
- 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->w.height - 1 + 2*BORDER,
- onset + IOWIDTH, x->x_obj.te_ypix + x->w.height + 2*BORDER);
- }
- n = nin;
- nplus = (n == 1 ? 1 : n-1);
- for (i = 0; i < n; i++)
- {
- int onset = x->x_obj.te_xpix + (x->w.width - IOWIDTH) * i / nplus - BORDER;
- 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 - BORDER,
- onset + IOWIDTH, x->x_obj.te_ypix + 1 - BORDER,
- 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 - BORDER,
- onset + IOWIDTH, x->x_obj.te_ypix + 1 - BORDER);
-
- }
-}
-
-
-
-static int envgen_next_doodle(t_envgen *x, int xpos,int ypos)
-{
- int ret = -1;
- float xscale,yscale;
- int dxpos,dypos;
- float minval = 100000.0;
- float tval;
- int i;
- int insertpos = -1;
-
-
- xscale = x->w.width/x->duration[x->last_state];
- yscale = x->w.height;
-
- dxpos = x->x_obj.te_xpix;/* + BORDER */;
- dypos = x->x_obj.te_ypix + BORDER;
-
- for (i=0;i<=x->last_state;i++) {
- float dx2 = (dxpos + (x->duration[i] * xscale)) - xpos;
- float dy2 = (dypos + yscale - (x->finalvalues[i] * yscale)) - ypos;
-
- dx2*=dx2;
- dy2*=dy2;
- tval = sqrt(dx2+dy2);
-
- if (tval <= minval) {
- minval = tval;
- insertpos = i;
- }
- }
-
- /* decide if we want to make a new one */
- if (minval > /*5*/ 8 && insertpos >= 0 && !x->x_freeze) {
-
- while (((dxpos + (x->duration[insertpos] * xscale)) - xpos) < 0)
- insertpos++;
- while (((dxpos + (x->duration[insertpos-1] * xscale)) - xpos) > 0)
- insertpos--;
-
- if (x->last_state+1 >= x->args)
- envgen_resize(x,x->args+1);
-
- for (i=x->last_state;i>=insertpos;i--) {
- x->duration[i+1] = x->duration[i];
- x->finalvalues[i+1] = x->finalvalues[i];
- }
-
- x->duration[insertpos] = (float)(xpos-dxpos)/x->w.width*x->duration[x->last_state++];
-
- x->w.pointerx = xpos;
- x->w.pointery = ypos;
- }
- else {
- x->w.pointerx = x->x_obj.te_xpix + x->duration[insertpos]*x->w.width/x->duration[x->last_state];
-
-
- x->w.pointery = x->x_obj.te_ypix +
- (1.f - x->finalvalues[insertpos])*x->w.height;
- }
-
- x->w.grabbed = insertpos;
- return insertpos;
-}
-
-static void envgen_create_doodles(t_envgen *x, t_glist *glist)
-{
- float xscale,yscale;
- int xpos,ypos;
- int i;
- char guistr[255];
-
- xscale = x->w.width/x->duration[x->last_state];
- yscale = x->w.height;
-
- xpos = x->x_obj.te_xpix;
- ypos = (int) (x->x_obj.te_ypix + x->w.height);
- for (i=0;i<=x->last_state;i++) {
- sprintf(guistr,".x%x.c create oval %d %d %d %d -tags %xD%d",(unsigned int)glist_getcanvas(glist),
- (int) (xpos+(x->duration[i] * xscale) - 2),
- (int) (ypos - x->finalvalues[i]*yscale - 2),
- (int) (xpos+(x->duration[i] * xscale)+2),
- (int) (ypos - x->finalvalues[i]*yscale + 2),
- (unsigned int)x,i);
-
- if (i == x->w.grabbed) strcat(guistr," -fill red\n");
- else strcat(guistr,"\n");
- sys_vgui("%s",guistr);
- }
- x->w.numdoodles = i;
-}
-
-
-static void envgen_delete_doodles(t_envgen *x, t_glist *glist)
-{
- int i;
- for (i=0;i<=x->w.numdoodles;i++) {
- sys_vgui(".x%x.c delete %xD%d\n",glist_getcanvas(glist),x,i);
- }
-}
-
-static void envgen_update_doodles(t_envgen *x, t_glist *glist)
-{
-
- envgen_delete_doodles(x,glist);
-/* LATER only create new doodles if necessary */
- envgen_create_doodles(x, glist);
-}
-
-
-static void envgen_delnum(t_envgen *x)
-{
- sys_vgui(".x%x.c delete %xT\n",glist_getcanvas(x->w.glist),x);
-}
-
-
-static void envgen_shownum(t_envgen *x)
-{
- float xscale,yscale;
- int xpos,ypos;
- int i= x->w.grabbed;
-
- xscale = x->w.width/x->duration[x->last_state];
- yscale = x->w.height;
-
- xpos = x->x_obj.te_xpix;
- ypos = (int) (x->x_obj.te_ypix + x->w.height);
-
- envgen_delnum(x);
-
- sys_vgui(".x%x.c create text %d %d -text %fx%f -tags %xT\n",
- (unsigned int)glist_getcanvas(x->w.glist),
-
- (int) (xpos+(x->duration[i] * xscale) + 12),
- (int) (ypos - x->finalvalues[i]*yscale - 2),
-
- x->finalvalues[i]*(x->max-x->min),
- x->duration[i],
- (unsigned int)x);
- clock_delay(x->w.numclock,700);
-}
-
-
-
-static void envgen_create(t_envgen *x, t_glist *glist)
-{
- int i;
- static char buf[1024];
- float xscale,yscale;
- int xpos,ypos;
- char num[40];
-
- x->w.numclock = clock_new(x, (t_method) envgen_delnum);
- sys_vgui(".x%x.c create rectangle \
-%d %d %d %d -tags %xS "BACKGROUND"\n",
- glist_getcanvas(glist),
- x->x_obj.te_xpix-BORDER, x->x_obj.te_ypix-BORDER,
- x->x_obj.te_xpix + x->w.width+2*BORDER, x->x_obj.te_ypix + x->w.height+2*BORDER,
- x);
-
- xscale = x->w.width/x->duration[x->last_state];
- yscale = x->w.height;
-
- sprintf(buf,".x%x.c create line",(unsigned int)glist_getcanvas(glist));
- xpos = x->x_obj.te_xpix;
- ypos = (int) (x->x_obj.te_ypix + x->w.height);
- for (i=0;i<=x->last_state;i++) {
- sprintf(num," %d %d ",(int)(xpos + x->duration[i]*xscale),
- (int)(ypos - x->finalvalues[i]*yscale));
- strcat(buf,num);
- }
-
- sprintf(num,"-tags %pP\n",x);
- strcat(buf,num);
- sys_vgui("%s",buf);
- envgen_create_doodles(x,glist);
-}
-
-
-static void envgen_update(t_envgen *x, t_glist *glist)
-{
-int i;
- static char buf[1024];
- float xscale,yscale;
- int xpos,ypos;
- char num[40];
-
- sys_vgui(".x%x.c coords %xS \
-%d %d %d %d\n",
- glist_getcanvas(glist), x,
- x->x_obj.te_xpix - BORDER, x->x_obj.te_ypix -BORDER,
- x->x_obj.te_xpix + x->w.width+2*BORDER, x->x_obj.te_ypix + x->w.height+2*BORDER);
-
-
- xscale = x->w.width/x->duration[x->last_state];
- yscale = x->w.height;
-
- sprintf(buf,".x%x.c coords %pP",(unsigned int)glist_getcanvas(glist),x);
- xpos = x->x_obj.te_xpix;
- ypos = (int) (x->x_obj.te_ypix + x->w.height);
- for (i=0;i<=x->last_state;i++) {
- sprintf(num," %d %d ",(int)(xpos + x->duration[i]*xscale),
- (int) (ypos - x->finalvalues[i]*yscale));
- strcat(buf,num);
- }
- strcat(buf,"\n");
- sys_vgui("%s",buf);
- envgen_update_doodles(x,glist);
- draw_inlets(x, glist, 0,1,2);
-}
-
-
-
-void envgen_drawme(t_envgen *x, t_glist *glist, int firsttime)
-{
-
- if (firsttime) envgen_create(x,glist);
- else envgen_update(x,glist);
-
- draw_inlets(x, glist, firsttime, 1,2);
-}
-
-
-
-
-void envgen_erase(t_envgen* x,t_glist* glist)
-{
- int n;
- sys_vgui(".x%x.c delete %xS\n",
- glist_getcanvas(glist), x);
-
- sys_vgui(".x%x.c delete %pP\n",
- glist_getcanvas(glist), x);
-
-
- sys_vgui(".x%x.c delete %xi0\n",glist_getcanvas(glist),x);
- sys_vgui(".x%x.c delete %xo0\n",glist_getcanvas(glist),x);
- sys_vgui(".x%x.c delete %xo1\n",glist_getcanvas(glist),x);
- envgen_delete_doodles(x,glist);
-}
-
-
-
-/* ------------------------ envgen widgetbehaviour----------------------------- */
-
-
-static void envgen_getrect(t_gobj *z, t_glist *owner,
- int *xp1, int *yp1, int *xp2, int *yp2)
-{
- int width, height;
- t_envgen* s = (t_envgen*)z;
-
-
- width = s->w.width + 2*BORDER;
- height = s->w.height + 2*BORDER;
- *xp1 = s->x_obj.te_xpix-BORDER;
- *yp1 = s->x_obj.te_ypix-BORDER;
- *xp2 = s->x_obj.te_xpix + width;
- *yp2 = s->x_obj.te_ypix + height;
-}
-
-static void envgen_displace(t_gobj *z, t_glist *glist,
- int dx, int dy)
-{
- t_envgen *x = (t_envgen *)z;
- x->x_obj.te_xpix += dx;
- x->x_obj.te_ypix += dy;
-
- envgen_drawme(x, glist, 0);
- canvas_fixlinesfor(glist_getcanvas(glist),(t_text*) x);
-}
-
-static void envgen_select(t_gobj *z, t_glist *glist, int state)
-{
- t_envgen *x = (t_envgen *)z;
- sys_vgui(".x%x.c itemconfigure %xS -fill %s\n", glist,
- x, (state? "blue" : BACKGROUNDCOLOR));
-}
-
-
-static void envgen_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 envgen_delete(t_gobj *z, t_glist *glist)
-{
- t_text *x = (t_text *)z;
- canvas_deletelinesfor(glist_getcanvas(glist), x);
-}
-
-
-static void envgen_vis(t_gobj *z, t_glist *glist, int vis)
-{
- t_envgen* s = (t_envgen*)z;
- if (vis)
- envgen_drawme(s, glist, 1);
- else
- envgen_erase(s,glist);
-}
-
-/* can we use the normal text save function ?? */
-
-static void envgen_save(t_gobj *z, t_binbuf *b)
-{
- t_envgen *x = (t_envgen *)z;
- binbuf_addv(b, "ssiisiiff", gensym("#X"),gensym("obj"),
- (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix,
- gensym("envgen"),x->w.width,x->w.height,x->max,x->min);
- binbuf_addv(b, ";");
-}
-
-
-
-static void envgen_followpointer(t_envgen* x)
-{
- float dur;
-
- float xscale = x->duration[x->last_state]/x->w.width;
-
-
- if ((x->w.grabbed > 0) && (x->w.grabbed < x->last_state)) {
-
- dur = (x->w.pointerx - x->x_obj.te_xpix)*xscale;
- if (dur < x->duration[x->w.grabbed-1])
- dur = x->duration[x->w.grabbed-1];
- if (dur > x->duration[x->w.grabbed+1])
- dur = x->duration[x->w.grabbed+1];
-
- x->duration[x->w.grabbed] = dur;
- }
-
-
- x->finalvalues[x->w.grabbed] = 1.0f - (x->w.pointery - (float)x->x_obj.te_ypix)/(float)x->w.height;
- if (x->finalvalues[x->w.grabbed] < 0.0)
- x->finalvalues[x->w.grabbed]= 0.0;
- else if (x->finalvalues[x->w.grabbed] > 1.0)
- x->finalvalues[x->w.grabbed]= 1.0;
-
-}
-
-
-void envgen_motion(t_envgen *x, t_floatarg dx, t_floatarg dy)
-{
- if (x->w.shift) {
- x->w.pointerx+=dx/1000.f;
- x->w.pointery+=dy/1000.f;
- }
- else
- {
- x->w.pointerx+=dx;
- x->w.pointery+=dy;
- }
-
- if (!x->resizing)
- envgen_followpointer(x);
- else {
- if (x->w.shift) {
- x->w.width+=dx;
- x->w.height+=dy;
- }
- else
- {
- x->w.pointerx+=dx;
- x->w.pointery+=dy;
- }
- }
- envgen_shownum(x);
- envgen_update(x,x->w.glist);
-}
-
-void envgen_key(t_envgen *x, t_floatarg f)
-{
- if (f == 8.0 && x->w.grabbed < x->last_state && x->w.grabbed > 0) {
- int i;
-
- for (i=x->w.grabbed;i<=x->last_state;i++) {
- x->duration[i] = x->duration[i+1];
- x->finalvalues[i] = x->finalvalues[i+1];
- }
-
- x->last_state--;
- x->w.grabbed--;
- envgen_update(x,x->w.glist);
- }
-}
-
-
-
-void envgen_click(t_envgen *x,
- t_floatarg xpos, t_floatarg ypos, t_floatarg shift, t_floatarg ctrl,
- t_floatarg alt)
-{
- /* check if user wants to resize */
- float wxpos = x->x_obj.te_xpix;
- float wypos = (int) (x->x_obj.te_ypix + x->w.height);
-
- envgen_next_doodle(x,xpos,ypos);
-#if (PD_VERSION_MINOR > 31)
- glist_grab(x->w.glist, &x->x_obj.te_g, (t_glistmotionfn) envgen_motion,
- (t_glistkeyfn) envgen_key, xpos, ypos);
-#else
- glist_grab(x->w.glist, &x->x_obj.te_g, xpos, ypos);
-#endif
- x->resizing = 0;
- if (x->resizeable && (xpos > wxpos + x->w.width - 3) &&
- (fabs(ypos -2 - wypos) < 3.)) {
- x->resizing = 1;
- return;
- }
-
- x->w.shift = shift;
- envgen_followpointer(x);
- envgen_shownum(x);
- envgen_update(x,x->w.glist);
-}
-
-
-#if (PD_VERSION_MINOR > 31)
-static int envgen_newclick(t_gobj *z, struct _glist *glist,
- int xpix, int ypix, int shift, int alt, int dbl, int doit)
-{
- if (doit)
- envgen_click((t_envgen *)z, (t_floatarg)xpix, (t_floatarg)ypix,
- (t_floatarg)shift, 0, (t_floatarg)alt);
- return (1);
-}
-#endif
-
-
-
-t_widgetbehavior envgen_widgetbehavior;
-
-void envgen_setwidget(void)
-{
- envgen_widgetbehavior.w_getrectfn = envgen_getrect;
- envgen_widgetbehavior.w_displacefn = envgen_displace;
- envgen_widgetbehavior.w_selectfn = envgen_select;
- envgen_widgetbehavior.w_activatefn = envgen_activate;
- envgen_widgetbehavior.w_deletefn = envgen_delete;
- envgen_widgetbehavior.w_visfn = envgen_vis;
-#if (PD_VERSION_MINOR > 31)
- envgen_widgetbehavior.w_clickfn = envgen_newclick;
- envgen_widgetbehavior.w_propertiesfn = NULL;
-#endif
- envgen_widgetbehavior.w_savefn = envgen_save;
-
-}
-
+#include <stdio.h>
+#include <string.h>
+#include <math.h>
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#define abs fabs
+#endif
+
+#define PD_VERSION_MINOR 32
+#define BACKGROUNDCOLOR "grey"
+#define BORDER 2
+
+#if 0 /* backwards compatiblity */
+#define text_xpix(a,b) a.te_xpos
+#define text_ypix(a,b) a.te_ypos
+#endif
+
+static void draw_inlets(t_envgen *x, t_glist *glist, int firsttime, int nin, int nout)
+{
+ int n = nout;
+ int nplus, i;
+ nplus = (n == 1 ? 1 : n-1);
+ for (i = 0; i < n; i++)
+ {
+ int onset = x->x_obj.te_xpix + (x->w.width-2*BORDER) * 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->w.height - 1 + 2*BORDER,
+ onset + IOWIDTH, x->x_obj.te_ypix + x->w.height + 2*BORDER,
+ 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->w.height - 1 + 2*BORDER,
+ onset + IOWIDTH, x->x_obj.te_ypix + x->w.height + 2*BORDER);
+ }
+ n = nin;
+ nplus = (n == 1 ? 1 : n-1);
+ for (i = 0; i < n; i++)
+ {
+ int onset = x->x_obj.te_xpix + (x->w.width - IOWIDTH) * i / nplus - BORDER;
+ 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 - BORDER,
+ onset + IOWIDTH, x->x_obj.te_ypix + 1 - BORDER,
+ 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 - BORDER,
+ onset + IOWIDTH, x->x_obj.te_ypix + 1 - BORDER);
+
+ }
+}
+
+
+
+static int envgen_next_doodle(t_envgen *x, int xpos,int ypos)
+{
+ int ret = -1;
+ float xscale,yscale;
+ int dxpos,dypos;
+ float minval = 100000.0;
+ float tval;
+ int i;
+ int insertpos = -1;
+
+ if (xpos > x->x_obj.te_xpix + x->w.width) xpos = x->x_obj.te_xpix + x->w.width;
+
+ xscale = x->w.width/x->duration[x->last_state];
+ yscale = x->w.height;
+
+ dxpos = x->x_obj.te_xpix;/* + BORDER */;
+ dypos = x->x_obj.te_ypix + BORDER;
+
+ for (i=0;i<=x->last_state;i++) {
+ float dx2 = (dxpos + (x->duration[i] * xscale)) - xpos;
+ float dy2 = (dypos + yscale - (x->finalvalues[i] * yscale)) - ypos;
+
+ dx2*=dx2;
+ dy2*=dy2;
+ tval = sqrt(dx2+dy2);
+
+ if (tval <= minval) {
+ minval = tval;
+ insertpos = i;
+ }
+ }
+
+ /* decide if we want to make a new one */
+ if (minval > /*5*/ 8 && insertpos >= 0 && !x->x_freeze) {
+
+ while (((dxpos + (x->duration[insertpos] * xscale)) - xpos) < 0)
+ insertpos++;
+ while (((dxpos + (x->duration[insertpos-1] * xscale)) - xpos) > 0)
+ insertpos--;
+
+ if (x->last_state+1 >= x->args)
+ envgen_resize(x,x->args+1);
+
+ for (i=x->last_state;i>=insertpos;i--) {
+ x->duration[i+1] = x->duration[i];
+ x->finalvalues[i+1] = x->finalvalues[i];
+ }
+ x->duration[insertpos] = (float)(xpos-dxpos)/x->w.width*x->duration[x->last_state++];
+ x->w.pointerx = xpos;
+ x->w.pointery = ypos;
+ }
+ else {
+ x->w.pointerx = x->x_obj.te_xpix + x->duration[insertpos]*x->w.width/x->duration[x->last_state];
+
+
+ x->w.pointery = x->x_obj.te_ypix +
+ (1.f - x->finalvalues[insertpos])*x->w.height;
+ }
+
+ x->w.grabbed = insertpos;
+ return insertpos;
+}
+
+static void envgen_create_doodles(t_envgen *x, t_glist *glist)
+{
+ float xscale,yscale;
+ int xpos,ypos;
+ int i;
+ char guistr[255];
+
+ xscale = x->w.width/x->duration[x->last_state];
+ yscale = x->w.height;
+
+ xpos = x->x_obj.te_xpix;
+ ypos = (int) (x->x_obj.te_ypix + x->w.height);
+ for (i=0;i<=x->last_state;i++) {
+ sprintf(guistr,".x%x.c create oval %d %d %d %d -tags %xD%d",(unsigned int)glist_getcanvas(glist),
+ (int) (xpos+(x->duration[i] * xscale) - 2),
+ (int) (ypos - x->finalvalues[i]*yscale - 2),
+ (int) (xpos+(x->duration[i] * xscale)+2),
+ (int) (ypos - x->finalvalues[i]*yscale + 2),
+ (unsigned int)x,i);
+
+ if (i == x->w.grabbed) strcat(guistr," -fill red\n");
+ else strcat(guistr,"\n");
+ sys_vgui("%s",guistr);
+ }
+ x->w.numdoodles = i;
+}
+
+
+static void envgen_delete_doodles(t_envgen *x, t_glist *glist)
+{
+ int i;
+ for (i=0;i<=x->w.numdoodles;i++) {
+ sys_vgui(".x%x.c delete %xD%d\n",glist_getcanvas(glist),x,i);
+ }
+}
+
+static void envgen_update_doodles(t_envgen *x, t_glist *glist)
+{
+
+ envgen_delete_doodles(x,glist);
+/* LATER only create new doodles if necessary */
+ envgen_create_doodles(x, glist);
+}
+
+
+static void envgen_delnum(t_envgen *x)
+{
+ sys_vgui(".x%x.c delete %xT\n",glist_getcanvas(x->w.glist),x);
+}
+
+
+static void envgen_shownum(t_envgen *x)
+{
+ float xscale,yscale;
+ int xpos,ypos;
+ int i= x->w.grabbed;
+
+ xscale = x->w.width/x->duration[x->last_state];
+ yscale = x->w.height;
+
+ xpos = x->x_obj.te_xpix;
+ ypos = (int) (x->x_obj.te_ypix + x->w.height);
+
+ envgen_delnum(x);
+
+ sys_vgui(".x%x.c create text %d %d -text %fx%f -tags %xT\n",
+ (unsigned int)glist_getcanvas(x->w.glist),
+
+ (int) (xpos+(x->duration[i] * xscale) + 12),
+ (int) (ypos - x->finalvalues[i]*yscale - 2),
+
+ x->finalvalues[i]*(x->max-x->min),
+ x->duration[i],
+ (unsigned int)x);
+ clock_delay(x->w.numclock,700);
+}
+
+
+
+static void envgen_create(t_envgen *x, t_glist *glist)
+{
+ int i;
+ static char buf[1024];
+ float xscale,yscale;
+ int xpos,ypos;
+ char num[40];
+
+ x->w.numclock = clock_new(x, (t_method) envgen_delnum);
+ sys_vgui(".x%x.c create rectangle \
+%d %d %d %d -tags %xS -fill "BACKGROUNDCOLOR"\n",
+ glist_getcanvas(glist),
+ x->x_obj.te_xpix-BORDER, x->x_obj.te_ypix-BORDER,
+ x->x_obj.te_xpix + x->w.width+2*BORDER, x->x_obj.te_ypix + x->w.height+2*BORDER,
+ x);
+
+ xscale = x->w.width/x->duration[x->last_state];
+ yscale = x->w.height;
+
+ sprintf(buf,".x%x.c create line",(unsigned int)glist_getcanvas(glist));
+ xpos = x->x_obj.te_xpix;
+ ypos = (int) (x->x_obj.te_ypix + x->w.height);
+ for (i=0;i<=x->last_state;i++) {
+ sprintf(num," %d %d ",(int)(xpos + x->duration[i]*xscale),
+ (int)(ypos - x->finalvalues[i]*yscale));
+ strcat(buf,num);
+ }
+
+ sprintf(num,"-tags %pP\n",x);
+ strcat(buf,num);
+ sys_vgui("%s",buf);
+ envgen_create_doodles(x,glist);
+}
+
+
+static void envgen_update(t_envgen *x, t_glist *glist)
+{
+int i;
+ static char buf[1024];
+ float xscale,yscale;
+ int xpos,ypos;
+ char num[40];
+
+ sys_vgui(".x%x.c coords %xS \
+%d %d %d %d\n",
+ glist_getcanvas(glist), x,
+ x->x_obj.te_xpix - BORDER, x->x_obj.te_ypix -BORDER,
+ x->x_obj.te_xpix + x->w.width+2*BORDER, x->x_obj.te_ypix + x->w.height+2*BORDER);
+
+
+ xscale = x->w.width/x->duration[x->last_state];
+ yscale = x->w.height;
+
+ sprintf(buf,".x%x.c coords %pP",(unsigned int)glist_getcanvas(glist),x);
+ xpos = x->x_obj.te_xpix;
+ ypos = (int) (x->x_obj.te_ypix + x->w.height);
+ for (i=0;i<=x->last_state;i++) {
+ sprintf(num," %d %d ",(int)(xpos + x->duration[i]*xscale),
+ (int) (ypos - x->finalvalues[i]*yscale));
+ strcat(buf,num);
+ }
+ strcat(buf,"\n");
+ sys_vgui("%s",buf);
+ envgen_update_doodles(x,glist);
+ draw_inlets(x, glist, 0,1,2);
+}
+
+
+
+void envgen_drawme(t_envgen *x, t_glist *glist, int firsttime)
+{
+
+ if (firsttime) envgen_create(x,glist);
+ else envgen_update(x,glist);
+
+ draw_inlets(x, glist, firsttime, 1,2);
+}
+
+
+
+
+void envgen_erase(t_envgen* x,t_glist* glist)
+{
+ int n;
+ sys_vgui(".x%x.c delete %xS\n",
+ glist_getcanvas(glist), x);
+
+ sys_vgui(".x%x.c delete %pP\n",
+ glist_getcanvas(glist), x);
+
+
+ sys_vgui(".x%x.c delete %xi0\n",glist_getcanvas(glist),x);
+ sys_vgui(".x%x.c delete %xo0\n",glist_getcanvas(glist),x);
+ sys_vgui(".x%x.c delete %xo1\n",glist_getcanvas(glist),x);
+ envgen_delete_doodles(x,glist);
+}
+
+
+
+/* ------------------------ envgen widgetbehaviour----------------------------- */
+
+
+static void envgen_getrect(t_gobj *z, t_glist *owner,
+ int *xp1, int *yp1, int *xp2, int *yp2)
+{
+ int width, height;
+ t_envgen* s = (t_envgen*)z;
+
+
+ width = s->w.width + 2*BORDER;
+ height = s->w.height + 2*BORDER;
+ *xp1 = s->x_obj.te_xpix-BORDER;
+ *yp1 = s->x_obj.te_ypix-BORDER;
+ *xp2 = s->x_obj.te_xpix + width + 4;
+ *yp2 = s->x_obj.te_ypix + height + 4;
+}
+
+static void envgen_displace(t_gobj *z, t_glist *glist,
+ int dx, int dy)
+{
+ t_envgen *x = (t_envgen *)z;
+ x->x_obj.te_xpix += dx;
+ x->x_obj.te_ypix += dy;
+
+ envgen_drawme(x, glist, 0);
+ canvas_fixlinesfor(glist_getcanvas(glist),(t_text*) x);
+}
+
+static void envgen_select(t_gobj *z, t_glist *glist, int state)
+{
+ t_envgen *x = (t_envgen *)z;
+ sys_vgui(".x%x.c itemconfigure %xS -fill %s\n", glist,
+ x, (state? "blue" : BACKGROUNDCOLOR));
+}
+
+
+static void envgen_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 envgen_delete(t_gobj *z, t_glist *glist)
+{
+ t_text *x = (t_text *)z;
+ canvas_deletelinesfor(glist_getcanvas(glist), x);
+}
+
+
+static void envgen_vis(t_gobj *z, t_glist *glist, int vis)
+{
+ t_envgen* s = (t_envgen*)z;
+ if (vis)
+ envgen_drawme(s, glist, 1);
+ else
+ envgen_erase(s,glist);
+}
+
+/* can we use the normal text save function ?? */
+
+static void envgen_save(t_gobj *z, t_binbuf *b)
+{
+ t_envgen *x = (t_envgen *)z;
+ binbuf_addv(b, "ssiisiiffss", gensym("#X"),gensym("obj"),
+ (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix,
+ gensym("envgen"),x->w.width,x->w.height,x->max,x->min,x->r_sym,x->s_sym);
+ binbuf_addv(b, ";");
+}
+
+
+
+static void envgen_followpointer(t_envgen* x)
+{
+ float dur;
+
+ float xscale = x->duration[x->last_state]/x->w.width;
+
+
+ if ((x->w.grabbed > 0) && (x->w.grabbed < x->last_state)) {
+
+ dur = (x->w.pointerx - x->x_obj.te_xpix)*xscale;
+ if (dur < x->duration[x->w.grabbed-1])
+ dur = x->duration[x->w.grabbed-1];
+ if (dur > x->duration[x->w.grabbed+1])
+ dur = x->duration[x->w.grabbed+1];
+
+ x->duration[x->w.grabbed] = dur;
+ }
+
+
+ x->finalvalues[x->w.grabbed] = 1.0f - (x->w.pointery - (float)x->x_obj.te_ypix)/(float)x->w.height;
+ if (x->finalvalues[x->w.grabbed] < 0.0)
+ x->finalvalues[x->w.grabbed]= 0.0;
+ else if (x->finalvalues[x->w.grabbed] > 1.0)
+ x->finalvalues[x->w.grabbed]= 1.0;
+
+}
+
+
+void envgen_motion(t_envgen *x, t_floatarg dx, t_floatarg dy)
+{
+ if (x->w.shift) {
+ x->w.pointerx+=dx/1000.f;
+ x->w.pointery+=dy/1000.f;
+ }
+ else
+ {
+ x->w.pointerx+=dx;
+ x->w.pointery+=dy;
+ }
+ if (!x->resizing)
+ envgen_followpointer(x);
+ else {
+ x->w.width+=dx;
+ x->w.height+=dy;
+ }
+ envgen_shownum(x);
+ envgen_update(x,x->w.glist);
+}
+
+void envgen_key(t_envgen *x, t_floatarg f)
+{
+ if (f == 8.0 && x->w.grabbed < x->last_state && x->w.grabbed > 0) {
+ int i;
+
+ for (i=x->w.grabbed;i<=x->last_state;i++) {
+ x->duration[i] = x->duration[i+1];
+ x->finalvalues[i] = x->finalvalues[i+1];
+ }
+
+ x->last_state--;
+ x->w.grabbed--;
+ envgen_update(x,x->w.glist);
+ }
+}
+
+
+
+void envgen_click(t_envgen *x,
+ t_floatarg xpos, t_floatarg ypos, t_floatarg shift, t_floatarg ctrl,
+ t_floatarg alt)
+{
+ /* check if user wants to resize */
+ float wxpos = x->x_obj.te_xpix;
+ float wypos = (int) (x->x_obj.te_ypix + x->w.height);
+ envgen_next_doodle(x,xpos,ypos);
+#if (PD_VERSION_MINOR > 31)
+ glist_grab(x->w.glist, &x->x_obj.te_g, (t_glistmotionfn) envgen_motion,
+ (t_glistkeyfn) envgen_key, xpos, ypos);
+#else
+ glist_grab(x->w.glist, &x->x_obj.te_g, xpos, ypos);
+#endif
+ x->resizing = 0;
+ if (x->resizeable && (xpos > wxpos + x->w.width) &&
+ (ypos > wypos)) {
+ x->resizing = 1;
+ return;
+ }
+
+ x->w.shift = shift;
+ envgen_followpointer(x);
+ envgen_shownum(x);
+ envgen_update(x,x->w.glist);
+}
+
+
+#if (PD_VERSION_MINOR > 31)
+static int envgen_newclick(t_gobj *z, struct _glist *glist,
+ int xpix, int ypix, int shift, int alt, int dbl, int doit)
+{
+ if (doit)
+ envgen_click((t_envgen *)z, (t_floatarg)xpix, (t_floatarg)ypix,
+ (t_floatarg)shift, 0, (t_floatarg)alt);
+ return (1);
+}
+#endif
+
+
+
+t_widgetbehavior envgen_widgetbehavior;
+
+void envgen_setwidget(void)
+{
+ envgen_widgetbehavior.w_getrectfn = envgen_getrect;
+ envgen_widgetbehavior.w_displacefn = envgen_displace;
+ envgen_widgetbehavior.w_selectfn = envgen_select;
+ envgen_widgetbehavior.w_activatefn = envgen_activate;
+ envgen_widgetbehavior.w_deletefn = envgen_delete;
+ envgen_widgetbehavior.w_visfn = envgen_vis;
+#if (PD_VERSION_MINOR > 31)
+ envgen_widgetbehavior.w_clickfn = envgen_newclick;
+ envgen_widgetbehavior.w_propertiesfn = NULL;
+#endif
+ envgen_widgetbehavior.w_savefn = envgen_save;
+
+}
+
generated by cgit v1.2.1 (git 2.18.0) at 2025-01-10 23:12:13 +0000