aboutsummaryrefslogtreecommitdiff
path: root/polystat/polystat.c
diff options
context:
space:
mode:
Diffstat (limited to 'polystat/polystat.c')
-rwxr-xr-xpolystat/polystat.c268
1 files changed, 268 insertions, 0 deletions
diff --git a/polystat/polystat.c b/polystat/polystat.c
new file mode 100755
index 0000000..47603fb
--- /dev/null
+++ b/polystat/polystat.c
@@ -0,0 +1,268 @@
+#include "m_pd.h"
+#include <math.h>
+#include <string.h>
+#define MAXENTRIES 512
+#define LASTENTRY 511
+
+static t_class *polystat_class;
+
+typedef struct _map
+{
+ t_atom map[MAXENTRIES];
+ t_atom maxlist[MAXENTRIES];
+ t_atom outlist[MAXENTRIES];
+} t_map;
+
+typedef struct _polystat
+{
+ t_object x_obj;
+ t_map x_map;
+ t_int voices, max, maxval, maxindex, maxflag, maxcount, highest, mode;
+ t_outlet *voice, *value, *vars, *maxvox, *mapped;
+} t_polystat;
+
+void polystat_float(t_polystat *x, t_floatarg fin)
+{
+ int voice = (int)fin;
+ int inst;
+ int maxindex = (int)x->maxindex + 1;
+ if(voice >= 0 && voice < MAXENTRIES)
+ {
+ int instances = atom_getfloatarg(voice, MAXENTRIES, x->x_map.map);
+ if(instances == 0)x->voices++;
+ inst = instances + 1;
+ SETFLOAT(&x->x_map.map[voice], inst);
+ if(x->mode == 0)
+ {
+ if(inst >= x->max && voice != x->maxval)
+ {
+ x->maxflag = x->maxcount >= MAXENTRIES ? 1 : x->maxflag == 1 ? 1 : 0;
+ x->maxcount += 1;
+ x->maxcount = x->maxcount > MAXENTRIES ? MAXENTRIES : x->maxcount;
+ x->maxindex = maxindex % MAXENTRIES;
+ SETFLOAT(&x->x_map.maxlist[x->maxindex], voice);
+ x->maxval = voice;
+ x->max = inst;
+ outlet_float(x->maxvox, voice);
+ }
+ else if(inst >= x->max && voice == x->maxval)
+ {
+ x->max = inst;
+ outlet_float(x->maxvox, voice);
+ }
+ }
+ else if(x->mode != 0)
+ {
+ if(inst > x->max && voice != x->maxval)
+ {
+ x->maxflag = x->maxcount >= MAXENTRIES ? 1 : x->maxflag == 1 ? 1 : 0;
+ x->maxcount += 1;
+ x->maxcount = x->maxcount > MAXENTRIES ? MAXENTRIES : x->maxcount;
+ x->maxindex = (float)(maxindex % MAXENTRIES);
+ SETFLOAT(&x->x_map.maxlist[x->maxindex], voice);
+ x->maxval = voice;
+ x->max = inst;
+ outlet_float(x->maxvox, voice);
+ }
+ else if(inst > x->max && voice == x->maxval)
+ {
+ x->max = inst;
+ outlet_float(x->maxvox, voice);
+ }
+ }
+ x->highest = voice > x->highest ? voice : x->highest;
+ outlet_float(x->vars, x->voices);
+ outlet_float(x->value, inst);
+ outlet_float(x->voice, voice);
+ }
+}
+
+void polystat_clear(t_polystat *x, t_floatarg fin)
+{
+ int inst = (int)fin;
+ int indexed = (int)(x->maxindex+(MAXENTRIES*x->maxflag));
+ int modindex = 0;
+ int counted = 0;
+ float current = atom_getfloatarg(inst, MAXENTRIES, x->x_map.map);
+ float voice;
+ voice = 0;
+ if(x->voices > 0 && current > 0)
+ {
+ x->voices--;
+ SETFLOAT(&x->x_map.map[inst], 0);
+ current = 0;
+ if(current == 0 && x->maxcount > 0)
+ {
+ indexed--;
+ x->maxcount--;
+ modindex = (indexed+MAXENTRIES) % MAXENTRIES;
+ voice = atom_getfloatarg(modindex, MAXENTRIES, x->x_map.maxlist);
+ current = atom_getfloatarg(voice, MAXENTRIES, x->x_map.map);
+ }
+ if(x->maxcount == 0 || current == 0)
+ {
+ x->max = 0;
+ x->maxval = 0;
+ x->maxindex = 0;
+ }
+ else if(x->maxcount > 0 || current > 0)
+ {
+ x->max = current;
+ x->maxval = voice;
+ x->maxindex = modindex;
+ }
+ }
+ outlet_float(x->maxvox, x->maxval);
+ outlet_float(x->vars, x->voices);
+ outlet_float(x->value, x->max);
+}
+
+void polystat_print(t_polystat *x, t_symbol *s)
+{
+ post("most_instances = %d at voice %d, voices = %d, highest_voice = %d", x->max, x->maxval, x->voices, x->highest);
+}
+
+void polystat_get(t_polystat *x, t_floatarg fin)
+{
+ int inst = (int)fin;
+ float voice, instances;
+ voice = instances = 0;
+ if(x->voices>0 && inst>=0 && inst<MAXENTRIES)
+ {
+ instances = atom_getfloatarg(inst, MAXENTRIES, x->x_map.map);
+ voice = inst;
+ }
+ if(instances>0)
+ {
+ outlet_float(x->value, instances);
+ outlet_float(x->voice, voice);
+ }
+}
+
+void polystat_clearall(t_polystat *x)
+{
+ int i;
+ for(i=0;i<MAXENTRIES;i++)
+ {
+ SETFLOAT(&x->x_map.map[i],0);
+ SETFLOAT(&x->x_map.maxlist[i],0);
+ }
+ x->voices = x->max = x->maxval = x->maxindex = x->highest = x->maxcount = 0;
+ outlet_float(x->vars, x->voices);
+}
+
+void polystat_getmap(t_polystat *x, t_symbol *s) //output map. terminate map at highest voice.
+{
+ if(x->voices>0)
+ {
+ outlet_list(x->mapped, gensym("list"), x->highest+1, x->x_map.map);
+ }
+}
+
+void polystat_setmap(t_polystat *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int i;
+ float arg, max, maxval, high;
+ max = maxval = high = 0;
+ for(i=0;i<argc;i++)
+ {
+ arg = atom_getfloat(argv+i);
+ if(arg != 0)
+ {
+ if(x->mode==0)
+ {
+ if(arg>=maxval)
+ {
+ maxval = arg;
+ max = i;
+ }
+ }
+ else if(x->mode!=0)
+ {
+ if(arg>maxval)
+ {
+ maxval = arg;
+ max = i;
+ }
+ }
+ x->highest = i;
+ SETFLOAT(&x->x_map.map[i], arg);
+ SETFLOAT(&x->x_map.maxlist[i], 0);
+ }
+ }
+ x->max = max;
+ x->maxval = maxval;
+ SETFLOAT(&x->x_map.maxlist[0], max);
+}
+
+void polystat_bang(t_polystat *x, t_symbol *s)
+{
+ outlet_float(x->vars, x->voices);
+ outlet_float(x->value, x->maxval);
+ outlet_float(x->voice, x->max);
+}
+
+void polystat_voices(t_polystat *x, t_symbol *s) //list all voices
+{
+ int i, mindex, current;
+ mindex=0;
+ for(i=0;i<(x->highest+1);i++)
+ {
+ current = atom_getfloatarg(i, MAXENTRIES, x->x_map.map);
+ if(current>0)
+ {
+ SETFLOAT(&x->x_map.outlist[mindex],(float)i);
+ mindex++;
+ }
+ }
+ outlet_list(x->mapped, gensym("list"), x->voices, x->x_map.outlist);
+}
+
+void polystat_mode(t_polystat *x, t_floatarg fmode)
+{
+ x->mode = fmode;
+}
+
+void *polystat_new(t_floatarg f)
+{
+ t_polystat *x = (t_polystat *)pd_new(polystat_class);
+ x->mode = f;
+ x->max = x->maxval = x->voices = x->maxindex = x->maxcount = x->highest = 0;
+ //memset(x->x_map.map, 0, MAXENTRIES);
+ //memset(x->x_map.nomap, 1, MAXENTRIES);
+ int i;
+ for(i=0;i<MAXENTRIES;i++)
+ {
+ SETFLOAT(x->x_map.map+i, 0);
+ SETFLOAT(x->x_map.maxlist+i, 0);
+ }
+ x->voice = outlet_new(&x->x_obj, &s_float);
+ x->value = outlet_new(&x->x_obj, &s_float);
+ x->vars = outlet_new(&x->x_obj, &s_float);
+ x->maxvox = outlet_new(&x->x_obj, &s_float);
+ x->mapped = outlet_new(&x->x_obj, &s_list);
+ return (void *)x;
+}
+
+void polystat_setup(void)
+{
+
+ polystat_class = class_new(gensym("polystat"),
+ (t_newmethod)polystat_new,
+ 0, sizeof(t_polystat),
+ 0, A_DEFFLOAT, 0);
+ post("|^^^^^^^^^^^^polystat^^^^^^^^^^^^|");
+ post("|->^^^^polyphony statistics^^^^<-|");
+ post("|^^^^^^^^Edward Kelly 2006^^^^^^^|");
+ class_sethelpsymbol(polystat_class, gensym("help-polystat"));
+ class_addfloat(polystat_class, polystat_float);
+ class_addmethod(polystat_class, (t_method)polystat_clear, gensym("clear"), A_DEFFLOAT, 0);
+ class_addmethod(polystat_class, (t_method)polystat_get, gensym("get"), A_DEFFLOAT, 0);
+ class_addmethod(polystat_class, (t_method)polystat_clearall, gensym("clearall"), A_DEFFLOAT, 0);
+ class_addmethod(polystat_class, (t_method)polystat_getmap, gensym("getmap"), A_DEFFLOAT, 0);
+ class_addmethod(polystat_class, (t_method)polystat_setmap, gensym("setmap"), A_GIMME, 0);
+ class_addmethod(polystat_class, (t_method)polystat_voices, gensym("voices"), A_DEFFLOAT, 0);
+ class_addmethod(polystat_class, (t_method)polystat_mode, gensym("mode"), A_DEFFLOAT, 0);
+ class_addmethod(polystat_class, (t_method)polystat_print, gensym("print"), A_DEFFLOAT, 0);
+ class_addbang(polystat_class, (t_method)polystat_bang);
+}