From c750da3cf5c688e37a4d54724074b38d4cb484e6 Mon Sep 17 00:00:00 2001 From: Ed Kelly Date: Mon, 24 Sep 2007 15:12:13 +0000 Subject: *** empty log message *** svn path=/trunk/externals/ekext/; revision=8753 --- maskxor/maskxor-old.c | 210 ------------------------------------ maskxor/workingsorta.c | 209 ------------------------------------ valve/sieve.c | 285 ------------------------------------------------- 3 files changed, 704 deletions(-) delete mode 100644 maskxor/maskxor-old.c delete mode 100644 maskxor/workingsorta.c delete mode 100644 valve/sieve.c diff --git a/maskxor/maskxor-old.c b/maskxor/maskxor-old.c deleted file mode 100644 index f94e8e1..0000000 --- a/maskxor/maskxor-old.c +++ /dev/null @@ -1,210 +0,0 @@ -#include "m_pd.h" -#include -#define MAXENTRIES 512 - -static t_class *maskxor_class; - -typedef struct _mask -{ - t_atom maskxor[MAXENTRIES]; - t_atom maskl[MAXENTRIES]; - t_atom maskr[MAXENTRIES]; -} t_mask; - -typedef struct _maskxor -{ - t_object x_obj; - t_mask masking; - t_float total, suml, sumr, mode, lengthr; - t_float f_in, yes; - t_outlet *thru, *bool, *mask; -} t_maskxor; - -void maskxor_float(t_maskxor *x, t_floatarg fin) -{ - int input = fin > 0 ? fin < MAXENTRIES ? (int)fin : MAXENTRIES : 0; - if(x->mode == 0) - { - x->f_in = fin; - x->yes = atom_getfloatarg(input, MAXENTRIES, x->masking.maskxor); - outlet_float(x->bool, x->yes); - if(x->yes != 0) - { - outlet_float(x->thru, x->f_in); - } - } - else if(x->sumr>x->suml) - { - x->f_in = fin; - x->yes = atom_getfloatarg(input, MAXENTRIES, x->masking.maskxor); - outlet_float(x->bool, x->yes); - if(x->yes != 0) - { - outlet_float(x->thru, x->f_in); - } - } -} - -void maskxor_bang(t_maskxor *x, t_symbol *s) -{ - outlet_list(x->mask, &s_list, x->total, x->masking.maskxor); - outlet_float(x->bool, x->yes); - if(x->yes != 0) - { - outlet_float(x->thru, x->f_in); - } -} - -void maskxor_listl(t_maskxor *x, t_symbol *s, int argc, t_atom *argv) -{ - int i; - x->suml = 0; - float listr_element, listl_element, xor_element; - if(x->total < argc && argc < MAXENTRIES) - { - x->total = argc; - } - if((float)argc < x->lengthr) - { - for(i=argc;ilengthr;i++) SETFLOAT(&x->masking.maskl[i], 0); - } - for(i=0;itotal;i++) - { - listl_element = atom_getfloat(argv+i); - SETFLOAT(&x->masking.maskl[i], listl_element); - if(listl_element != 0) - { - x->suml++; - } - if(i>=x->lengthr) - { - listr_element = 0; - } - else - { - listr_element = atom_getfloatarg(i,MAXENTRIES,x->masking.maskr); - } - xor_element = (float)((int)listl_element ^ (int)listr_element); - SETFLOAT(&x->masking.maskxor[i], xor_element); - } - outlet_list(x->mask, &s_list, x->total, x->masking.maskxor); -} - -void maskxor_listr(t_maskxor *x, t_symbol *s, int argc, t_atom *argv) -{ - int i; - x->sumr = 0; - x->lengthr = (float)argc; - float listr_element; - if(x->total < argc && argc < MAXENTRIES) - { - x->total = argc; - } - for(i=0;itotal;i++) - { - if(i>=argc) - { - listr_element = 0; - } - else listr_element = atom_getfloat(argv+i); - SETFLOAT(&x->masking.maskr[i], listr_element); - if(listr_element != 0) - { - x->sumr++; - } - } -} - -void maskxor_mode(t_maskxor *x, t_symbol *s, t_floatarg fmode) -{ - x->mode = fmode; - // post("mode = %d", x->mode); - post("mode = %d", fmode); -} - -void maskxor_clear(t_maskxor *x) -{ - int i; - for(i=0;i<=MAXENTRIES;i++) - { - SETFLOAT(&x->masking.maskl[i], 0); - SETFLOAT(&x->masking.maskr[i], 0); - SETFLOAT(&x->masking.maskxor[i], 0); - } - x->total=1; - x->yes = x->f_in = 0; -} - -void maskxor_print(t_maskxor *x) -{ - float le0, le1, le2, le3, le4, le5, le6, le7, le8; - float re0, re1, re2, re3, re4, re5, re6, re7, re8; - float xe0, xe1, xe2, xe3, xe4, xe5, xe6, xe7, xe8; - le0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskl); - le1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskl); - le2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskl); - le3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskl); - le4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskl); - le5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskl); - le6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskl); - le7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskl); - le8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskl); - re0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskr); - re1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskr); - re2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskr); - re3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskr); - re4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskr); - re5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskr); - re6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskr); - re7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskr); - re8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskr); - xe0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskxor); - xe1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskxor); - xe2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskxor); - xe3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskxor); - xe4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskxor); - xe5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskxor); - xe6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskxor); - xe7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskxor); - xe8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskxor); - post("right mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", re0, re1, re2, re3, re4, re5, re6, re7, re8); - post(" left mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", le0, le1, le2, le3, le4, le5, le6, le7, le8); - post(" xor mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", xe0, xe1, xe2, xe3, xe4, xe5, xe6, xe7, xe8); -} - -void *maskxor_new(t_symbol *s, t_floatarg fmode) -{ - int i; - t_maskxor *x = (t_maskxor *)pd_new(maskxor_class); - x->total = 1; - x->mode = fmode != 0 ? 1 : 0; - for(i=0;imasking.maskr[i], 0); - SETFLOAT(&x->masking.maskl[i], 0); - SETFLOAT(&x->masking.maskxor[i], 0); - } - x->thru = outlet_new(&x->x_obj, &s_float); - x->bool = outlet_new(&x->x_obj, &s_float); - x->mask = outlet_new(&x->x_obj, &s_list); - return (void *)x; -} - -void maskxor_setup(void) -{ - maskxor_class = class_new(gensym("maskxor"), - (t_newmethod)maskxor_new, - 0, sizeof(t_maskxor), - CLASS_DEFAULT, A_DEFFLOAT, 0); - post("|..-.--.-..-maskxor.-...--.-..|"); - post("| exclusive-or mask-map |"); - post("|.--.- Edward Kelly 2006 ---.-|"); - class_sethelpsymbol(maskxor_class, gensym("help-maskxor")); - class_addfloat(maskxor_class, maskxor_float); - class_addmethod(maskxor_class, (t_method)maskxor_listl, gensym("listl"), A_GIMME, 0, 0); - class_addmethod(maskxor_class, (t_method)maskxor_listr, gensym("listr"), A_GIMME, 0, 0); - class_addbang(maskxor_class, (t_method)maskxor_bang); - class_addmethod(maskxor_class, (t_method)maskxor_mode, gensym("mode"), A_DEFFLOAT, 0); - class_addmethod(maskxor_class, (t_method)maskxor_clear, gensym("clear"), A_DEFFLOAT, 0); - class_addmethod(maskxor_class, (t_method)maskxor_print, gensym("print"), A_DEFFLOAT, 0); -} diff --git a/maskxor/workingsorta.c b/maskxor/workingsorta.c deleted file mode 100644 index 8c40de3..0000000 --- a/maskxor/workingsorta.c +++ /dev/null @@ -1,209 +0,0 @@ -#include "m_pd.h" -#include -#define MAXENTRIES 512 - -static t_class *maskxor_class; - -typedef struct _mask -{ - t_atom maskxor[MAXENTRIES]; - t_atom maskl[MAXENTRIES]; - t_atom maskr[MAXENTRIES]; -} t_mask; - -typedef struct _maskxor -{ - t_object x_obj; - t_mask masking; - t_float total, suml, sumr, mode, lengthr; - t_float f_in, yes; - t_outlet *thru, *bool, *mask; -} t_maskxor; - -void maskxor_float(t_maskxor *x, t_floatarg fin) -{ - int input = fin > 0 ? fin < MAXENTRIES ? (int)fin : MAXENTRIES : 0; - if(x->mode == 0) - { - x->f_in = fin; - x->yes = atom_getfloatarg(input, MAXENTRIES, x->masking.maskxor); - outlet_float(x->bool, x->yes); - if(x->yes != 0) - { - outlet_float(x->thru, x->f_in); - } - } - else if(x->sumr>x->suml) - { - x->f_in = fin; - x->yes = atom_getfloatarg(input, MAXENTRIES, x->masking.maskxor); - outlet_float(x->bool, x->yes); - if(x->yes != 0) - { - outlet_float(x->thru, x->f_in); - } - } -} - -void maskxor_bang(t_maskxor *x, t_symbol *s) -{ - outlet_list(x->mask, &s_list, x->total, x->masking.maskxor); - outlet_float(x->bool, x->yes); - if(x->yes != 0) - { - outlet_float(x->thru, x->f_in); - } -} - -void maskxor_listl(t_maskxor *x, t_symbol *s, int argc, t_atom *argv) -{ - int i; - x->suml = 0; - float listr_element, listl_element, xor_element; - if(x->total < argc && argc < MAXENTRIES) - { - x->total = argc; - } - if((float)argc < x->lengthr) - { - for(i=argc;ilengthr;i++) SETFLOAT(&x->masking.maskl[i], 0); - } - for(i=0;itotal;i++) - { - listl_element = atom_getfloat(argv+i); - SETFLOAT(&x->masking.maskl[i], listl_element); - if(listl_element != 0) - { - x->suml++; - } - if(i>=x->lengthr) - { - listr_element = 0; - } - else - { - listr_element = atom_getfloatarg(i,MAXENTRIES,x->masking.maskr); - } - xor_element = (float)((int)listl_element ^ (int)listr_element); - SETFLOAT(&x->masking.maskxor[i], xor_element); - } - outlet_list(x->mask, &s_list, x->total, x->masking.maskxor); -} - -void maskxor_listr(t_maskxor *x, t_symbol *s, int argc, t_atom *argv) -{ - int i; - x->sumr = 0; - x->lengthr = (float)argc; - float listr_element; - if(x->total < argc && argc < MAXENTRIES) - { - x->total = argc; - } - for(i=0;itotal;i++) - { - if(i>=argc) - { - listr_element = 0; - } - else listr_element = atom_getfloat(argv+i); - SETFLOAT(&x->masking.maskr[i], listr_element); - if(listr_element != 0) - { - x->sumr++; - } - } -} - -void maskxor_mode(t_maskxor *x, t_floatarg fmode) -{ - x->mode = fmode != 0 ? 1 : 0; - post("mode = %d", fmode); -} - -void maskxor_clear(t_maskxor *x) -{ - int i; - for(i=0;i<=MAXENTRIES;i++) - { - SETFLOAT(&x->masking.maskl[i], 0); - SETFLOAT(&x->masking.maskr[i], 0); - SETFLOAT(&x->masking.maskxor[i], 0); - } - x->total=1; - x->yes = x->f_in = 0; -} - -void maskxor_print(t_maskxor *x) -{ - float le0, le1, le2, le3, le4, le5, le6, le7, le8; - float re0, re1, re2, re3, re4, re5, re6, re7, re8; - float xe0, xe1, xe2, xe3, xe4, xe5, xe6, xe7, xe8; - le0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskl); - le1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskl); - le2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskl); - le3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskl); - le4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskl); - le5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskl); - le6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskl); - le7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskl); - le8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskl); - re0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskr); - re1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskr); - re2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskr); - re3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskr); - re4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskr); - re5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskr); - re6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskr); - re7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskr); - re8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskr); - xe0 = atom_getfloatarg(0, MAXENTRIES, x->masking.maskxor); - xe1 = atom_getfloatarg(1, MAXENTRIES, x->masking.maskxor); - xe2 = atom_getfloatarg(2, MAXENTRIES, x->masking.maskxor); - xe3 = atom_getfloatarg(3, MAXENTRIES, x->masking.maskxor); - xe4 = atom_getfloatarg(4, MAXENTRIES, x->masking.maskxor); - xe5 = atom_getfloatarg(5, MAXENTRIES, x->masking.maskxor); - xe6 = atom_getfloatarg(6, MAXENTRIES, x->masking.maskxor); - xe7 = atom_getfloatarg(7, MAXENTRIES, x->masking.maskxor); - xe8 = atom_getfloatarg(8, MAXENTRIES, x->masking.maskxor); - post("right mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", re0, re1, re2, re3, re4, re5, re6, re7, re8); - post(" left mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", le0, le1, le2, le3, le4, le5, le6, le7, le8); - post(" xor mask = %d, %d, %d, %d, %d, %d, %d, %d, %d", xe0, xe1, xe2, xe3, xe4, xe5, xe6, xe7, xe8); -} - -void *maskxor_new(t_symbol *s, t_floatarg fmode) -{ - int i; - t_maskxor *x = (t_maskxor *)pd_new(maskxor_class); - x->total = 1; - x->mode = fmode == 1 ? 1 : 0; - for(i=0;imasking.maskr[i], 0); - SETFLOAT(&x->masking.maskl[i], 0); - SETFLOAT(&x->masking.maskxor[i], 0); - } - x->thru = outlet_new(&x->x_obj, &s_float); - x->bool = outlet_new(&x->x_obj, &s_float); - x->mask = outlet_new(&x->x_obj, &s_list); - return (void *)x; -} - -void maskxor_setup(void) -{ - maskxor_class = class_new(gensym("maskxor"), - (t_newmethod)maskxor_new, - 0, sizeof(t_maskxor), - CLASS_DEFAULT, A_DEFFLOAT, 0); - post("|..-.--.-..-maskxor.-...--.-..|"); - post("| exclusive-or mask-map |"); - post("|.--.- Edward Kelly 2006 ---.-|"); - class_sethelpsymbol(maskxor_class, gensym("help-maskxor")); - class_addfloat(maskxor_class, maskxor_float); - class_addmethod(maskxor_class, (t_method)maskxor_listl, gensym("listl"), A_GIMME, 0, 0); - class_addmethod(maskxor_class, (t_method)maskxor_listr, gensym("listr"), A_GIMME, 0, 0); - class_addbang(maskxor_class, (t_method)maskxor_bang); - class_addmethod(maskxor_class, (t_method)maskxor_mode, gensym("mode"), A_DEFFLOAT, 0); - class_addmethod(maskxor_class, (t_method)maskxor_clear, gensym("clear"), A_DEFFLOAT, 0); - class_addmethod(maskxor_class, (t_method)maskxor_print, gensym("print"), A_DEFFLOAT, 0); -} diff --git a/valve/sieve.c b/valve/sieve.c deleted file mode 100644 index cd6c7d5..0000000 --- a/valve/sieve.c +++ /dev/null @@ -1,285 +0,0 @@ -/* takes a map like 0 1 3 4 7 and only returns the number if it is present */ -/* in the map, or returns the closest, or the next up or down (wrapped)*/ -#include "m_pd.h" -#include -#include -#define MAXENTRIES 512 -#define LASTENTRY 511 - -static t_class *sieve_class; - -/* mode = 0 : block when absent, 1: nearest when absent, 2: shunt when absent */ -typedef struct _map -{ - t_atom map[MAXENTRIES]; - t_atom nomap[MAXENTRIES]; -} t_map; - -typedef struct _sieve -{ - t_object x_obj; - t_map x_map; - t_float input, mode, max, outmap; - t_outlet *mapped, *value, *mapout, *inst; -} t_sieve; - -void sieve_float(t_sieve *x, t_floatarg fin) -{ - int i, ip, in, arg, arga, argb, argaout, argbout, argxa, argxb, itest, itesta, itestb, iresult; - itest = itesta = itestb = iresult = arga = argb = arg = 0; - float test, testa, testb, fresult; - test = testa = testb = fresult = 0; - x->input = arg = fin;// < 0 ? 0 : fin > LASTENTRY ? LASTENTRY : (int)fin; - if (x->mode == 0) - { - test = fin < 0 ? 0 : atom_getfloatarg(arg, MAXENTRIES, x->x_map.map); - if(test!=0) - { - outlet_bang(x->inst); - outlet_float(x->value, test); - outlet_float(x->mapped, arg); - } - } - else if (x->mode == 1) - { - test = fin < 0 ? 0 : atom_getfloatarg(arg, MAXENTRIES, x->x_map.map); - if(test!=0) - { - outlet_bang(x->inst); - outlet_float(x->value, test); - outlet_float(x->mapped, arg); - } - else - { - arga = argb = arg; - while(itest == 0 && (arga > -1 || argb < MAXENTRIES)) - { - arga--; - argb++; - argxa = arga >= 0 ? arga : 0; - argxb = argb <= LASTENTRY ? argb : LASTENTRY; - testa = atom_getfloatarg(argxa, MAXENTRIES, x->x_map.map); - testb = atom_getfloatarg(argxb, MAXENTRIES, x->x_map.map); - itesta = testa != 0 ? 1 : 0; - itestb = testb != 0 ? 1 : 0; - itest = fin < 0 ? 0 : itesta + itestb; - } - switch(itest) - { - case 2: - if (x->mode == 1) - { - outlet_float(x->value, testb); - outlet_float(x->mapped, argb); - } - else - { - outlet_float(x->value, testa); - outlet_float(x->mapped, arga); - } - case 1: - iresult = itesta == 1 ? arga : argb; - fresult = itesta == 1 ? testa : testb; - outlet_float(x->value, fresult); - outlet_float(x->mapped, iresult); - case 0: - break; - } - } - } - else if (x->mode==2) - { - itest = 0; - test = fin < 0 ? 0 : atom_getfloatarg(arg, MAXENTRIES, x->x_map.map); - if(test!=0) - { - outlet_bang(x->inst); - outlet_float(x->value, test); - outlet_float(x->mapped, arg); - } - else - { - arga = arg; - while(itest == 0 && (x->max > 0)) - { - arga = (arga + 1) <= LASTENTRY ? (arga + 1) : 0; - testa = atom_getfloatarg(arga, MAXENTRIES, x->x_map.map); - itest = testa != 0 ? 1 : 0; - } - if(x->max > 0 && fin >= 0) - { - outlet_float(x->value, testa); - outlet_float(x->mapped, arga); - } - } - } - else if (x->mode == 3) - { - itest = 0; - test = fin < 0 ? 0 : atom_getfloatarg(arg, MAXENTRIES, x->x_map.map); - if(test!=0) - { - outlet_bang(x->inst); - outlet_float(x->value, test); - outlet_float(x->mapped, arg); - } - else - { - arga = arg; - while(itest == 0 && (x->max > 0)) - { - argb = arga - 1; - arga = argb >= 0 ? argb : LASTENTRY; - testa = atom_getfloatarg(arga, MAXENTRIES, x->x_map.map); - itest = testa != 0 ? 1 : 0; - } - } - outlet_float(x->value, testa); - outlet_float(x->mapped, arga); - } -} - -void sieve_set(t_sieve *x, t_floatarg fmap, t_floatarg fval) -{ - float fvaller; - if(fmap < MAXENTRIES && fmap >= 0) - { - int imap = (int)fmap; - fvaller = fval != 0 ? 0 : 1; - SETFLOAT(&x->x_map.map[imap], fval); - SETFLOAT(&x->x_map.nomap[imap], fvaller); - x->max = fmap > x->max ? fmap : x->max; - } -} - -void sieve_get(t_sieve *x, t_floatarg inv) -{ - if(inv!=0) - { - outlet_list(x->mapout, gensym("list"), x->max+1, x->x_map.nomap); - } - else outlet_list(x->mapout, gensym("list"), x->max+1, x->x_map.map); - x->outmap = inv; -} - -void sieve_clear(t_sieve *x) -{ - //memset(x->x_map.map, 0, MAXENTRIES); - int i; - for(i=0;ix_map.map[i], 0); - SETFLOAT(&x->x_map.nomap[i], 1); - } - //memset(x->x_map.nomap, 1, MAXENTRIES); - x->max = 0; -} - -void sieve_map(t_sieve *x, t_symbol *s, int argc, t_atom *argv) -{ - //memset(x->x_map.map, 0, MAXENTRIES); - //memset(x->x_map.nomap, 1, MAXENTRIES); - int i; - for(i=0;ix_map.map+i, 0); - SETFLOAT(x->x_map.nomap+i, 1); - } - x->max = 0; - float arg; - for(i=0;ix_map.map[i], arg); - SETFLOAT(&x->x_map.nomap[i], 0); - x->max = i; - } - } - if (x->max > 0 && x->outmap == 0) - { - outlet_list(x->mapout, gensym("list"), x->max+1, x->x_map.map); - } - else if (x->max > 0 && x->outmap == 1) - { - outlet_list(x->mapout, gensym("list"), x->max+1, x->x_map.nomap); - } -} - -void sieve_mode(t_sieve *x, t_floatarg fmode) -{ - x->mode = fmode < 0 ? 0 : fmode > 3 ? 3 : fmode; -} - -void sieve_debug(t_sieve *x) -{ - float ele0, ele1, ele2, ele3, ele4, ele5, ele6, ele7, ele8, ele9; - float nle0, nle1, nle2, nle3, nle4, nle5, nle6, nle7, nle8, nle9; - ele0 = atom_getfloatarg(0, MAXENTRIES, x->x_map.map); - ele1 = atom_getfloatarg(1, MAXENTRIES, x->x_map.map); - ele2 = atom_getfloatarg(2, MAXENTRIES, x->x_map.map); - ele3 = atom_getfloatarg(3, MAXENTRIES, x->x_map.map); - ele4 = atom_getfloatarg(4, MAXENTRIES, x->x_map.map); - ele5 = atom_getfloatarg(5, MAXENTRIES, x->x_map.map); - ele6 = atom_getfloatarg(6, MAXENTRIES, x->x_map.map); - ele7 = atom_getfloatarg(7, MAXENTRIES, x->x_map.map); - ele8 = atom_getfloatarg(8, MAXENTRIES, x->x_map.map); - ele9 = atom_getfloatarg(9, MAXENTRIES, x->x_map.map); - nle0 = atom_getfloatarg(0, MAXENTRIES, x->x_map.nomap); - nle1 = atom_getfloatarg(1, MAXENTRIES, x->x_map.nomap); - nle2 = atom_getfloatarg(2, MAXENTRIES, x->x_map.nomap); - nle3 = atom_getfloatarg(3, MAXENTRIES, x->x_map.nomap); - nle4 = atom_getfloatarg(4, MAXENTRIES, x->x_map.nomap); - nle5 = atom_getfloatarg(5, MAXENTRIES, x->x_map.nomap); - nle6 = atom_getfloatarg(6, MAXENTRIES, x->x_map.nomap); - nle7 = atom_getfloatarg(7, MAXENTRIES, x->x_map.nomap); - nle8 = atom_getfloatarg(8, MAXENTRIES, x->x_map.nomap); - nle9 = atom_getfloatarg(9, MAXENTRIES, x->x_map.nomap); - /* post("blocksize = %d, scales = %d, vectorsize = %d, offset = %d", - x->N, x->scales, x->vecsize, x->offset); */ - post("mode = %d, max = %d", x->mode, x->max); - post("first 10 elements = %d, %d, %d, %d, %d, %d, %d, %d, %d, %d", ele0, ele1, ele2, ele3, ele4, ele5, ele6, ele7, ele8, ele9); - post("first 10 elements = %d, %d, %d, %d, %d, %d, %d, %d, %d, %d", nle0, nle1, nle2, nle3, nle4, nle5, nle6, nle7, nle8, nle9); -} - -void *sieve_new(t_floatarg f) -{ - t_sieve *x = (t_sieve *)pd_new(sieve_class); - x->mode = f; - x->max = 0; - x->outmap = 0; - //memset(x->x_map.map, 0, MAXENTRIES); - //memset(x->x_map.nomap, 1, MAXENTRIES); - int i; - for(i=0;ix_map.map+i, 0); - SETFLOAT(x->x_map.nomap+i, 1); - } - x->mapped = outlet_new(&x->x_obj, &s_float); - x->value = outlet_new(&x->x_obj, &s_float); - x->mapout = outlet_new(&x->x_obj, &s_list); - x->inst = outlet_new(&x->x_obj, &s_bang); - return (void *)x; -} - -void sieve_setup(void) -{ - - sieve_class = class_new(gensym("sieve"), - (t_newmethod)sieve_new, - 0, sizeof(t_sieve), - 0, A_DEFFLOAT, 0); - post("|^^^^^^^^^^^^^sieve^^^^^^^^^^^^^|"); - post("|->^^^integer map to floats^^^<-|"); - post("|^^^^^^^Edward Kelly 2006^^^^^^^|"); - class_sethelpsymbol(sieve_class, gensym("help-sieve")); - class_addfloat(sieve_class, sieve_float); - class_addmethod(sieve_class, (t_method)sieve_set, gensym("set"), A_DEFFLOAT, A_DEFFLOAT, 0); - class_addmethod(sieve_class, (t_method)sieve_map, gensym("map"), A_GIMME, 0); - class_addmethod(sieve_class, (t_method)sieve_clear, gensym("clear"), A_DEFFLOAT, 0); - class_addmethod(sieve_class, (t_method)sieve_get, gensym("get"), A_DEFFLOAT, 0); - class_addmethod(sieve_class, (t_method)sieve_mode, gensym("mode"), A_DEFFLOAT, 0); - class_addmethod(sieve_class, (t_method)sieve_debug, gensym("debug"), A_DEFFLOAT, 0); -} -- cgit v1.2.1