Pd-cvs October 2007

pd-cvs@lists.iem.at

16 participants
363 discussions

externals/gridflow hey.txt,1.1,NONE
by Mathieu Bouchard 30 Oct '07

30 Oct '07

Update of /cvsroot/pure-data/externals/gridflow In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15677/gridflow Removed Files: hey.txt Log Message: bye. --- hey.txt DELETED ---

1 0

autobuild: pd-extended debian-stable-powerpc 2007-10-30 06.27.30
by pd＠debian-stable-powerpc.idmi.poly.edu 30 Oct '07

30 Oct '07

hammer/switch.c:94: note: not vectorized: unhandled data-ref hammer/switch.c:94: note: vectorized 0 loops in function. hammer/switch.c:123: note: not vectorized: no vectype for stmt: D.2307_29 = *D.2306_28 scalar_type: struct _class * * hammer/switch.c:115: note: not vectorized: no vectype for stmt: D.2301_44 = *D.2300_43 scalar_type: struct _class * * hammer/switch.c:115: note: vectorized 0 loops in function. gcc -o /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/extra/cyclone/switch.pd_linux -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -pipe -fsigned-char -mpowerpc -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -export_dynamic -shared hammer/switch.o ../shared/common/loud.o ../shared/common/fitter.o gcc -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -pipe -fsigned-char -mpowerpc -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -c -o hammer/comment.o hammer/comment.c hammer/comment.c: In function ‘comment_save’: hammer/comment.c:458: error: ‘t_comment’ has no member named ‘x_obj’ make[3]: *** [hammer/comment.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended/externals/miXed/cyclone' make[2]: *** [cyclone_install] Error 2 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb: No such file or directory

1 0

autobuild: pd-extended debian-testing-i386 2007-10-30 06.27.36
by pd＠debian-testing-i386.idmi.poly.edu 30 Oct '07

30 Oct '07

gcc -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -DUNIX -I . -I ../../../pd/src -I ../shared -c -o hammer/minimum.o hammer/minimum.c `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead. gcc -o /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/extra/cyclone/minimum.pd_linux -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -DUNIX -I . -I ../../../pd/src -I ../shared -export_dynamic -shared hammer/minimum.o ../shared/common/loud.o ../shared/common/fitter.o gcc -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -DUNIX -I . -I ../../../pd/src -I ../shared -c -o hammer/switch.o hammer/switch.c `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead. gcc -o /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/extra/cyclone/switch.pd_linux -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -DUNIX -I . -I ../../../pd/src -I ../shared -export_dynamic -shared hammer/switch.o ../shared/common/loud.o ../shared/common/fitter.o gcc -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -DUNIX -I . -I ../../../pd/src -I ../shared -c -o hammer/comment.o hammer/comment.c `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead. hammer/comment.c: In function 'comment_save': hammer/comment.c:458: error: 't_comment' has no member named 'x_obj' make[3]: *** [hammer/comment.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended/externals/miXed/cyclone' make[2]: *** [cyclone_install] Error 2 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb: No such file or directory

1 0

externals/zexy/src atoi.c, 1.5, 1.6 demultiplex.c, 1.6, 1.7 fifop.c, 1.15, 1.16 length.c, 1.8, 1.9 lifop.c, 1.13, 1.14 lpt.c, 1.14, 1.15 matchbox.c, 1.6, 1.7 mavg.c, 1.5, 1.6 minmax.c, 1.6, 1.7 multiplex.c, 1.8, 1.9 regex.c, 1.9, 1.10 repack.c, 1.5, 1.6 sort.c, 1.8, 1.9 sum.c, 1.5, 1.6 urn.c, 1.6, 1.7 wrap.c, 1.8, 1.9 z~.c, 1.6, 1.7
by IOhannes m zmölnig 30 Oct '07

30 Oct '07

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5971 Modified Files: atoi.c demultiplex.c fifop.c length.c lifop.c lpt.c matchbox.c mavg.c minmax.c multiplex.c regex.c repack.c sort.c sum.c urn.c wrap.c z~.c Log Message: replaced gensym("float") by &s_float Index: demultiplex.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/demultiplex.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** demultiplex.c 14 Mar 2007 09:08:55 -0000 1.6 --- demultiplex.c 30 Oct 2007 09:26:46 -0000 1.7 *************** *** 90,94 **** x->n_out = n - 1; ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("select")); x->out = (t_outlet **)getbytes(n * sizeof(t_outlet *)); --- 90,94 ---- x->n_out = n - 1; ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("select")); x->out = (t_outlet **)getbytes(n * sizeof(t_outlet *)); Index: sort.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/sort.c,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** sort.c 14 Mar 2007 09:08:56 -0000 1.8 --- sort.c 30 Oct 2007 09:26:46 -0000 1.9 *************** *** 135,139 **** x->buffer = NULL; ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("direction")); return (x); --- 135,139 ---- x->buffer = NULL; ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("direction")); return (x); Index: lpt.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/lpt.c,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** lpt.c 14 Mar 2007 09:08:56 -0000 1.14 --- lpt.c 30 Oct 2007 09:26:46 -0000 1.15 *************** *** 166,171 **** ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("control")); ! outlet_new(&x->x_obj, gensym("float")); x->mode = MODE_NONE; x->port = 0; --- 166,171 ---- ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("control")); ! outlet_new(&x->x_obj, &s_float); x->mode = MODE_NONE; x->port = 0; Index: multiplex.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/multiplex.c,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** multiplex.c 14 Mar 2007 09:08:56 -0000 1.8 --- multiplex.c 30 Oct 2007 09:26:46 -0000 1.9 *************** *** 80,84 **** } ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("")); outlet_new(&x->x_obj, 0); --- 80,84 ---- } ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("")); outlet_new(&x->x_obj, 0); Index: regex.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/regex.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** regex.c 14 Mar 2007 09:08:56 -0000 1.9 --- regex.c 30 Oct 2007 09:26:46 -0000 1.10 *************** *** 271,275 **** x->x_outResult=outlet_new(&x->x_obj, 0); x->x_outDetails=outlet_new(&x->x_obj, gensym("list")); ! x->x_outNumDetails=outlet_new(&x->x_obj, gensym("float")); --- 271,275 ---- x->x_outResult=outlet_new(&x->x_obj, 0); x->x_outDetails=outlet_new(&x->x_obj, gensym("list")); ! x->x_outNumDetails=outlet_new(&x->x_obj, &s_float); Index: mavg.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/mavg.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** mavg.c 14 Mar 2007 09:08:56 -0000 1.5 --- mavg.c 30 Oct 2007 09:26:46 -0000 1.6 *************** *** 84,89 **** t_float *dumbuf; ! outlet_new(&x->x_obj, gensym("float")); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("")); x->buf = x->wp = (t_float *)getbytes(sizeof(t_float) * i); --- 84,89 ---- t_float *dumbuf; ! outlet_new(&x->x_obj, &s_float); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("")); x->buf = x->wp = (t_float *)getbytes(sizeof(t_float) * i); Index: matchbox.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/matchbox.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** matchbox.c 24 Jul 2007 13:30:29 -0000 1.6 --- matchbox.c 30 Oct 2007 09:26:46 -0000 1.7 *************** *** 626,630 **** x->x_outResult =outlet_new(&x->x_obj, gensym("list")); ! x->x_outNumResults=outlet_new(&x->x_obj, gensym("float")); --- 626,630 ---- x->x_outResult =outlet_new(&x->x_obj, gensym("list")); ! x->x_outNumResults=outlet_new(&x->x_obj, &s_float); Index: wrap.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/wrap.c,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** wrap.c 14 Mar 2007 09:08:56 -0000 1.8 --- wrap.c 30 Oct 2007 09:26:46 -0000 1.9 *************** *** 64,68 **** outlet_new(&x->x_obj, &s_float); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("set")); return (x); --- 64,68 ---- outlet_new(&x->x_obj, &s_float); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("set")); return (x); Index: minmax.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/minmax.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** minmax.c 14 Mar 2007 09:08:56 -0000 1.6 --- minmax.c 30 Oct 2007 09:26:46 -0000 1.7 *************** *** 60,65 **** t_minmax *x = (t_minmax *)pd_new(minmax_class); ! x->mino=outlet_new(&x->x_obj, gensym("float")); ! x->maxo=outlet_new(&x->x_obj, gensym("float")); x->min = x->max = 0; --- 60,65 ---- t_minmax *x = (t_minmax *)pd_new(minmax_class); ! x->mino=outlet_new(&x->x_obj, &s_float); ! x->maxo=outlet_new(&x->x_obj, &s_float); x->min = x->max = 0; Index: length.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/length.c,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** length.c 14 Mar 2007 09:08:56 -0000 1.8 --- length.c 30 Oct 2007 09:26:46 -0000 1.9 *************** *** 41,45 **** { t_length *x = (t_length *)pd_new(length_class); ! outlet_new(&x->x_obj, gensym("float")); return (x); } --- 41,45 ---- { t_length *x = (t_length *)pd_new(length_class); ! outlet_new(&x->x_obj, &s_float); return (x); } Index: fifop.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/fifop.c,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** fifop.c 14 Mar 2007 09:08:56 -0000 1.15 --- fifop.c 30 Oct 2007 09:26:46 -0000 1.16 *************** *** 279,283 **** floatinlet_new(&x->x_obj, &x->priority); x->x_out =outlet_new(&x->x_obj, gensym("list" )); ! x->x_infout=outlet_new(&x->x_obj, gensym("float")); x->fifo_list = 0; --- 279,283 ---- floatinlet_new(&x->x_obj, &x->priority); x->x_out =outlet_new(&x->x_obj, gensym("list" )); ! x->x_infout=outlet_new(&x->x_obj, &s_float); x->fifo_list = 0; Index: lifop.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/lifop.c,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** lifop.c 14 Mar 2007 09:08:56 -0000 1.13 --- lifop.c 30 Oct 2007 09:26:46 -0000 1.14 *************** *** 255,259 **** floatinlet_new(&x->x_obj, &x->priority); x->x_out=outlet_new(&x->x_obj, gensym("list")); ! x->x_infout=outlet_new(&x->x_obj, gensym("float")); x->lifo_list = 0; --- 255,259 ---- floatinlet_new(&x->x_obj, &x->priority); x->x_out=outlet_new(&x->x_obj, gensym("list")); ! x->x_infout=outlet_new(&x->x_obj, &s_float); x->lifo_list = 0; Index: repack.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/repack.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** repack.c 14 Mar 2007 09:08:56 -0000 1.5 --- repack.c 30 Oct 2007 09:26:46 -0000 1.6 *************** *** 160,164 **** x->buffer = (t_atom *)getbytes(x->bufsize * sizeof(t_atom)); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("")); outlet_new(&x->x_obj, 0); --- 160,164 ---- x->buffer = (t_atom *)getbytes(x->bufsize * sizeof(t_atom)); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("")); outlet_new(&x->x_obj, 0); Index: sum.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/sum.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** sum.c 14 Mar 2007 09:08:56 -0000 1.5 --- sum.c 30 Oct 2007 09:26:46 -0000 1.6 *************** *** 40,44 **** t_sum *x = (t_sum *)pd_new(sum_class); ! outlet_new(&x->x_obj, gensym("float")); return (x); --- 40,44 ---- t_sum *x = (t_sum *)pd_new(sum_class); ! outlet_new(&x->x_obj, &s_float); return (x); Index: atoi.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/atoi.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** atoi.c 14 Mar 2007 09:08:55 -0000 1.5 --- atoi.c 30 Oct 2007 09:26:46 -0000 1.6 *************** *** 80,84 **** { t_atoi *x = (t_atoi *)pd_new(atoi_class); ! outlet_new(&x->x_obj, gensym("float")); return (x); } --- 80,84 ---- { t_atoi *x = (t_atoi *)pd_new(atoi_class); ! outlet_new(&x->x_obj, &s_float); return (x); } Index: urn.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/urn.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** urn.c 14 Mar 2007 09:08:56 -0000 1.6 --- urn.c 30 Oct 2007 09:26:46 -0000 1.7 *************** *** 115,119 **** ZEXY_USEVAR(s); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("")); x->x_floatout=outlet_new(&x->x_obj, &s_float); x->x_bangout =outlet_new(&x->x_obj, &s_bang); --- 115,119 ---- ZEXY_USEVAR(s); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("")); x->x_floatout=outlet_new(&x->x_obj, &s_float); x->x_bangout =outlet_new(&x->x_obj, &s_bang); Index: z~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/z~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** z~.c 30 Oct 2007 09:21:52 -0000 1.6 --- z~.c 30 Oct 2007 09:26:46 -0000 1.7 *************** *** 102,106 **** x->phase = 0; ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1")); outlet_new(&x->x_obj, gensym("signal")); return (x); --- 102,106 ---- x->phase = 0; ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1")); outlet_new(&x->x_obj, gensym("signal")); return (x);

1 0

externals/zexy/src absgn~.c, 1.5, 1.6 abs~.c, 1.4, 1.5 avg~.c, 1.5, 1.6 blockmirror~.c, 1.5, 1.6 blockshuffle~.c, 1.3, 1.4 blockswap~.c, 1.5, 1.6 demultiplex~.c, 1.7, 1.8 dfreq~.c, 1.5, 1.6 dirac~.c, 1.6, 1.7 envrms~.c, 1.5, 1.6 limiter~.c, 1.8, 1.9 multiline~.c, 1.6, 1.7 multiplex~.c, 1.6, 1.7 noish~.c, 1.5, 1.6 noisi~.c, 1.5, 1.6 pack~.c, 1.4, 1.5 pdf~.c, 1.5, 1.6 quantize~.c, 1.6, 1.7 sgn~.c, 1.7, 1.8 sigzero~.c, 1.7, 1.8 step~.c, 1.4, 1.5 swap~.c, 1.4, 1.5 tavg~.c, 1.6, 1.7 unpack~.c, 1.6, 1.7
by IOhannes m zmölnig 30 Oct '07

30 Oct '07

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3936 Modified Files: absgn~.c abs~.c avg~.c blockmirror~.c blockshuffle~.c blockswap~.c demultiplex~.c dfreq~.c dirac~.c envrms~.c limiter~.c multiline~.c multiplex~.c noish~.c noisi~.c pack~.c pdf~.c quantize~.c sgn~.c sigzero~.c step~.c swap~.c tavg~.c unpack~.c z~.c Log Message: use t_float and t_sample when possible Index: dirac~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/dirac~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** dirac~.c 14 Mar 2007 09:08:56 -0000 1.6 --- dirac~.c 30 Oct 2007 09:21:51 -0000 1.7 *************** *** 39,76 **** typedef struct _dirac { ! t_object x_obj; ! t_int position; ! t_int do_it; } t_dirac; static void dirac_bang(t_dirac *x) { ! x->do_it = x->position; } static void dirac_float(t_dirac *x, t_float where) { ! x->do_it = x->position = (t_int)where; } static t_int *dirac_perform(t_int *w) { ! t_dirac *x = (t_dirac *)(w[1]); ! t_float *out = (t_float *)(w[2]); ! int n = (int)(w[3]); ! t_int do_it = x->do_it; ! zero_perform(w+1); ! if (do_it >= n) ! x->do_it -= n; ! else if(do_it >= 0) ! { ! out[do_it] = 1.f; ! x->do_it = -1; ! } ! return (w+4); } --- 39,76 ---- typedef struct _dirac { ! t_object x_obj; ! t_int position; ! t_int do_it; } t_dirac; static void dirac_bang(t_dirac *x) { ! x->do_it = x->position; } static void dirac_float(t_dirac *x, t_float where) { ! x->do_it = x->position = (t_int)where; } static t_int *dirac_perform(t_int *w) { ! t_dirac *x = (t_dirac *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); ! int n = (int)(w[3]); ! t_int do_it = x->do_it; ! zero_perform(w+1); ! if (do_it >= n) ! x->do_it -= n; ! else if(do_it >= 0) ! { ! out[do_it] = 1.f; ! x->do_it = -1; ! } ! return (w+4); } *************** *** 78,126 **** static t_int *dirac_perf8(t_int *w) { ! t_dirac *x = (t_dirac *)(w[1]); ! t_float *out = (t_float *)(w[2]); ! int n = (int)(w[3]); ! t_int do_it = x->do_it; #ifndef __WIN32__ ! /* LATER: investigate the occurence of zero_perf8() */ ! /* it seems, like pd has the symbol zero_perf8(), ! * but it is not exported by m_pd.h: ! * so linux can use it, but w32 not ! * have to tell miller about that ! */ ! zero_perf8(w+1); #else ! zero_perform(w+1); #endif ! if (do_it >= n) ! x->do_it -= n; ! else if(do_it >= 0) ! { ! out[do_it] = 1.f; ! x->do_it = -1; ! } ! return (w+4); } static void dirac_dsp(t_dirac *x, t_signal **sp) { ! if (sp[0]->s_n & 7) ! dsp_add(dirac_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); ! else ! dsp_add(dirac_perf8, 3, x, sp[0]->s_vec, sp[0]->s_n); } static void dirac_helper(void) { ! post("%c dirac~-object :: generates a dirac (unity-pulse)", HEARTSYMBOL); ! post("creation : \"dirac~ [<position>]\" : create a dirac at specified position (in samples)\n" ! "inlet\t: <position>\t: create a dirac at new position\n" ! "\t 'bang'\t: create a dirac at specified position\n" ! "\t 'help'\t: view this\n" ! "outlet\t: signal~"); } --- 78,126 ---- static t_int *dirac_perf8(t_int *w) { ! t_dirac *x = (t_dirac *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); ! int n = (int)(w[3]); ! t_int do_it = x->do_it; #ifndef __WIN32__ ! /* LATER: investigate the occurence of zero_perf8() */ ! /* it seems, like pd has the symbol zero_perf8(), ! * but it is not exported by m_pd.h: ! * so linux can use it, but w32 not ! * have to tell miller about that ! */ ! zero_perf8(w+1); #else ! zero_perform(w+1); #endif ! if (do_it >= n) ! x->do_it -= n; ! else if(do_it >= 0) ! { ! out[do_it] = 1.f; ! x->do_it = -1; ! } ! return (w+4); } static void dirac_dsp(t_dirac *x, t_signal **sp) { ! if (sp[0]->s_n & 7) ! dsp_add(dirac_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); ! else ! dsp_add(dirac_perf8, 3, x, sp[0]->s_vec, sp[0]->s_n); } static void dirac_helper(void) { ! post("%c dirac~-object :: generates a dirac (unity-pulse)", HEARTSYMBOL); ! post("creation : \"dirac~ [<position>]\" : create a dirac at specified position (in samples)\n" ! "inlet\t: <position>\t: create a dirac at new position\n" ! "\t 'bang'\t: create a dirac at specified position\n" ! "\t 'help'\t: view this\n" ! "outlet\t: signal~"); } *************** *** 129,154 **** static void *dirac_new(t_floatarg where) { ! t_dirac *x = (t_dirac *)pd_new(dirac_class); ! outlet_new(&x->x_obj, gensym("signal")); ! x->do_it = where; ! if (where > 0) ! x->position = where; ! else ! x->position = -where; ! return (x); } void dirac_tilde_setup(void) { ! dirac_class = class_new(gensym("dirac~"), (t_newmethod)dirac_new, 0, ! sizeof(t_dirac), 0, A_DEFFLOAT, 0); ! class_addfloat(dirac_class, dirac_float); ! class_addbang(dirac_class, dirac_bang); ! class_addmethod(dirac_class, (t_method)dirac_dsp, gensym("dsp"), 0); ! class_addmethod(dirac_class, (t_method)dirac_helper, gensym("help"), 0); zexy_register("dirac~"); } --- 129,154 ---- static void *dirac_new(t_floatarg where) { ! t_dirac *x = (t_dirac *)pd_new(dirac_class); ! outlet_new(&x->x_obj, gensym("signal")); ! x->do_it = where; ! if (where > 0) ! x->position = where; ! else ! x->position = -where; ! return (x); } void dirac_tilde_setup(void) { ! dirac_class = class_new(gensym("dirac~"), (t_newmethod)dirac_new, 0, ! sizeof(t_dirac), 0, A_DEFFLOAT, 0); ! class_addfloat(dirac_class, dirac_float); ! class_addbang(dirac_class, dirac_bang); ! class_addmethod(dirac_class, (t_method)dirac_dsp, gensym("dsp"), 0); ! class_addmethod(dirac_class, (t_method)dirac_helper, gensym("help"), 0); zexy_register("dirac~"); } Index: noisi~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/noisi~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** noisi~.c 14 Mar 2007 09:08:56 -0000 1.5 --- noisi~.c 30 Oct 2007 09:21:52 -0000 1.6 *************** *** 42,49 **** t_object x_obj; int val; ! t_float current; ! t_float decrement; ! t_float updater; ! t_float to_go; } t_nois; --- 42,49 ---- t_object x_obj; int val; ! t_sample current; ! t_sample decrement; ! t_sample updater; ! t_sample to_go; } t_nois; *************** *** 59,62 **** --- 59,70 ---- } + + static void set_noisseed(t_nois *x, t_floatarg seed) + { + x->val = seed; + } + + + /* ------------------------ noisi~ ----------------------------- */ *************** *** 65,77 **** static t_int *noisi_perform(t_int *w){ t_nois *x = (t_nois *)(w[1]); ! t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); ! int *vp = (int *)(&x->val); /* what the ... */ ! int i_value = *vp; ! t_float f_value = x->current; ! t_float decrement = x->decrement; ! t_float all_to_go = x->updater; ! t_float still_to_go = x->to_go; if (all_to_go == 1) { --- 73,84 ---- static t_int *noisi_perform(t_int *w){ t_nois *x = (t_nois *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); int n = (int)(w[3]); ! int i_value = x->val; ! t_sample f_value = x->current; ! t_sample decrement = x->decrement; ! t_sample all_to_go = x->updater; ! t_sample still_to_go = x->to_go; if (all_to_go == 1) { *************** *** 99,103 **** ((t_sample)((i_value & 0x7fffffff)-0x40000000))*(t_sample)(1.0 / 0x40000000)) - ((t_sample)(((i_value = i_value * 435898247 + 382842987) & 0x7fffffff) ! - 0x40000000)) * (t_sample)(1.0 / 0x40000000) ) / all_to_go; --- 106,110 ---- ((t_sample)((i_value & 0x7fffffff)-0x40000000))*(t_sample)(1.0 / 0x40000000)) - ((t_sample)(((i_value = i_value * 435898247 + 382842987) & 0x7fffffff) ! - 0x40000000)) * (t_sample)(1.0 / 0x40000000) ) / all_to_go; *************** *** 120,124 **** } ! *vp = i_value; x->current = f_value; x->decrement = decrement; --- 127,131 ---- } ! x->val = i_value; x->current = f_value; x->decrement = decrement; *************** *** 163,166 **** --- 170,175 ---- class_addmethod(noisi_class, (t_method)noisi_dsp, gensym("dsp"), 0); + class_addmethod(noisi_class, (t_method)set_noisseed, gensym("seed"), A_FLOAT, 0); + class_addmethod(noisi_class, (t_method)noisi_helper, gensym("help"), 0); zexy_register("noisi~"); Index: dfreq~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/dfreq~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** dfreq~.c 14 Mar 2007 09:08:56 -0000 1.5 --- dfreq~.c 30 Oct 2007 09:21:51 -0000 1.6 *************** *** 29,36 **** t_object x_obj; ! t_float freq; /*freqenz variable */ ! t_float alt; ! float sampcount; ! t_float sr; } t_dfreq; --- 29,36 ---- t_object x_obj; ! t_sample freq; /*frequenz variable */ ! t_sample alt; ! t_sample sampcount; ! t_sample sr; } t_dfreq; *************** *** 38,50 **** static t_int *dfreq_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); ! t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); t_dfreq *x = (t_dfreq *) w[4]; ! t_float a = x->alt, c = x->sampcount; ! t_float freq = x->freq, sr=x->sr; ! t_float delta_inv; while (n--) { --- 38,52 ---- static t_int *dfreq_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); int n = (int)(w[3]); t_dfreq *x = (t_dfreq *) w[4]; ! t_sample a = x->alt; ! t_sample c = x->sampcount; ! t_sample freq = x->freq; ! t_sample sr=x->sr; ! t_sample delta_inv; while (n--) { *************** *** 52,61 **** if( (a * *in) < 0 && (a < *in)){ ! /* interpolate for real zerocross */ ! delta_inv = 1./(*in-a); if(c > 0.0) ! freq = sr / ((t_float) c + a*delta_inv); else ! freq = sr; c = *in*delta_inv; /*rest of time */ --- 54,63 ---- if( (a * *in) < 0 && (a < *in)){ ! /* interpolate for real zerocross */ ! delta_inv = 1./(*in-a); if(c > 0.0) ! freq = sr / ((t_sample) c + a*delta_inv); else ! freq = sr; c = *in*delta_inv; /*rest of time */ *************** *** 77,81 **** static void dfreq_dsp(t_dfreq *x, t_signal **sp) { ! dsp_add(dfreq_perform, 4, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n,x); } --- 79,83 ---- static void dfreq_dsp(t_dfreq *x, t_signal **sp) { ! dsp_add(dfreq_perform, 4, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n,x); } *************** *** 94,100 **** static void dfreq_tilde_helper(void) { ! post("\n%c dfreq~\t :: pitch-detector that counts zero-crossings", HEARTSYMBOL); ! post("\noutputs a frequency estimate as a stream~ that will be updated every zero-X"); ! post("\ncreation::\t'dfreq~': that's all"); } --- 96,102 ---- static void dfreq_tilde_helper(void) { ! post("\n%c dfreq~\t :: pitch-detector that counts zero-crossings", HEARTSYMBOL); ! post("\noutputs a frequency estimate as a stream~ that will be updated every zero-X"); ! post("\ncreation::\t'dfreq~': that's all"); } *************** *** 102,111 **** void dfreq_tilde_setup(void) { ! dfreq_class = class_new(gensym("dfreq~"), (t_newmethod)dfreq_new, 0, ! sizeof(t_dfreq), 0, A_NULL); ! class_addmethod(dfreq_class, nullfn, gensym("signal"), 0); ! class_addmethod(dfreq_class, (t_method)dfreq_dsp, gensym("dsp"), 0); ! class_addmethod(dfreq_class, (t_method)dfreq_tilde_helper, gensym("help"), 0); zexy_register("dfreq~"); } --- 104,113 ---- void dfreq_tilde_setup(void) { ! dfreq_class = class_new(gensym("dfreq~"), (t_newmethod)dfreq_new, 0, ! sizeof(t_dfreq), 0, A_NULL); ! class_addmethod(dfreq_class, nullfn, gensym("signal"), 0); ! class_addmethod(dfreq_class, (t_method)dfreq_dsp, gensym("dsp"), 0); ! class_addmethod(dfreq_class, (t_method)dfreq_tilde_helper, gensym("help"), 0); zexy_register("dfreq~"); } Index: unpack~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/unpack~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** unpack~.c 14 Mar 2007 09:08:56 -0000 1.6 --- unpack~.c 30 Oct 2007 09:21:52 -0000 1.7 *************** *** 30,35 **** { t_object x_obj; ! t_float *buffer; ! t_float *rp, *wp; int bufsize; --- 30,35 ---- { t_object x_obj; ! t_sample *buffer; ! t_sample *rp, *wp; int bufsize; *************** *** 48,60 **** t_atom *ap = argv; int i; - ZEXY_USEVAR(s); - for (i = 0, ap = argv; i < argc; ap++, i++) { ! // if (ap->a_type == A_FLOAT) { ! if (x->wp + 1 != x->rp) { ! *(x->wp)++ = atom_getfloat(ap); ! if (x->wp == x->buffer + x->bufsize) x->wp = x->buffer; ! } ! // } } } --- 48,56 ---- t_atom *ap = argv; int i; for (i = 0, ap = argv; i < argc; ap++, i++) { ! if (x->wp + 1 != x->rp) { ! *(x->wp)++ = atom_getfloat(ap); ! if (x->wp == x->buffer + x->bufsize) x->wp = x->buffer; ! } } } *************** *** 63,71 **** static t_int *sigunpack_perform(t_int *w) { ! t_float *out = (t_float *)(w[1]); t_sigunpack *x = (t_sigunpack *)w[2]; int n = (int)(w[3]); ! t_float *buf = x->rp; int hitchhike = 0; --- 59,67 ---- static t_int *sigunpack_perform(t_int *w) { ! t_sample *out = (t_sample *)(w[1]); t_sigunpack *x = (t_sigunpack *)w[2]; int n = (int)(w[3]); ! t_sample *buf = x->rp; int hitchhike = 0; *************** *** 87,92 **** if (x->bufsize % sp[0]->s_n) { int newsize = sp[0]->s_n*(1+(int)(x->bufsize/sp[0]->s_n)); ! freebytes(x->buffer, x->bufsize * sizeof(t_float)); ! x->buffer = (t_float *)getbytes(newsize * sizeof(t_float)); x->rp = x->wp = x->buffer; --- 83,88 ---- if (x->bufsize % sp[0]->s_n) { int newsize = sp[0]->s_n*(1+(int)(x->bufsize/sp[0]->s_n)); ! freebytes(x->buffer, x->bufsize * sizeof(*x->buffer)); ! x->buffer = (t_sample *)getbytes(newsize * sizeof(*x->buffer)); x->rp = x->wp = x->buffer; *************** *** 106,110 **** else bufsize = (suggestedsize % 64)?(64*(1+(int)(suggestedsize/64))):suggestedsize; ! x->buffer = (t_float *)getbytes(bufsize * sizeof(t_float)); x->bufsize = bufsize; x->rp = x->wp = x->buffer; --- 102,106 ---- else bufsize = (suggestedsize % 64)?(64*(1+(int)(suggestedsize/64))):suggestedsize; ! x->buffer = (t_sample *)getbytes(bufsize * sizeof(*x->buffer)); x->bufsize = bufsize; x->rp = x->wp = x->buffer; *************** *** 123,127 **** { sigunpack_class = class_new(gensym("unpack~"), (t_newmethod)sigunpack_new, 0, ! sizeof(t_sigunpack), 0, A_DEFFLOAT, 0); class_addmethod(sigunpack_class, (t_method)sigunpack_dsp, gensym("dsp"), 0); class_addfloat(sigunpack_class, (t_method)sigunpack_float); --- 119,123 ---- { sigunpack_class = class_new(gensym("unpack~"), (t_newmethod)sigunpack_new, 0, ! sizeof(t_sigunpack), 0, A_DEFFLOAT, 0); class_addmethod(sigunpack_class, (t_method)sigunpack_dsp, gensym("dsp"), 0); class_addfloat(sigunpack_class, (t_method)sigunpack_float); Index: demultiplex~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/demultiplex~.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** demultiplex~.c 14 Mar 2007 09:08:55 -0000 1.7 --- demultiplex~.c 30 Oct 2007 09:21:51 -0000 1.8 *************** *** 86,117 **** static void *demux_new(t_symbol *s, int argc, t_atom *argv) { ! t_demux *x = (t_demux *)pd_new(demux_class); ! int i; ! ZEXY_USEVAR(s); ! ZEXY_USEVAR(argv); ! if (!argc)argc=2; ! x->n_out=argc; ! x->output=0; ! while(argc--)outlet_new(&x->x_obj, gensym("signal")); ! x->out = (t_sample **)getbytes(x->n_out * sizeof(t_sample *)); ! i=x->n_out; ! while(i--)x->out[i]=0; ! return (x); } void demultiplex_tilde_setup(void) { ! demux_class = class_new(gensym("demultiplex~"), (t_newmethod)demux_new, (t_method)demux_free, sizeof(t_demux), 0, A_GIMME, 0); ! class_addcreator((t_newmethod)demux_new, gensym("demux~"), A_GIMME, 0); ! class_addfloat(demux_class, demux_output); ! class_addmethod(demux_class, (t_method)demux_dsp, gensym("dsp"), 0); ! class_addmethod(demux_class, nullfn, gensym("signal"), 0); ! class_addmethod(demux_class, (t_method)demux_helper, gensym("help"), 0); zexy_register("demultiplex~"); --- 86,117 ---- static void *demux_new(t_symbol *s, int argc, t_atom *argv) { ! t_demux *x = (t_demux *)pd_new(demux_class); ! int i; ! ZEXY_USEVAR(s); ! ZEXY_USEVAR(argv); ! if (!argc)argc=2; ! x->n_out=argc; ! x->output=0; ! while(argc--)outlet_new(&x->x_obj, gensym("signal")); ! x->out = (t_sample **)getbytes(x->n_out * sizeof(t_sample *)); ! i=x->n_out; ! while(i--)x->out[i]=0; ! return (x); } void demultiplex_tilde_setup(void) { ! demux_class = class_new(gensym("demultiplex~"), (t_newmethod)demux_new, (t_method)demux_free, sizeof(t_demux), 0, A_GIMME, 0); ! class_addcreator((t_newmethod)demux_new, gensym("demux~"), A_GIMME, 0); ! class_addfloat(demux_class, demux_output); ! class_addmethod(demux_class, (t_method)demux_dsp, gensym("dsp"), 0); ! class_addmethod(demux_class, nullfn, gensym("signal"), 0); ! class_addmethod(demux_class, (t_method)demux_helper, gensym("help"), 0); zexy_register("demultiplex~"); *************** *** 119,123 **** void demux_tilde_setup(void) { ! demultiplex_tilde_setup(); } --- 119,123 ---- void demux_tilde_setup(void) { ! demultiplex_tilde_setup(); } Index: multiplex~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/multiplex~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** multiplex~.c 14 Mar 2007 09:08:56 -0000 1.6 --- multiplex~.c 30 Oct 2007 09:21:52 -0000 1.7 *************** *** 29,33 **** int n_in; ! t_float **in; } t_mux; --- 29,33 ---- int n_in; ! t_sample **in; } t_mux; *************** *** 44,51 **** { t_mux *x = (t_mux *)(w[1]); ! t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); ! t_float *in = x->in[x->input]; while(n--)*out++=*in++; --- 44,51 ---- { t_mux *x = (t_mux *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); int n = (int)(w[3]); ! t_sample *in = x->in[x->input]; while(n--)*out++=*in++; *************** *** 57,61 **** { int n = 0; ! t_float **dummy=x->in; for(n=0;n<x->n_in;n++)*dummy++=sp[n]->s_vec; --- 57,61 ---- { int n = 0; ! t_sample **dummy=x->in; for(n=0;n<x->n_in;n++)*dummy++=sp[n]->s_vec; *************** *** 74,118 **** static void mux_free(t_mux *x) { ! freebytes(x->in, x->n_in * sizeof(t_float *)); } static void *mux_new(t_symbol *s, int argc, t_atom *argv) { ! t_mux *x = (t_mux *)pd_new(mux_class); ! int i; ! ZEXY_USEVAR(s); ! ZEXY_USEVAR(argv); ! if (!argc)argc=2; ! x->n_in=argc; ! x->input=0; ! argc--; ! while(argc--)inlet_new(&x->x_obj,&x->x_obj.ob_pd,&s_signal,&s_signal); ! x->in = (t_float **)getbytes(x->n_in * sizeof(t_float *)); ! i=x->n_in; ! while(i--)x->in[i]=0; ! outlet_new(&x->x_obj, gensym("signal")); ! return (x); } void multiplex_tilde_setup(void) { ! mux_class = class_new(gensym("multiplex~"), (t_newmethod)mux_new, (t_method)mux_free, sizeof(t_mux), 0, A_GIMME, 0); ! class_addcreator((t_newmethod)mux_new, gensym("mux~"), A_GIMME, 0); ! class_addfloat(mux_class, mux_input); ! class_addmethod(mux_class, (t_method)mux_dsp, gensym("dsp"), 0); ! class_addmethod(mux_class, nullfn, gensym("signal"), 0); ! class_addmethod(mux_class, (t_method)mux_helper, gensym("help"), 0); zexy_register("multiplex~"); } void mux_tilde_setup(void) { ! multiplex_tilde_setup(); } --- 74,118 ---- static void mux_free(t_mux *x) { ! freebytes(x->in, x->n_in * sizeof(t_sample *)); } static void *mux_new(t_symbol *s, int argc, t_atom *argv) { ! t_mux *x = (t_mux *)pd_new(mux_class); ! int i; ! ZEXY_USEVAR(s); ! ZEXY_USEVAR(argv); ! if (!argc)argc=2; ! x->n_in=argc; ! x->input=0; ! argc--; ! while(argc--)inlet_new(&x->x_obj,&x->x_obj.ob_pd,&s_signal,&s_signal); ! x->in = (t_sample **)getbytes(x->n_in * sizeof(t_sample *)); ! i=x->n_in; ! while(i--)x->in[i]=0; ! outlet_new(&x->x_obj, gensym("signal")); ! return (x); } void multiplex_tilde_setup(void) { ! mux_class = class_new(gensym("multiplex~"), (t_newmethod)mux_new, (t_method)mux_free, sizeof(t_mux), 0, A_GIMME, 0); ! class_addcreator((t_newmethod)mux_new, gensym("mux~"), A_GIMME, 0); ! class_addfloat(mux_class, mux_input); ! class_addmethod(mux_class, (t_method)mux_dsp, gensym("dsp"), 0); ! class_addmethod(mux_class, nullfn, gensym("signal"), 0); ! class_addmethod(mux_class, (t_method)mux_helper, gensym("help"), 0); zexy_register("multiplex~"); } void mux_tilde_setup(void) { ! multiplex_tilde_setup(); } Index: limiter~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/limiter~.c,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** limiter~.c 14 Mar 2007 09:08:56 -0000 1.8 --- limiter~.c 30 Oct 2007 09:21:52 -0000 1.9 *************** *** 17,26 **** /* ! --------------------------------- limiter/compressor --------------------------------- ! for details on how it works watch out for "http://iem.kug.ac.at/~zmoelnig/pd" ! ...and search for "limiter" ! mail2me4more!n4m8ion : zmoelnig(a)iem.kug.ac.at */ --- 17,26 ---- /* ! --------------------------------- limiter/compressor --------------------------------- ! for details on how it works watch out for "http://iem.kug.ac.at/~zmoelnig/pd" ! ...and search for "limiter" ! mail2me4more!n4m8ion : zmoelnig(a)iem.kug.ac.at */ *************** *** 63,82 **** typedef struct _limctl { // variables changed by user ! float limit, hold_samples, change_of_amplification; } t_limctl; typedef struct _cmpctl { ! float treshold, ratio; // uclimit is the very same is the limiter1-limit (decalculated relative to our treshold) ! float uclimit, climit_inverse; // climit == compressed limit (uclimit == uncompressed limit) ! float limiter_limit; // start limiting (stop compressing); == tresh/limit; ! float treshdB, oneminusratio; } t_cmpctl; typedef struct _inbuf { ! float* ringbuf; int buf_position; } t_inbuf; --- 63,82 ---- typedef struct _limctl { // variables changed by user ! t_float limit, hold_samples, change_of_amplification; } t_limctl; typedef struct _cmpctl { ! t_float treshold, ratio; // uclimit is the very same is the limiter1-limit (decalculated relative to our treshold) ! t_float uclimit, climit_inverse; // climit == compressed limit (uclimit == uncompressed limit) ! t_float limiter_limit; // start limiting (stop compressing); == tresh/limit; ! t_float treshdB, oneminusratio; } t_cmpctl; typedef struct _inbuf { ! t_sample* ringbuf; int buf_position; } t_inbuf; *************** *** 90,95 **** // variables changed by process ! float amplification; ! float samples_left, still_left; int mode; --- 90,95 ---- // variables changed by process ! t_sample amplification; ! t_float samples_left, still_left; int mode; *************** *** 115,119 **** static t_float calc_holdsamples(t_float htime, int buf) { // hold_time must be greater than buffer_time to make sure that any peak_sample is amplified with its own factor ! float min_hold = buf / sys_getsr(); return (0.001 * sys_getsr() * ((htime > min_hold)?htime:((min_hold > 50)?min_hold:50))); } --- 115,119 ---- static t_float calc_holdsamples(t_float htime, int buf) { // hold_time must be greater than buffer_time to make sure that any peak_sample is amplified with its own factor ! t_float min_hold = buf / sys_getsr(); return (0.001 * sys_getsr() * ((htime > min_hold)?htime:((min_hold > 50)?min_hold:50))); } *************** *** 138,145 **** // settings ! static void set_treshold(t_limiter *x, float treshold) { t_cmpctl *c = x->cmp; ! float tresh = dbtorms (treshold); if (tresh > x->val1->limit) tresh = x->val1->limit; --- 138,145 ---- // settings ! static void set_treshold(t_limiter *x, t_float treshold) { t_cmpctl *c = x->cmp; ! t_float tresh = dbtorms (treshold); if (tresh > x->val1->limit) tresh = x->val1->limit; *************** *** 149,153 **** } ! static void set_ratio(t_limiter *x, float ratio) { if (ratio < 0) ratio = 1; --- 149,153 ---- } ! static void set_ratio(t_limiter *x, t_float ratio) { if (ratio < 0) ratio = 1; *************** *** 157,161 **** } ! static void set_mode(t_limiter *x, float mode) { int modus = mode; --- 157,161 ---- } ! static void set_mode(t_limiter *x, t_float mode) { int modus = mode; *************** *** 193,197 **** } ! static void set_bufsize(t_limiter *x, float size) { // this is really unneeded...and for historical reasons only if (size < BUFSIZE) size = BUFSIZE; --- 193,197 ---- } ! static void set_bufsize(t_limiter *x, int size) { // this is really unneeded...and for historical reasons only if (size < BUFSIZE) size = BUFSIZE; *************** *** 359,364 **** t_limiter *x = (t_limiter *)w[1]; t_inbuf *buf = (t_inbuf *)w[2]; ! t_float *in = (t_float *)w[3]; ! t_float *out = (t_float *)w[4]; int n = x->s_n; --- 359,364 ---- t_limiter *x = (t_limiter *)w[1]; t_inbuf *buf = (t_inbuf *)w[2]; ! t_sample *in = (t_sample *)w[3]; ! t_sample *out = (t_sample *)w[4]; int n = x->s_n; *************** *** 367,371 **** int i = buf->buf_position; ! t_float *vp = buf->ringbuf, *ep = vp + bufsize, *bp = vp + XTRASAMPS + i; i += n; --- 367,371 ---- int i = buf->buf_position; ! t_sample *vp = buf->ringbuf, *ep = vp + bufsize, *bp = vp + XTRASAMPS + i; i += n; *************** *** 373,378 **** while (n--) { ! t_float os1, os2, max; ! t_float last4, last3, last2, last1, sinccurrent, current, next1, next2, next3, next4; if (bp == ep) --- 373,378 ---- while (n--) { ! t_sample os1, os2, max; ! t_sample last4, last3, last2, last1, sinccurrent, current, next1, next2, next3, next4; if (bp == ep) *************** *** 437,442 **** int n = x->s_n; ! t_float *in = (t_float *)w[2]; ! t_float *out= (t_float *)w[3]; t_limctl *v1 = (t_limctl *)(x->val1); --- 437,442 ---- int n = x->s_n; ! t_sample *in = (t_sample *)w[2]; ! t_sample *out= (t_sample *)w[3]; t_limctl *v1 = (t_limctl *)(x->val1); *************** *** 482,494 **** samplesleft = holdlong; } else ! { ! if (samplesleft > 0) ! { ! samplesleft--; ! } else ! { ! if ((amp *= coa_long) > 1) amp = 1; ! } ! } *out++ = amp; --- 482,494 ---- samplesleft = holdlong; } else ! { ! if (samplesleft > 0) ! { ! samplesleft--; ! } else ! { ! if ((amp *= coa_long) > 1) amp = 1; ! } ! } *out++ = amp; *************** *** 507,532 **** stillleft = holdlong; } else ! { ! if (samplesleft > 0) ! { ! samplesleft--; ! stillleft--; ! } else ! { ! if (amp < alimit) ! { ! if ((amp *= coa_short) > 1) amp = 1; ! } else ! { ! if (stillleft > 0) ! { ! samplesleft = stillleft; ! } else ! { ! if ((amp *= coa_long) > 1) amp = 1; ! } ! } ! } ! } *out++ = amp; *in++ = 0; --- 507,532 ---- stillleft = holdlong; } else ! { ! if (samplesleft > 0) ! { ! samplesleft--; ! stillleft--; ! } else ! { ! if (amp < alimit) ! { ! if ((amp *= coa_short) > 1) amp = 1; ! } else ! { ! if (stillleft > 0) ! { ! samplesleft = stillleft; ! } else ! { ! if ((amp *= coa_long) > 1) amp = 1; ! } ! } ! } ! } *out++ = amp; *in++ = 0; *************** *** 573,577 **** { int i = 0; ! t_float* sig_buf = (t_float *)getbytes(sizeof(t_float) * sp[0]->s_n); x->s_n = sp[0]->s_n; --- 573,577 ---- { int i = 0; ! t_sample* sig_buf = (t_sample *)getbytes(sizeof(*sig_buf) * sp[0]->s_n); x->s_n = sp[0]->s_n; *************** *** 623,627 **** { int n; ! t_float* buf = (float *)getbytes(sizeof(float) * x->buf_size); x->in[i].ringbuf = buf; x->in[i].buf_position = 0; --- 623,627 ---- { int n; ! t_sample* buf = (t_sample *)getbytes(sizeof(*buf) * x->buf_size); x->in[i].ringbuf = buf; x->in[i].buf_position = 0; *************** *** 654,658 **** freebytes(x->cmp , sizeof(t_cmpctl)); ! while (i < x->number_of_inlets) freebytes(x->in[i++].ringbuf, x->buf_size * sizeof(t_float)); freebytes(x->in, x->number_of_inlets * sizeof(t_inbuf)); --- 654,658 ---- freebytes(x->cmp , sizeof(t_cmpctl)); ! while (i < x->number_of_inlets) freebytes(x->in[i++].ringbuf, x->buf_size * sizeof(t_sample)); freebytes(x->in, x->number_of_inlets * sizeof(t_inbuf)); Index: swap~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/swap~.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** swap~.c 14 Mar 2007 09:08:56 -0000 1.4 --- swap~.c 30 Oct 2007 09:21:52 -0000 1.5 *************** *** 15,22 **** /* ! the long waited for swap~-object that does a byte swap ! of course, we unfortunately have to quantize the float-signal to 16bit (to get bytes) ! 1110:forum::für::umläute:1999 */ --- 15,22 ---- /* ! the long waited for swap~-object that does a byte swap ! of course, we unfortunately have to quantize the float-signal to 16bit (to get bytes) ! 1110:forum::für::umläute:1999 */ *************** *** 48,53 **** { t_swap *x = (t_swap *)(w[1]); ! t_float *in = (t_float *)(w[2]); ! t_float *out = (t_float *)(w[3]); int n = (int)(w[4]); --- 48,53 ---- { t_swap *x = (t_swap *)(w[1]); ! t_sample *in = (t_sample *)(w[2]); ! t_sample *out = (t_sample *)(w[3]); int n = (int)(w[4]); Index: tavg~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/tavg~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** tavg~.c 14 Mar 2007 09:08:56 -0000 1.6 --- tavg~.c 30 Oct 2007 09:21:52 -0000 1.7 *************** *** 24,30 **** { t_object x_obj; ! t_float n_inv; ! t_float buf; ! int blocks; } t_tavgtilde; --- 24,30 ---- { t_object x_obj; ! t_sample n_inv; ! t_sample buf; ! unsigned int blocks; } t_tavgtilde; *************** *** 33,37 **** { if (x->blocks) { ! outlet_float(x->x_obj.ob_outlet, x->buf*x->n_inv/x->blocks); x->blocks = 0; x->buf = 0.; --- 33,38 ---- { if (x->blocks) { ! t_float result=x->buf*x->n_inv/x->blocks; ! outlet_float(x->x_obj.ob_outlet, result); x->blocks = 0; x->buf = 0.; *************** *** 41,87 **** static t_int *tavg_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); ! t_tavgtilde *x = (t_tavgtilde *)w[2]; ! int n = (int)(w[3]); ! ! t_float buf = x->buf; ! ! while (n--) buf += *in++; ! ! x->buf = buf; ! x->blocks++; ! return (w+4); } static void tavg_dsp(t_tavgtilde *x, t_signal **sp) { ! x->n_inv=1./sp[0]->s_n; ! dsp_add(tavg_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); } static void *tavg_new(void) { ! t_tavgtilde *x = (t_tavgtilde *)pd_new(tavg_class); ! outlet_new(&x->x_obj, gensym("float")); ! return (x); } static void tavg_help(void) { ! post("tavg~\t\t:: outputs the arithmetic mean of a signal when triggered"); ! post("<bang>\t\t: triggers the output"); } void tavg_tilde_setup(void) { ! tavg_class = class_new(gensym("tavg~"), (t_newmethod)tavg_new, 0, ! sizeof(t_tavgtilde), 0, A_DEFFLOAT, 0); ! class_addmethod(tavg_class, nullfn, gensym("signal"), 0); ! class_addmethod(tavg_class, (t_method)tavg_dsp, gensym("dsp"), 0); ! class_addbang(tavg_class, tavg_bang); ! class_addmethod(tavg_class, (t_method)tavg_help, gensym("help"), 0); zexy_register("tavg~"); } --- 42,85 ---- static t_int *tavg_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); ! t_tavgtilde *x = (t_tavgtilde *)w[2]; ! int n = (int)(w[3]); ! t_sample buf = x->buf; ! while (n--) buf += *in++; ! x->buf = buf; ! x->blocks++; ! return (w+4); } static void tavg_dsp(t_tavgtilde *x, t_signal **sp) { ! x->n_inv=1./sp[0]->s_n; ! dsp_add(tavg_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); } static void *tavg_new(void) { ! t_tavgtilde *x = (t_tavgtilde *)pd_new(tavg_class); ! outlet_new(&x->x_obj, &s_float); ! return (x); } static void tavg_help(void) { ! post("tavg~\t\t:: outputs the arithmetic mean of a signal when triggered"); ! post("<bang>\t\t: triggers the output"); } void tavg_tilde_setup(void) { ! tavg_class = class_new(gensym("tavg~"), (t_newmethod)tavg_new, 0, ! sizeof(t_tavgtilde), 0, A_DEFFLOAT, 0); ! class_addmethod(tavg_class, nullfn, gensym("signal"), 0); ! class_addmethod(tavg_class, (t_method)tavg_dsp, gensym("dsp"), 0); ! class_addbang(tavg_class, tavg_bang); ! class_addmethod(tavg_class, (t_method)tavg_help, gensym("help"), 0); zexy_register("tavg~"); } Index: pack~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/pack~.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** pack~.c 14 Mar 2007 09:08:56 -0000 1.4 --- pack~.c 30 Oct 2007 09:21:52 -0000 1.5 *************** *** 34,38 **** static t_int *sigpack_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); t_sigpack *x = (t_sigpack *)w[2]; int n = (int)(w[3]), i = 0; --- 34,38 ---- static t_int *sigpack_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); t_sigpack *x = (t_sigpack *)w[2]; int n = (int)(w[3]), i = 0; *************** *** 40,46 **** while (n--) { ! SETFLOAT(&buf[i], *in++); i++; } outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer); --- 40,49 ---- while (n--) { ! t_float f=*in++; ! SETFLOAT(&buf[i], f); i++; } + #warning defer list-output to next block with a clock! + outlet_list(x->x_obj.ob_outlet, &s_list, x->vector_length, x->buffer); *************** *** 76,80 **** { sigpack_class = class_new(gensym("pack~"), (t_newmethod)sigpack_new, 0, ! sizeof(t_sigpack), 0, A_DEFFLOAT, 0); class_addmethod(sigpack_class, nullfn, gensym("signal"), 0); class_addmethod(sigpack_class, (t_method)sigpack_dsp, gensym("dsp"), 0); --- 79,83 ---- { sigpack_class = class_new(gensym("pack~"), (t_newmethod)sigpack_new, 0, ! sizeof(t_sigpack), 0, A_DEFFLOAT, 0); class_addmethod(sigpack_class, nullfn, gensym("signal"), 0); class_addmethod(sigpack_class, (t_method)sigpack_dsp, gensym("dsp"), 0); Index: blockswap~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/blockswap~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** blockswap~.c 14 Mar 2007 09:08:55 -0000 1.5 --- blockswap~.c 30 Oct 2007 09:21:51 -0000 1.6 *************** *** 30,34 **** int doit; int blocksize; ! t_float *blockbuffer; } t_blockswap; --- 30,34 ---- int doit; int blocksize; ! t_sample *blockbuffer; } t_blockswap; *************** *** 41,51 **** { t_blockswap *x = (t_blockswap *)(w[1]); ! t_float *in = (t_float *)(w[2]); ! t_float *out = (t_float *)(w[3]); int N = (int)(w[4]); int N2=N/2; if (x->doit) { int n=N2; ! t_float *dummy=x->blockbuffer; while(n--)*dummy++=*in++; n=N-N2; --- 41,51 ---- { t_blockswap *x = (t_blockswap *)(w[1]); ! t_sample *in = (t_sample *)(w[2]); ! t_sample *out = (t_sample *)(w[3]); int N = (int)(w[4]); int N2=N/2; if (x->doit) { int n=N2; ! t_sample *dummy=x->blockbuffer; while(n--)*dummy++=*in++; n=N-N2; *************** *** 61,67 **** { if (x->blocksize*2<sp[0]->s_n){ ! if(x->blockbuffer)freebytes(x->blockbuffer, sizeof(t_float)*x->blocksize); x->blocksize = sp[0]->s_n/2; ! x->blockbuffer = getbytes(sizeof(t_float)*x->blocksize); } dsp_add(blockswap_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); --- 61,67 ---- { if (x->blocksize*2<sp[0]->s_n){ ! if(x->blockbuffer)freebytes(x->blockbuffer, sizeof(*x->blockbuffer)*x->blocksize); x->blocksize = sp[0]->s_n/2; ! x->blockbuffer = getbytes(sizeof(*x->blockbuffer)*x->blocksize); } dsp_add(blockswap_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); *************** *** 79,83 **** { if(x->blockbuffer){ ! freebytes(x->blockbuffer, sizeof(t_float)*x->blocksize); } x->blockbuffer=0; --- 79,83 ---- { if(x->blockbuffer){ ! freebytes(x->blockbuffer, sizeof(*x->blockbuffer)*x->blocksize); } x->blockbuffer=0; *************** *** 96,100 **** { blockswap_class = class_new(gensym("blockswap~"), (t_newmethod)blockswap_new, 0, ! sizeof(t_blockswap), 0, A_NULL); class_addmethod(blockswap_class, nullfn, gensym("signal"), 0); class_addmethod(blockswap_class, (t_method)blockswap_dsp, gensym("dsp"), 0); --- 96,100 ---- { blockswap_class = class_new(gensym("blockswap~"), (t_newmethod)blockswap_new, 0, ! sizeof(t_blockswap), 0, A_NULL); class_addmethod(blockswap_class, nullfn, gensym("signal"), 0); class_addmethod(blockswap_class, (t_method)blockswap_dsp, gensym("dsp"), 0); Index: absgn~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/absgn~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** absgn~.c 14 Mar 2007 09:08:55 -0000 1.5 --- absgn~.c 30 Oct 2007 09:21:51 -0000 1.6 *************** *** 17,21 **** { t_object x_obj; ! float x_f; } t_absgn; --- 17,21 ---- { t_object x_obj; ! t_float x_f; } t_absgn; *************** *** 27,38 **** static t_int *sigABSGN_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); ! t_float *out = (t_float *)(w[2]); ! t_float *out2 = (t_float *)(w[3]); int n = (int)(w[4]); while (n--) ! { ! t_float val = *in++; *out++ = fabsf(val); --- 27,38 ---- static t_int *sigABSGN_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); ! t_sample *out2 = (t_sample *)(w[3]); int n = (int)(w[4]); while (n--) ! { ! t_sample val = *in++; *out++ = fabsf(val); *************** *** 40,44 **** else if (val<0.) *out2++=-1.; else *out2++=0.; ! } --- 40,44 ---- else if (val<0.) *out2++=-1.; else *out2++=0.; ! } *************** *** 95,99 **** Z_SIMD_CHKALIGN(sp[0]->s_vec)&& Z_SIMD_CHKALIGN(sp[1]->s_vec)&& ! Z_SIMD_CHKALIGN(sp[2]->s_vec) ) { --- 95,100 ---- Z_SIMD_CHKALIGN(sp[0]->s_vec)&& Z_SIMD_CHKALIGN(sp[1]->s_vec)&& ! Z_SIMD_CHKALIGN(sp[2]->s_vec)&& ! ZEXY_TYPE_EQUAL(t_sample, float) ) { *************** *** 126,130 **** { sigABSGN_class = class_new(gensym("absgn~"), (t_newmethod)sigABSGN_new, 0, ! sizeof(t_absgn), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigABSGN_class, t_absgn, x_f); class_addmethod(sigABSGN_class, (t_method)sigABSGN_dsp, gensym("dsp"), 0); --- 127,131 ---- { sigABSGN_class = class_new(gensym("absgn~"), (t_newmethod)sigABSGN_new, 0, ! sizeof(t_absgn), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigABSGN_class, t_absgn, x_f); class_addmethod(sigABSGN_class, (t_method)sigABSGN_dsp, gensym("dsp"), 0); Index: blockmirror~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/blockmirror~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** blockmirror~.c 14 Mar 2007 09:08:55 -0000 1.5 --- blockmirror~.c 30 Oct 2007 09:21:51 -0000 1.6 *************** *** 34,38 **** int doit; int blocksize; ! t_float *blockbuffer; } t_blockmirror; --- 34,38 ---- int doit; int blocksize; ! t_sample *blockbuffer; } t_blockmirror; *************** *** 45,55 **** { t_blockmirror *x = (t_blockmirror *)(w[1]); ! t_float *in = (t_float *)(w[2]); ! t_float *out = (t_float *)(w[3]); int n = (int)(w[4]); if (x->doit) { if (in==out){ int N=n; ! t_float *dummy=x->blockbuffer; while(n--)*dummy++=*in++; dummy--; --- 45,55 ---- { t_blockmirror *x = (t_blockmirror *)(w[1]); ! t_sample *in = (t_sample *)(w[2]); ! t_sample *out = (t_sample *)(w[3]); int n = (int)(w[4]); if (x->doit) { if (in==out){ int N=n; ! t_sample *dummy=x->blockbuffer; while(n--)*dummy++=*in++; dummy--; *************** *** 66,72 **** { if (x->blocksize<sp[0]->s_n){ ! if(x->blockbuffer)freebytes(x->blockbuffer, sizeof(t_float)*x->blocksize); x->blocksize = sp[0]->s_n; ! x->blockbuffer = getbytes(sizeof(t_float)*x->blocksize); } dsp_add(blockmirror_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); --- 66,72 ---- { if (x->blocksize<sp[0]->s_n){ ! if(x->blockbuffer)freebytes(x->blockbuffer, sizeof(*x->blockbuffer)*x->blocksize); x->blocksize = sp[0]->s_n; ! x->blockbuffer = getbytes(sizeof(*x->blockbuffer)*x->blocksize); } dsp_add(blockmirror_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); *************** *** 83,87 **** { if(x->blockbuffer) ! freebytes(x->blockbuffer, sizeof(t_float)*x->blocksize); x->blockbuffer=0; } --- 83,87 ---- { if(x->blockbuffer) ! freebytes(x->blockbuffer, sizeof(*x->blockbuffer)*x->blocksize); x->blockbuffer=0; } Index: quantize~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/quantize~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** quantize~.c 14 Mar 2007 09:08:56 -0000 1.6 --- quantize~.c 30 Oct 2007 09:21:52 -0000 1.7 *************** *** 31,75 **** typedef struct _quantize { ! t_object x_obj; ! t_float quantiz, dequantiz; } t_quantize; static void quantize_float(t_quantize *x, t_floatarg f) { ! x->quantiz = f; ! x->dequantiz = 1./f; } static void quantize_16bit(t_quantize *x) { ! x->quantiz = 32768.; ! x->dequantiz = 1./32768.; } static void quantize_8bit(t_quantize *x) { ! x->quantiz = 128.; ! x->dequantiz = 1./128.; } static t_int *quantize_perform(t_int *w) { ! t_quantize *x = (t_quantize *)(w[1]); ! t_float *in = (t_float *)(w[2]); ! t_float *out = (t_float *)(w[3]); ! int n = (int)(w[4]); ! t_float quantiz = x->quantiz, dequantiz = x->dequantiz; ! if (quantiz) ! while (n--) *out++ = dequantiz*(int)(quantiz**in++); ! else while (n--) *out++ = *in++; ! return (w+5); } static void quantize_dsp(t_quantize *x, t_signal **sp) { ! dsp_add(quantize_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); } --- 31,75 ---- typedef struct _quantize { ! t_object x_obj; ! t_sample quantiz, dequantiz; } t_quantize; static void quantize_float(t_quantize *x, t_floatarg f) { ! x->quantiz = f; ! x->dequantiz = 1./f; } static void quantize_16bit(t_quantize *x) { ! x->quantiz = 32768.; ! x->dequantiz = 1./32768.; } static void quantize_8bit(t_quantize *x) { ! x->quantiz = 128.; ! x->dequantiz = 1./128.; } static t_int *quantize_perform(t_int *w) { ! t_quantize *x = (t_quantize *)(w[1]); ! t_sample *in = (t_sample *)(w[2]); ! t_sample *out = (t_sample *)(w[3]); ! int n = (int)(w[4]); ! t_sample quantiz = x->quantiz, dequantiz = x->dequantiz; ! if (quantiz) ! while (n--) *out++ = dequantiz*(int)(quantiz**in++); ! else while (n--) *out++ = *in++; ! return (w+5); } static void quantize_dsp(t_quantize *x, t_signal **sp) { ! dsp_add(quantize_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); } *************** *** 77,88 **** { ZEXY_USEVAR(x); ! post("%c quantize~-object\t:: used for quantizing signals by various degrees", HEARTSYMBOL); ! post("<quants> : quantize a signal into <quants> steps ('0' turns quantizing off)\n" ! "'8bit' : quantize to 8 bit\n" ! "'16bit' : quantize to 16 bit (default)\n" ! "'float' : pass-through the signal unchanged\n" ! "'help' : view this\n" ! "signal~\n"); ! post("creation:: \"quantize~ [<quants>]\""); } --- 77,88 ---- { ZEXY_USEVAR(x); ! post("%c quantize~-object\t:: used for quantizing signals by various degrees", HEARTSYMBOL); ! post("<quants> : quantize a signal into <quants> steps ('0' turns quantizing off)\n" ! "'8bit' : quantize to 8 bit\n" ! "'16bit' : quantize to 16 bit (default)\n" ! "'float' : pass-through the signal unchanged\n" ! "'help' : view this\n" ! "signal~\n"); ! post("creation:: \"quantize~ [<quants>]\""); } *************** *** 90,99 **** static void *quantize_new(t_floatarg f) { ! t_quantize *x = (t_quantize *)pd_new(quantize_class); ! outlet_new(&x->x_obj, gensym("signal")); ! if (f) quantize_float(x, f); ! else quantize_16bit(x); ! return (x); } --- 90,99 ---- static void *quantize_new(t_floatarg f) { ! t_quantize *x = (t_quantize *)pd_new(quantize_class); ! outlet_new(&x->x_obj, gensym("signal")); ! if (f) quantize_float(x, f); ! else quantize_16bit(x); ! return (x); } Index: z~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/z~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** z~.c 14 Mar 2007 09:08:56 -0000 1.5 --- z~.c 30 Oct 2007 09:21:52 -0000 1.6 *************** *** 16,24 **** /* ! here we do some sample-wise delay, so you can do your own FIR-filter-designs ! here are :: "z^(-1)", "z^(-N)" ! to do :: a "lattice~" section ... ! 1302:forum::für::umläute:2000 */ --- 16,24 ---- /* ! here we do some sample-wise delay, so you can do your own FIR-filter-designs ! here are :: "z^(-1)", "z^(-N)" ! to do :: a "lattice~" section ... ! 1302:forum::für::umläute:2000 */ *************** *** 33,37 **** t_object x_obj; ! t_float *buf; int bufsize, phase; --- 33,37 ---- t_object x_obj; ! t_sample *buf; int bufsize, phase; *************** *** 43,49 **** if (i<1)i=1; if (i==x->bufsize)return; ! freebytes(x->buf, x->bufsize*sizeof(t_float)); x->bufsize=i; ! x->buf=(t_float *)getbytes(x->bufsize*sizeof(t_float)); x->phase=0; } --- 43,49 ---- if (i<1)i=1; if (i==x->bufsize)return; ! freebytes(x->buf, x->bufsize*sizeof(t_sample)); x->bufsize=i; ! x->buf=(t_sample *)getbytes(x->bufsize*sizeof(t_sample)); x->phase=0; } *************** *** 51,60 **** static t_int *zN_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); ! t_float *out = (t_float *)(w[2]); t_zNdelay *x = (t_zNdelay *)(w[3]); int n = (int)(w[4]); ! t_float *buf = x->buf; int bufsize=x->bufsize, ph=x->phase; --- 51,60 ---- static t_int *zN_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); t_zNdelay *x = (t_zNdelay *)(w[3]); int n = (int)(w[4]); ! t_sample *buf = x->buf; int bufsize=x->bufsize, ph=x->phase; *************** *** 62,66 **** if (in!=out)while(n--)*out++=*in++; } else if (bufsize==2) { ! register t_float f, last=*buf; while(n--){ f=*in++; --- 62,66 ---- if (in!=out)while(n--)*out++=*in++; } else if (bufsize==2) { ! register t_sample f, last=*buf; while(n--){ f=*in++; *************** *** 89,93 **** t_zNdelay *x = (t_zNdelay *)pd_new(zNdelay_class); int i = f; ! t_float *b; if (i<=0) i=1; --- 89,93 ---- t_zNdelay *x = (t_zNdelay *)pd_new(zNdelay_class); int i = f; ! t_sample *b; if (i<=0) i=1; *************** *** 95,99 **** x->bufsize = i; ! x->buf = (t_float *)getbytes(sizeof(t_float) * x->bufsize); b=x->buf; while (i--) { --- 95,99 ---- x->bufsize = i; ! x->buf = (t_sample *)getbytes(sizeof(t_sample) * x->bufsize); b=x->buf; while (i--) { *************** *** 109,113 **** static void zNdelay_free(t_zNdelay *x) { ! freebytes(x->buf, sizeof(t_float) * x->bufsize); } --- 109,113 ---- static void zNdelay_free(t_zNdelay *x) { ! freebytes(x->buf, sizeof(t_sample) * x->bufsize); } Index: pdf~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/pdf~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** pdf~.c 14 Mar 2007 09:08:56 -0000 1.5 --- pdf~.c 30 Oct 2007 09:21:52 -0000 1.6 *************** *** 69,73 **** static t_int *pdf_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); t_pdf *x = (t_pdf *)(w[2]); int n = (int)(w[3]); --- 69,73 ---- static t_int *pdf_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); t_pdf *x = (t_pdf *)(w[2]); int n = (int)(w[3]); *************** *** 78,82 **** while (n--) { ! t_float f = *in++; int iindex = ((f + 1.0) * halfsize)+0.5; buf[(iindex<0)?0:((iindex>=x->size)?x->size-1:iindex)]+=1.; --- 78,82 ---- while (n--) { ! t_sample f = *in++; int iindex = ((f + 1.0) * halfsize)+0.5; buf[(iindex<0)?0:((iindex>=x->size)?x->size-1:iindex)]+=1.; *************** *** 99,103 **** x->size = (i)?i:64; ! x->buf = (t_float *)getbytes(x->size * sizeof(t_float)); buf = x->buf; clear_pdfbuf(x); --- 99,103 ---- x->size = (i)?i:64; ! x->buf = (t_float *)getbytes(x->size * sizeof(*x->buf)); buf = x->buf; clear_pdfbuf(x); *************** *** 110,124 **** static void pdf_free(t_pdf *x) { ! freebytes(x->buf, x->size*sizeof(t_float)); } static void pdf_tilde_helper(void) { ! post("\n%c pdf~\t:: get the probability density function of a signal (-1.0 to +1.0)", HEARTSYMBOL); ! post("'bang'\t : output a list of the probabilities of 'n' function values" ! "\n'clear'\t : clear the buffer (set all probabilities to zero)" ! "\n<1/0>\t : short for 'bang' and 'clear'" ! "\n'help'\t : view this"); ! post("creation :: 'pdf~ [<n>]':: get the pdf for <n> (default: 64) values"); } --- 110,125 ---- static void pdf_free(t_pdf *x) { ! if(x->buf) ! freebytes(x->buf, x->size*sizeof(*x->buf)); } static void pdf_tilde_helper(void) { ! post("\n%c pdf~\t:: get the probability density function of a signal (-1.0 to +1.0)", HEARTSYMBOL); ! post("'bang'\t : output a list of the probabilities of 'n' function values" ! "\n'clear'\t : clear the buffer (set all probabilities to zero)" ! "\n<1/0>\t : short for 'bang' and 'clear'" ! "\n'help'\t : view this"); ! post("creation :: 'pdf~ [<n>]':: get the pdf for <n> (default: 64) values"); } Index: avg~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/avg~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** avg~.c 14 Mar 2007 09:08:55 -0000 1.5 --- avg~.c 30 Oct 2007 09:21:51 -0000 1.6 *************** *** 25,33 **** typedef struct _avg { ! t_object x_obj; ! t_float n_inv; ! t_float buf; ! int blocks; } t_avg; --- 25,32 ---- typedef struct _avg { ! t_object x_obj; ! t_float n_inv; ! int blocks; } t_avg; *************** *** 37,72 **** static t_int *avg_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); ! t_avg *x = (t_avg *)w[2]; ! int n = (int)(w[3]); ! t_float buf = 0.; ! while (n--) { ! buf += *in++; } ! outlet_float(x->x_obj.ob_outlet, buf*x->n_inv); ! return (w+4); } static void avg_dsp(t_avg *x, t_signal **sp) { ! x->n_inv=1./sp[0]->s_n; ! dsp_add(avg_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); } static void *avg_new(void) { ! t_avg *x = (t_avg *)pd_new(avg_class); ! outlet_new(&x->x_obj, gensym("float")); ! return (x); } static void avg_help(void) { ! post("avg~\t:: outputs the arithmetic mean of each signal-vector"); } --- 36,71 ---- static t_int *avg_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); ! t_avg *x = (t_avg *)w[2]; ! int n = (int)(w[3]); ! t_sample buf = 0.; ! while (n--) { ! buf += *in++; } ! outlet_float(x->x_obj.ob_outlet, buf*x->n_inv); ! return (w+4); } static void avg_dsp(t_avg *x, t_signal **sp) { ! x->n_inv=1./sp[0]->s_n; ! dsp_add(avg_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); } static void *avg_new(void) { ! t_avg *x = (t_avg *)pd_new(avg_class); ! outlet_new(&x->x_obj, &s_float); ! return (x); } static void avg_help(void) { ! post("avg~\t:: outputs the arithmetic mean of each signal-vector"); } *************** *** 74,83 **** void avg_tilde_setup(void) { ! avg_class = class_new(gensym("avg~"), (t_newmethod)avg_new, 0, ! sizeof(t_avg), 0, A_DEFFLOAT, 0); ! class_addmethod(avg_class, nullfn, gensym("signal"), 0); ! class_addmethod(avg_class, (t_method)avg_dsp, gensym("dsp"), 0); ! class_addmethod(avg_class, (t_method)avg_help, gensym("help"), 0); zexy_register("avg~"); } --- 73,82 ---- void avg_tilde_setup(void) { ! avg_class = class_new(gensym("avg~"), (t_newmethod)avg_new, 0, ! sizeof(t_avg), 0, A_DEFFLOAT, 0); ! class_addmethod(avg_class, nullfn, gensym("signal"), 0); ! class_addmethod(avg_class, (t_method)avg_dsp, gensym("dsp"), 0); ! class_addmethod(avg_class, (t_method)avg_help, gensym("help"), 0); zexy_register("avg~"); } Index: sigzero~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/sigzero~.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** sigzero~.c 14 Mar 2007 09:08:56 -0000 1.7 --- sigzero~.c 30 Oct 2007 09:21:52 -0000 1.8 *************** *** 16,21 **** /* ------------------------ sigzero~ ----------------------------- */ /* ! a very useful function, which detects, whether a signal is zeroes-only this block or not ! this is really great together with the "switch~"-object */ --- 16,21 ---- /* ------------------------ sigzero~ ----------------------------- */ /* ! a very useful function, which detects, whether a signal is zeroes-only this block or not ! this is really great together with the "switch~"-object */ *************** *** 27,89 **** typedef struct _sigzero { ! t_object x_obj; ! int activate; ! int current; /* 0 == (signalblock == 0); 1==(signalblock != 0) */ } t_sigzero; static void sigzero_activate(t_sigzero *x, t_floatarg activate) { ! x->activate = (activate)?1:0; } static void sigzero_banged(t_sigzero *x) { ! x->activate = 1; } static void sigzero_off(t_sigzero *x) { ! x->activate = 0; } static t_int *sigzero_perform(t_int *w) { ! t_float *in = (t_float *)w[1]; ! t_sigzero *x = (t_sigzero *)w[2]; ! int n = (int)w[3]; ! int non_zero = 0; ! if (x->activate) { ! while (n--) ! { ! if (*in++ != 0.) { ! non_zero = 1; ! break; ! } ! } ! if (non_zero != x->current) { ! outlet_float(x->x_obj.ob_outlet, x->current = non_zero); ! } ! // else post("non_zero=%d\tcurrent=%d", non_zero, x->current); ! } ! return (w+4); } static void sigzero_dsp(t_sigzero *x, t_signal **sp) { ! dsp_add(sigzero_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); } static void sigzero_tilde_helper(void) { ! post("\n%c sigzero~-object :: for detecting whether a signal is currently zero or not", HEARTSYMBOL); ! post("'bang'\t: turn the detector on\n" ! "'off'\t: turn it off\n" ! "<1/0>\t: turn it on/off\n" ! "'help'\t: view this\n" ! "signal~"); ! post("outlet :: 1/0\t: signal turned to non-zero/zero\n"); } --- 27,88 ---- typedef struct _sigzero { ! t_object x_obj; ! int activate; ! int current; /* 0 == (signalblock == 0); 1==(signalblock != 0) */ } t_sigzero; static void sigzero_activate(t_sigzero *x, t_floatarg activate) { ! x->activate = (activate)?1:0; } static void sigzero_banged(t_sigzero *x) { ! x->activate = 1; } static void sigzero_off(t_sigzero *x) { ! x->activate = 0; } static t_int *sigzero_perform(t_int *w) { ! t_sample *in = (t_sample *)w[1]; ! t_sigzero *x = (t_sigzero *)w[2]; ! int n = (int)w[3]; ! int non_zero = 0; ! if (x->activate) { ! while (n--) ! { ! if (*in++ != 0.) { ! non_zero = 1; ! break; ! } ! } ! if (non_zero != x->current) { ! outlet_float(x->x_obj.ob_outlet, x->current = non_zero); ! } ! } ! return (w+4); } static void sigzero_dsp(t_sigzero *x, t_signal **sp) { ! dsp_add(sigzero_perform, 3, sp[0]->s_vec, x, sp[0]->s_n); } static void sigzero_tilde_helper(void) { ! post("\n%c sigzero~-object :: for detecting whether a signal is currently zero or not", HEARTSYMBOL); ! post("'bang'\t: turn the detector on\n" ! "'off'\t: turn it off\n" ! "<1/0>\t: turn it on/off\n" ! "'help'\t: view this\n" ! "signal~"); ! post("outlet :: 1/0\t: signal turned to non-zero/zero\n"); } *************** *** 97,110 **** void sigzero_tilde_setup(void) { ! sigzero_class = class_new(gensym("sigzero~"), (t_newmethod)sigzero_new, 0, ! sizeof(t_sigzero), 0, 0); ! class_addfloat(sigzero_class, sigzero_activate); ! class_addbang(sigzero_class, sigzero_banged); ! class_addmethod(sigzero_class, (t_method)sigzero_off, gensym("off"), 0); ! class_addmethod(sigzero_class, nullfn, gensym("signal"), 0); ! class_addmethod(sigzero_class, (t_method)sigzero_dsp, gensym("dsp"), 0); ! class_addmethod(sigzero_class, (t_method)sigzero_tilde_helper, gensym("help"), 0); zexy_register("sigzero~"); } --- 96,109 ---- void sigzero_tilde_setup(void) { ! sigzero_class = class_new(gensym("sigzero~"), (t_newmethod)sigzero_new, 0, ! sizeof(t_sigzero), 0, 0); ! class_addfloat(sigzero_class, sigzero_activate); ! class_addbang(sigzero_class, sigzero_banged); ! class_addmethod(sigzero_class, (t_method)sigzero_off, gensym("off"), 0); ! class_addmethod(sigzero_class, nullfn, gensym("signal"), 0); ! class_addmethod(sigzero_class, (t_method)sigzero_dsp, gensym("dsp"), 0); ! class_addmethod(sigzero_class, (t_method)sigzero_tilde_helper, gensym("help"), 0); zexy_register("sigzero~"); } Index: envrms~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/envrms~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** envrms~.c 14 Mar 2007 09:08:56 -0000 1.5 --- envrms~.c 30 Oct 2007 09:21:52 -0000 1.6 *************** *** 28,41 **** typedef struct sigenvrms { ! t_object x_obj; /* header */ ! void *x_outlet; /* a "float" outlet */ ! void *x_clock; /* a "clock" object */ ! float *x_buf; /* a Hanning window */ ! int x_phase; /* number of points since last output */ ! int x_period; /* requested period of output */ ! int x_realperiod; /* period rounded up to vecsize multiple */ ! int x_npoints; /* analysis window size in samples */ ! float x_result; /* result to output */ ! float x_sumbuf[MAXOVERLAP]; /* summing buffer */ } t_sigenvrms; --- 28,41 ---- typedef struct sigenvrms { ! t_object x_obj; /* header */ ! void *x_outlet; /* a "float" outlet */ ! void *x_clock; /* a "clock" object */ ! t_sample *x_buf; /* a Hanning window */ ! int x_phase; /* number of points since last output */ ! int x_period; /* requested period of output */ ! int x_realperiod; /* period rounded up to vecsize multiple */ ! int x_npoints; /* analysis window size in samples */ ! t_float x_result; /* result to output */ ! t_sample x_sumbuf[MAXOVERLAP]; /* summing buffer */ } t_sigenvrms; *************** *** 44,137 **** static void *sigenvrms_new(t_floatarg fnpoints, t_floatarg fperiod) { ! int npoints = fnpoints; ! int period = fperiod; ! t_sigenvrms *x; ! float *buf; ! int i; ! if (npoints < 1) npoints = 1024; ! if (period < 1) period = npoints/2; ! if (period < npoints / MAXOVERLAP + 1) ! period = npoints / MAXOVERLAP + 1; ! if (!(buf = getbytes(sizeof(float) * (npoints + MAXVSTAKEN)))) { ! error("env: couldn't allocate buffer"); ! return (0); } ! x = (t_sigenvrms *)pd_new(sigenvrms_class); ! x->x_buf = buf; ! x->x_npoints = npoints; ! x->x_phase = 0; ! x->x_period = period; ! for (i = 0; i < MAXOVERLAP; i++) x->x_sumbuf[i] = 0; ! for (i = 0; i < npoints; i++) ! buf[i] = (1. - cos((2 * 3.141592654 * i) / npoints))/npoints; ! for (; i < npoints+MAXVSTAKEN; i++) buf[i] = 0; ! x->x_clock = clock_new(x, (t_method)sigenvrms_tick); ! x->x_outlet = outlet_new(&x->x_obj, gensym("float")); ! return (x); } static t_int *sigenvrms_perform(t_int *w) { ! t_sigenvrms *x = (t_sigenvrms *)(w[1]); ! t_float *in = (t_float *)(w[2]); ! int n = (int)(w[3]); ! int count; ! float *sump; ! in += n; ! for (count = x->x_phase, sump = x->x_sumbuf; ! count < x->x_npoints; count += x->x_realperiod, sump++) { ! float *hp = x->x_buf + count; ! float *fp = in; ! float sum = *sump; ! int i; ! for (i = 0; i < n; i++) { ! fp--; ! sum += *hp++ * (*fp * *fp); } ! *sump = sum; } ! sump[0] = 0; ! x->x_phase -= n; ! if (x->x_phase < 0) { ! x->x_result = x->x_sumbuf[0]; ! for (count = x->x_realperiod, sump = x->x_sumbuf; ! count < x->x_npoints; count += x->x_realperiod, sump++) ! sump[0] = sump[1]; ! sump[0] = 0; ! x->x_phase = x->x_realperiod - n; ! clock_delay(x->x_clock, 0L); } ! return (w+4); } static void sigenvrms_dsp(t_sigenvrms *x, t_signal **sp) { ! if (x->x_period % sp[0]->s_n) x->x_realperiod = ! x->x_period + sp[0]->s_n - (x->x_period % sp[0]->s_n); ! else x->x_realperiod = x->x_period; ! dsp_add(sigenvrms_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); ! if (sp[0]->s_n > MAXVSTAKEN) bug("sigenvrms_dsp"); } static void sigenvrms_tick(t_sigenvrms *x) /* callback function for the clock */ { ! outlet_float(x->x_outlet, sqrtf(x->x_result)); } static void sigenvrms_ff(t_sigenvrms *x) /* cleanup on free */ { ! clock_free(x->x_clock); ! freebytes(x->x_buf, (x->x_npoints + MAXVSTAKEN) * sizeof(float)); } static void sigenvrms_help(void) { ! post("envrms~\t:: envelope follower that does output rms instead of dB"); } --- 44,137 ---- static void *sigenvrms_new(t_floatarg fnpoints, t_floatarg fperiod) { ! int npoints = fnpoints; ! int period = fperiod; ! t_sigenvrms *x; ! t_sample *buf; ! int i; ! if (npoints < 1) npoints = 1024; ! if (period < 1) period = npoints/2; ! if (period < npoints / MAXOVERLAP + 1) ! period = npoints / MAXOVERLAP + 1; ! if (!(buf = getbytes(sizeof(*buf) * (npoints + MAXVSTAKEN)))) { ! error("env: couldn't allocate buffer"); ! return (0); } ! x = (t_sigenvrms *)pd_new(sigenvrms_class); ! x->x_buf = buf; ! x->x_npoints = npoints; ! x->x_phase = 0; ! x->x_period = period; ! for (i = 0; i < MAXOVERLAP; i++) x->x_sumbuf[i] = 0; ! for (i = 0; i < npoints; i++) ! buf[i] = (1. - cos((2 * 3.141592654 * i) / npoints))/npoints; ! for (; i < npoints+MAXVSTAKEN; i++) buf[i] = 0; ! x->x_clock = clock_new(x, (t_method)sigenvrms_tick); ! x->x_outlet = outlet_new(&x->x_obj, &s_float); ! return (x); } static t_int *sigenvrms_perform(t_int *w) { ! t_sigenvrms *x = (t_sigenvrms *)(w[1]); ! t_sample *in = (t_sample *)(w[2]); ! int n = (int)(w[3]); ! int count; ! t_sample *sump; ! in += n; ! for (count = x->x_phase, sump = x->x_sumbuf; ! count < x->x_npoints; count += x->x_realperiod, sump++) { ! t_sample *hp = x->x_buf + count; ! t_sample *fp = in; ! t_sample sum = *sump; ! int i; ! for (i = 0; i < n; i++) { ! fp--; ! sum += *hp++ * (*fp * *fp); } ! *sump = sum; } ! sump[0] = 0; ! x->x_phase -= n; ! if (x->x_phase < 0) { ! x->x_result = x->x_sumbuf[0]; ! for (count = x->x_realperiod, sump = x->x_sumbuf; ! count < x->x_npoints; count += x->x_realperiod, sump++) ! sump[0] = sump[1]; ! sump[0] = 0; ! x->x_phase = x->x_realperiod - n; ! clock_delay(x->x_clock, 0L); } ! return (w+4); } static void sigenvrms_dsp(t_sigenvrms *x, t_signal **sp) { ! if (x->x_period % sp[0]->s_n) x->x_realperiod = ! x->x_period + sp[0]->s_n - (x->x_period % sp[0]->s_n); ! else x->x_realperiod = x->x_period; ! dsp_add(sigenvrms_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); ! if (sp[0]->s_n > MAXVSTAKEN) bug("sigenvrms_dsp"); } static void sigenvrms_tick(t_sigenvrms *x) /* callback function for the clock */ { ! outlet_float(x->x_outlet, sqrtf(x->x_result)); } static void sigenvrms_ff(t_sigenvrms *x) /* cleanup on free */ { ! clock_free(x->x_clock); ! freebytes(x->x_buf, (x->x_npoints + MAXVSTAKEN) * sizeof(*x->x_buf)); } static void sigenvrms_help(void) { ! post("envrms~\t:: envelope follower that does output rms instead of dB"); } *************** *** 139,148 **** void envrms_tilde_setup(void) { ! sigenvrms_class = class_new(gensym("envrms~"), (t_newmethod)sigenvrms_new, ! (t_method)sigenvrms_ff, sizeof(t_sigenvrms), 0, A_DEFFLOAT, A_DEFFLOAT, 0); ! class_addmethod(sigenvrms_class, nullfn, gensym("signal"), 0); ! class_addmethod(sigenvrms_class, (t_method)sigenvrms_dsp, gensym("dsp"), 0); ! class_addmethod(sigenvrms_class, (t_method)sigenvrms_help, gensym("help"), 0); zexy_register("envrms~"); } --- 139,148 ---- void envrms_tilde_setup(void) { ! sigenvrms_class = class_new(gensym("envrms~"), (t_newmethod)sigenvrms_new, ! (t_method)sigenvrms_ff, sizeof(t_sigenvrms), 0, A_DEFFLOAT, A_DEFFLOAT, 0); ! class_addmethod(sigenvrms_class, nullfn, gensym("signal"), 0); ! class_addmethod(sigenvrms_class, (t_method)sigenvrms_dsp, gensym("dsp"), 0); ! class_addmethod(sigenvrms_class, (t_method)sigenvrms_help, gensym("help"), 0); zexy_register("envrms~"); } Index: abs~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/abs~.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** abs~.c 14 Mar 2007 09:08:55 -0000 1.4 --- abs~.c 30 Oct 2007 09:21:51 -0000 1.5 *************** *** 26,30 **** { t_object x_obj; ! float x_f; } t_abs; --- 26,30 ---- { t_object x_obj; ! t_float x_f; } t_abs; *************** *** 36,41 **** static t_int *sigABS_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); ! t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); --- 36,41 ---- static t_int *sigABS_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); int n = (int)(w[3]); *************** *** 72,76 **** * but still about 4* as fast as the generic code * i prefer using intrinsics as i don't have to learn how to ! * assemble */ asm( --- 72,76 ---- * but still about 4* as fast as the generic code * i prefer using intrinsics as i don't have to learn how to ! * assembler */ asm( *************** *** 120,129 **** static void sigABS_dsp(t_abs *x, t_signal **sp) { - ZEXY_USEVAR(x); #ifdef __SSE__ if( Z_SIMD_CHKBLOCKSIZE(sp[0]->s_n)&& Z_SIMD_CHKALIGN(sp[0]->s_vec)&& ! Z_SIMD_CHKALIGN(sp[1]->s_vec)) { dsp_add(sigABS_performSSE, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); --- 120,130 ---- static void sigABS_dsp(t_abs *x, t_signal **sp) { #ifdef __SSE__ if( Z_SIMD_CHKBLOCKSIZE(sp[0]->s_n)&& Z_SIMD_CHKALIGN(sp[0]->s_vec)&& ! Z_SIMD_CHKALIGN(sp[1]->s_vec)&& ! ZEXY_TYPE_EQUAL(t_sample, float) ! ) { dsp_add(sigABS_performSSE, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); Index: blockshuffle~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/blockshuffle~.c,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** blockshuffle~.c 14 Mar 2007 09:08:55 -0000 1.3 --- blockshuffle~.c 30 Oct 2007 09:21:51 -0000 1.4 *************** *** 68,72 **** } x->shufflesize=argc; ! x->shuffle=getbytes(sizeof(t_float)*argc); for(i=0; i<argc; i++){ --- 68,72 ---- } x->shufflesize=argc; ! x->shuffle=getbytes(sizeof(*x->shuffle)*argc); for(i=0; i<argc; i++){ *************** *** 87,97 **** if(idx){ ! for(i=0; i<n; i++){ ! temp[i]=in[idx[i]]; ! } ! temp=x->blockbuf; ! for(i=0; i<n; i++){ ! *out++=*temp++; ! } } else while(n--)*out++=*in++; --- 87,97 ---- if(idx){ ! for(i=0; i<n; i++){ ! temp[i]=in[idx[i]]; ! } ! temp=x->blockbuf; ! for(i=0; i<n; i++){ ! *out++=*temp++; ! } } else while(n--)*out++=*in++; *************** *** 115,121 **** } static void blockshuffle_free(t_blockshuffle *x){ ! if(x->indices) freebytes(x->indices, sizeof(t_int) *x->size); ! if(x->blockbuf)freebytes(x->blockbuf, sizeof(t_sample)*x->size); ! if(x->shuffle) freebytes(x->shuffle, sizeof(t_float) *x->shufflesize); } --- 115,121 ---- } static void blockshuffle_free(t_blockshuffle *x){ ! if(x->indices) freebytes(x->indices, sizeof(*x->indices) *x->size); ! if(x->blockbuf)freebytes(x->blockbuf, sizeof(*x->blockbuf)*x->size); ! if(x->shuffle) freebytes(x->shuffle, sizeof(*x->shuffle) *x->shufflesize); } Index: sgn~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/sgn~.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** sgn~.c 14 Mar 2007 09:08:56 -0000 1.7 --- sgn~.c 30 Oct 2007 09:21:52 -0000 1.8 *************** *** 35,42 **** static t_int *sgnTilde_perform(t_int *w) { ! t_float *in = (t_float *)(w[1]); ! t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); ! t_float x; while (n--) { if ((x=*in++)>0.) *out++=1.; --- 35,42 ---- static t_int *sgnTilde_perform(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); int n = (int)(w[3]); ! t_sample x; while (n--) { if ((x=*in++)>0.) *out++=1.; *************** *** 49,71 **** static t_int *sgnTilde_perform8(t_int *w) { ! t_float *in = (t_float *)(w[1]); ! t_float *out = (t_float *)(w[2]); int n = (int)(w[3])>>3; ! t_float x; ! while(n--){ ! /* weirdly enough, the if/else/if/else is a lot faster than ()?:(()?:) */ ! if ((x=in[0])>0.) out[0]=1.; else if(x<0.) out[0]=-1.; else out[0]=0.; ! if ((x=in[1])>0.) out[1]=1.; else if(x<0.) out[1]=-1.; else out[1]=0.; ! if ((x=in[2])>0.) out[2]=1.; else if(x<0.) out[2]=-1.; else out[2]=0.; ! if ((x=in[3])>0.) out[3]=1.; else if(x<0.) out[3]=-1.; else out[3]=0.; ! if ((x=in[4])>0.) out[4]=1.; else if(x<0.) out[4]=-1.; else out[4]=0.; ! if ((x=in[5])>0.) out[5]=1.; else if(x<0.) out[5]=-1.; else out[5]=0.; ! if ((x=in[6])>0.) out[6]=1.; else if(x<0.) out[6]=-1.; else out[6]=0.; ! if ((x=in[7])>0.) out[7]=1.; else if(x<0.) out[7]=-1.; else out[7]=0.; ! in+=8; ! out+=8; ! } return (w+4); --- 49,71 ---- static t_int *sgnTilde_perform8(t_int *w) { ! t_sample *in = (t_sample *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); int n = (int)(w[3])>>3; ! t_sample x; ! while(n--){ ! /* weirdly enough, the if/else/if/else is a lot faster than ()?:(()?:) */ ! if ((x=in[0])>0.) out[0]=1.; else if(x<0.) out[0]=-1.; else out[0]=0.; ! if ((x=in[1])>0.) out[1]=1.; else if(x<0.) out[1]=-1.; else out[1]=0.; ! if ((x=in[2])>0.) out[2]=1.; else if(x<0.) out[2]=-1.; else out[2]=0.; ! if ((x=in[3])>0.) out[3]=1.; else if(x<0.) out[3]=-1.; else out[3]=0.; ! if ((x=in[4])>0.) out[4]=1.; else if(x<0.) out[4]=-1.; else out[4]=0.; ! if ((x=in[5])>0.) out[5]=1.; else if(x<0.) out[5]=-1.; else out[5]=0.; ! if ((x=in[6])>0.) out[6]=1.; else if(x<0.) out[6]=-1.; else out[6]=0.; ! if ((x=in[7])>0.) out[7]=1.; else if(x<0.) out[7]=-1.; else out[7]=0.; ! in+=8; ! out+=8; ! } return (w+4); *************** *** 112,121 **** static void sgnTilde_dsp(t_sgnTilde *x, t_signal **sp) { - ZEXY_USEVAR(x); #ifdef __SSE__ if( Z_SIMD_CHKBLOCKSIZE(sp[0]->s_n)&& Z_SIMD_CHKALIGN(sp[0]->s_vec)&& ! Z_SIMD_CHKALIGN(sp[1]->s_vec)) { dsp_add(sgnTilde_performSSE, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); --- 112,122 ---- static void sgnTilde_dsp(t_sgnTilde *x, t_signal **sp) { #ifdef __SSE__ if( Z_SIMD_CHKBLOCKSIZE(sp[0]->s_n)&& Z_SIMD_CHKALIGN(sp[0]->s_vec)&& ! Z_SIMD_CHKALIGN(sp[1]->s_vec)&& ! ZEXY_TYPE_EQUAL(t_sample, float) // currently SSE2 code is only for float (not for double) ! ) { dsp_add(sgnTilde_performSSE, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); *************** *** 146,150 **** { sgnTilde_class = class_new(gensym("sgn~"), (t_newmethod)sgnTilde_new, 0, ! sizeof(t_sgnTilde), 0, A_DEFFLOAT, 0); class_addmethod(sgnTilde_class, nullfn, gensym("signal"), 0); class_addmethod(sgnTilde_class, (t_method)sgnTilde_dsp, gensym("dsp"), 0); --- 147,151 ---- { sgnTilde_class = class_new(gensym("sgn~"), (t_newmethod)sgnTilde_new, 0, ! sizeof(t_sgnTilde), 0, A_DEFFLOAT, 0); class_addmethod(sgnTilde_class, nullfn, gensym("signal"), 0); class_addmethod(sgnTilde_class, (t_method)sgnTilde_dsp, gensym("dsp"), 0); Index: step~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/step~.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** step~.c 14 Mar 2007 09:08:56 -0000 1.4 --- step~.c 30 Oct 2007 09:21:52 -0000 1.5 *************** *** 15,27 **** /* ! step~ : will make a unity step at a desired point in the signal-vector; the second input specifies a ! length: after the so-specified time has elapsed, the step will toggle back to the previous ! value; ! the length can be passed as an argument when creating the object ! with length==1 you might do the dirac~ thing a little bit more complicated ! with length==0 the output just toggles between 0 and 1 every time you bang the object ! NOTE : the inlets do NOT specify any times but sample-NUMBERS; there are 64 samples in a signal-vector, ! each "lasting" for 1/44100 secs. */ --- 15,27 ---- /* ! step~ : will make a unity step at a desired point in the signal-vector; the second input specifies a ! length: after the so-specified time has elapsed, the step will toggle back to the previous ! value; ! the length can be passed as an argument when creating the object ! with length==1 you might do the dirac~ thing a little bit more complicated ! with length==0 the output just toggles between 0 and 1 every time you bang the object ! NOTE : the inlets do NOT specify any times but sample-NUMBERS; there are 64 samples in a signal-vector, ! each "lasting" for 1/44100 secs. */ *************** *** 34,63 **** typedef struct _step { ! t_object x_obj; ! int position; ! int length; ! int toggle; ! int wait4start; ! int wait4stop; } t_step; static void step_bang(t_step *x) { ! x->wait4stop = x->length + (x->wait4start = x->position); } static void step_float(t_step *x, t_float where) { ! x->wait4stop = x->length + ! (x->wait4start = ! (x->position = (where>0)*where) ! ); } static void step_setlength(t_step *x, t_float arg) { ! x->length = 1 + (arg>0)*arg; } --- 34,63 ---- typedef struct _step { ! t_object x_obj; ! int position; ! int length; ! int toggle; ! int wait4start; ! int wait4stop; } t_step; static void step_bang(t_step *x) { ! x->wait4stop = x->length + (x->wait4start = x->position); } static void step_float(t_step *x, t_float where) { ! x->wait4stop = x->length + ! (x->wait4start = ! (x->position = (where>0)*where) ! ); } static void step_setlength(t_step *x, t_float arg) { ! x->length = 1 + (arg>0)*arg; } *************** *** 66,96 **** static t_int *step_perform(t_int *w) { ! t_step *x = (t_step *)(w[1]); ! t_float *out = (t_float *)(w[2]); ! int n = (int)(w[3]); ! int toggle = x->toggle; ! int wait4start = x->wait4start, wait4stop = x->wait4stop; ! while (n--) ! { ! wait4stop--; ! if (!wait4start--) toggle ^= 1; ! else if (!wait4stop) toggle ^= 1; ! *out++ = toggle; ! } ! x->wait4start = wait4start; ! x->wait4stop = wait4stop; ! x->toggle = toggle; ! return (w+4); } static void step_dsp(t_step *x, t_signal **sp) { ! dsp_add(step_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); } --- 66,96 ---- static t_int *step_perform(t_int *w) { ! t_step *x = (t_step *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); ! int n = (int)(w[3]); ! int toggle = x->toggle; ! int wait4start = x->wait4start, wait4stop = x->wait4stop; ! while (n--) ! { ! wait4stop--; ! if (!wait4start--) toggle ^= 1; ! else if (!wait4stop) toggle ^= 1; ! *out++ = toggle; ! } ! x->wait4start = wait4start; ! x->wait4stop = wait4stop; ! x->toggle = toggle; ! return (w+4); } static void step_dsp(t_step *x, t_signal **sp) { ! dsp_add(step_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); } *************** *** 98,109 **** static void step_helper(void) { ! post("%c step~-object :: generates a unity-step", HEARTSYMBOL); ! post("creation : \"dirac~ [<position> [<length>]]\" : create a rectangular window\n" ! "\t\t\tat specified position and with specified length (in samples)\n" ! "inlet1\t: <position>\t: create a rectangular window at new position\n" ! "\t 'bang'\t: create a rectangular window at specified position\n" ! "\t 'help'\t: view this\n" ! "inlet2\t: <length>\t: define new window length ('0' will make a unity-step)\n" ! "outlet\t: signal~"); } --- 98,109 ---- static void step_helper(void) { ! post("%c step~-object :: generates a unity-step", HEARTSYMBOL); ! post("creation : \"dirac~ [<position> [<length>]]\" : create a rectangular window\n" ! "\t\t\tat specified position and with specified length (in samples)\n" ! "inlet1\t: <position>\t: create a rectangular window at new position\n" ! "\t 'bang'\t: create a rectangular window at specified position\n" ! "\t 'help'\t: view this\n" ! "inlet2\t: <length>\t: define new window length ('0' will make a unity-step)\n" ! "outlet\t: signal~"); } *************** *** 111,139 **** static void *step_new(t_floatarg farg) { ! t_step *x = (t_step *)pd_new(step_class); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1")); ! outlet_new(&x->x_obj, gensym("signal")); ! x->position = 0; ! x->wait4start = x->wait4stop = 0; ! x->toggle = 1; ! step_setlength(x, farg); ! return (x); } void step_tilde_setup(void) { ! step_class = class_new(gensym("step~"), (t_newmethod)step_new, 0, ! sizeof(t_step), 0, A_DEFFLOAT, 0); ! class_addfloat(step_class, step_float); ! class_addbang(step_class, step_bang); ! class_addmethod(step_class, (t_method)step_setlength, gensym("ft1"), A_FLOAT, 0); ! class_addmethod(step_class, (t_method)step_dsp, gensym("dsp"), 0); ! class_addmethod(step_class, (t_method)step_helper, gensym("help"), 0); zexy_register("step~"); --- 111,139 ---- static void *step_new(t_floatarg farg) { ! t_step *x = (t_step *)pd_new(step_class); ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1")); ! outlet_new(&x->x_obj, &s_signal); ! x->position = 0; ! x->wait4start = x->wait4stop = 0; ! x->toggle = 1; ! step_setlength(x, farg); ! return (x); } void step_tilde_setup(void) { ! step_class = class_new(gensym("step~"), (t_newmethod)step_new, 0, ! sizeof(t_step), 0, A_DEFFLOAT, 0); ! class_addfloat(step_class, step_float); ! class_addbang(step_class, step_bang); ! class_addmethod(step_class, (t_method)step_setlength, gensym("ft1"), A_FLOAT, 0); ! class_addmethod(step_class, (t_method)step_dsp, gensym("dsp"), 0); ! class_addmethod(step_class, (t_method)step_helper, gensym("help"), 0); zexy_register("step~"); Index: multiline~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/multiline~.c,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** multiline~.c 14 Mar 2007 09:08:56 -0000 1.6 --- multiline~.c 30 Oct 2007 09:21:52 -0000 1.7 *************** *** 47,57 **** t_float msec2tick; ! t_float *value; ! t_float *target; ! t_float *increment; /* single precision is really a bad */ ! t_float **sigIN; ! t_float **sigOUT; ! t_float *sigBUF; int sigNUM; --- 47,57 ---- t_float msec2tick; ! t_sample *value; ! t_sample *target; ! t_sample *increment; /* single precision is really a bad */ ! t_sample **sigIN; ! t_sample **sigOUT; ! t_sample *sigBUF; int sigNUM; *************** *** 104,113 **** int n = (int)(w[2]); ! t_float **out = x->sigOUT; ! t_float **in = x->sigIN; ! t_float *buf = x->sigBUF, *sigBUF = buf; ! t_float *inc = x->increment, *increment = inc; ! t_float *val = x->value, *value = val; ! t_float *tgt = x->target, *target = tgt; int sigNUM = x->sigNUM; --- 104,113 ---- int n = (int)(w[2]); ! t_sample **out = x->sigOUT; ! t_sample **in = x->sigIN; ! t_sample *buf = x->sigBUF, *sigBUF = buf; ! t_sample *inc = x->increment, *increment = inc; ! t_sample *val = x->value, *value = val; ! t_sample *tgt = x->target, *target = tgt; int sigNUM = x->sigNUM; *************** *** 124,128 **** if (x->ticksleft) { int N=n-1; ! t_float oneovernos = 1./(x->ticksleft*n); int i=sigNUM; --- 124,128 ---- if (x->ticksleft) { int N=n-1; ! t_sample oneovernos = 1./(x->ticksleft*n); int i=sigNUM; *************** *** 170,174 **** { int i = x->sigNUM, n = 0; ! t_float **dummy = x->sigIN; while(i--)*dummy++=sp[n++]->s_vec; --- 170,174 ---- { int i = x->sigNUM, n = 0; ! t_sample **dummy = x->sigIN; while(i--)*dummy++=sp[n++]->s_vec; *************** *** 198,249 **** static void *mline_new(t_symbol *s, int argc, t_atom *argv) { ! t_mline *x = (t_mline *)pd_new(mline_class); ! int i; ! ZEXY_USEVAR(s); ! if (!argc) { ! argc = 1; ! x->time = 0; ! } else { ! x->time = atom_getfloat(argv+argc-1); ! if (x->time < 0) x->time = 0; ! argc--; ! if (!argc) argc = 1; ! } ! x->sigNUM = argc; ! i = argc-1; ! outlet_new(&x->x_obj, &s_signal); ! while (i--) { ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); ! outlet_new(&x->x_obj, &s_signal); ! } ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("")); ! floatinlet_new(&x->x_obj, &x->time); ! x->sigIN = (t_float **)getbytes(x->sigNUM * sizeof(t_float **)); ! x->sigOUT = (t_float **)getbytes(x->sigNUM * sizeof(t_float **)); ! x->sigBUF = (t_float *)getbytes(x->sigNUM * sizeof(t_float *)); ! x->value = (t_float *)getbytes(x->sigNUM * sizeof(t_float *)); ! x->target = (t_float *)getbytes(x->sigNUM * sizeof(t_float *)); ! x->increment = (t_float *)getbytes(x->sigNUM * sizeof(t_float *)); ! i = x->sigNUM; ! while (i--) { ! x->sigIN[i] = x->sigOUT[i] = 0; ! x->increment[i] = 0; ! x->value[x->sigNUM-i-1] = x->target[x->sigNUM-i-1] = atom_getfloat(argv+i); ! } ! x->msec2tick = x->ticksleft = x->retarget = 0; ! return (x); } --- 198,249 ---- static void *mline_new(t_symbol *s, int argc, t_atom *argv) { ! t_mline *x = (t_mline *)pd_new(mline_class); ! int i; ! ZEXY_USEVAR(s); ! if (!argc) { ! argc = 1; ! x->time = 0; ! } else { ! x->time = atom_getfloat(argv+argc-1); ! if (x->time < 0) x->time = 0; ! argc--; ! if (!argc) argc = 1; ! } ! x->sigNUM = argc; ! i = argc-1; ! outlet_new(&x->x_obj, &s_signal); ! while (i--) { ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); ! outlet_new(&x->x_obj, &s_signal); ! } ! inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("")); ! floatinlet_new(&x->x_obj, &x->time); ! x->sigIN = (t_sample **)getbytes(x->sigNUM * sizeof(t_sample **)); ! x->sigOUT = (t_sample **)getbytes(x->sigNUM * sizeof(t_sample **)); ! x->sigBUF = (t_sample *)getbytes(x->sigNUM * sizeof(t_sample *)); ! x->value = (t_sample *)getbytes(x->sigNUM * sizeof(t_sample *)); ! x->target = (t_sample *)getbytes(x->sigNUM * sizeof(t_sample *)); ! x->increment = (t_sample *)getbytes(x->sigNUM * sizeof(t_sample *)); ! i = x->sigNUM; ! while (i--) { ! x->sigIN[i] = x->sigOUT[i] = 0; ! x->increment[i] = 0; ! x->value[x->sigNUM-i-1] = x->target[x->sigNUM-i-1] = atom_getfloat(argv+i); ! } ! x->msec2tick = x->ticksleft = x->retarget = 0; ! return (x); } Index: noish~.c =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/noish~.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** noish~.c 14 Mar 2007 09:08:56 -0000 1.5 --- noish~.c 30 Oct 2007 09:21:52 -0000 1.6 *************** *** 42,49 **** t_object x_obj; int val; ! t_float current; ! t_float decrement; ! t_float updater; ! t_float to_go; } t_nois; --- 42,49 ---- t_object x_obj; int val; ! t_sample current; ! t_sample decrement; ! t_sample updater; ! t_sample to_go; } t_nois; *************** *** 60,63 **** --- 60,68 ---- + static void set_noisseed(t_nois *x, t_floatarg seed) + { + x->val = seed; + } + /* ------------------------ noish~ ----------------------------- */ *************** *** 67,79 **** { t_nois *x = (t_nois *)(w[1]); ! t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); int *vp = (int *)(&x->val); int i_value = *vp; ! t_float f_value = ((float)((i_value & 0x7fffffff) - 0x40000000)) * ! (float)(1.0 / 0x40000000); ! t_float all_to_go = x->updater; ! t_float still_to_go = x->to_go; if (all_to_go == 1) --- 72,84 ---- { t_nois *x = (t_nois *)(w[1]); ! t_sample *out = (t_sample *)(w[2]); int n = (int)(w[3]); int *vp = (int *)(&x->val); int i_value = *vp; ! t_sample f_value = ((t_sample)((i_value & 0x7fffffff) - 0x40000000)) * ! (t_sample)(1.0 / 0x40000000); ! t_sample all_to_go = x->updater; ! t_sample still_to_go = x->to_go; if (all_to_go == 1) *************** *** 83,87 **** i_value *= 435898247; i_value += 382842987; ! *out++ = ((float)((i_value & 0x7fffffff) - 0x40000000)) * (float)(1.0 / 0x40000000); } } --- 88,92 ---- i_value *= 435898247; i_value += 382842987; ! *out++ = ((t_sample)((i_value & 0x7fffffff) - 0x40000000)) * (t_sample)(1.0 / 0x40000000); } } *************** *** 108,112 **** i_value *= 435898247; i_value += 382842987; ! f_value = ( (float)((i_value & 0x7fffffff) - 0x40000000) ) * (float)(1.0 / 0x40000000); while (n--) --- 113,117 ---- i_value *= 435898247; i_value += 382842987; ! f_value = ( (t_sample)((i_value & 0x7fffffff) - 0x40000000) ) * (t_sample)(1.0 / 0x40000000); while (n--) *************** *** 127,131 **** i_value += 382842987; ! f_value = ( (float)((i_value & 0x7fffffff) - 0x40000000) ) * (float)(1.0 / 0x40000000); } *out++ = f_value; --- 132,136 ---- i_value += 382842987; ! f_value = ( (t_sample)((i_value & 0x7fffffff) - 0x40000000) ) * (t_sample)(1.0 / 0x40000000); } *out++ = f_value; *************** *** 180,183 **** --- 185,190 ---- class_addmethod(noish_class, (t_method)noish_dsp, gensym("dsp"), 0); + class_addmethod(noish_class, (t_method)set_noisseed, gensym("seed"), A_FLOAT, 0); + class_addmethod(noish_class, (t_method)noish_helper, gensym("help"), 0); zexy_register("noish~");

1 0

externals/zexy/src zexy.h,1.26,1.27
by IOhannes m zmölnig 30 Oct '07

30 Oct '07

Update of /cvsroot/pure-data/externals/zexy/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3890 Modified Files: zexy.h Log Message: added a macro for type-checking Index: zexy.h =================================================================== RCS file: /cvsroot/pure-data/externals/zexy/src/zexy.h,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** zexy.h 22 Oct 2007 10:18:48 -0000 1.26 --- zexy.h 30 Oct 2007 09:21:36 -0000 1.27 *************** *** 56,60 **** # define Z_SIMD_CHKBLOCKSIZE(n) (!(n&(Z_SIMD_BLOCK-1))) # define Z_SIMD_CHKALIGN(ptr) ( ((unsigned long)(ptr) & (Z_SIMD_BYTEALIGN-1)) == 0 ) - #endif /* __SSE__ */ --- 56,59 ---- *************** *** 89,92 **** --- 88,93 ---- #define ZEXY_USEVAR(x) x=x + #define ZEXY_TYPE_EQUAL(type1, type2) (sizeof(type1) == sizeof(type2)) + typedef struct _mypdlist {

1 0

externals/build/src any2list.c, 1.2, NONE demux.c, 1.2, NONE demux~.c, 1.2, NONE l.c, 1.2, NONE l2i.c, 1.2, NONE l2s.c, 1.2, NONE mux.c, 1.2, NONE mux~.c, 1.2, NONE s2l.c, 1.2, NONE
by IOhannes m zmölnig 30 Oct '07

30 Oct '07

Update of /cvsroot/pure-data/externals/build/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2647 Removed Files: any2list.c demux.c demux~.c l.c l2i.c l2s.c mux.c mux~.c s2l.c Log Message: removed left-over zexy-aliases --- mux.c DELETED --- --- l2i.c DELETED --- --- demux.c DELETED --- --- l2s.c DELETED --- --- mux~.c DELETED --- --- demux~.c DELETED --- --- any2list.c DELETED --- --- s2l.c DELETED --- --- l.c DELETED ---

1 0

autobuild: pd-extended planetccrma6-i386 2007-10-30 04.32.49
by pd＠planetccrma6-i386.idmi.poly.edu 30 Oct '07

30 Oct '07

hammer/switch.c:94: note: vectorized 0 loops in function. hammer/switch.c:123: note: not vectorized: no vectype for stmt: D.2311_29 = *D.2310_28 scalar_type: struct _class * * hammer/switch.c:115: note: not vectorized: no vectype for stmt: D.2305_44 = *D.2304_43 scalar_type: struct _class * * hammer/switch.c:115: note: vectorized 0 loops in function. gcc -o /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/extra/cyclone/switch.pd_linux -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -export_dynamic -shared hammer/switch.o ../shared/common/loud.o ../shared/common/fitter.o gcc -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -c -o hammer/comment.o hammer/comment.c `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead. hammer/comment.c: In function 'comment_save': hammer/comment.c:458: error: 't_comment' has no member named 'x_obj' make[3]: *** [hammer/comment.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended/externals/miXed/cyclone' make[2]: *** [cyclone_install] Error 2 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 upload specs linux_make build tar.bz2 Uploading /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd*.tar.bz2 ls: /home/pd/auto-build/pd-extended/packages/linux_make/build/Pd*.tar.bz2: No such file or directory

1 0

autobuild: pd-extended debian-stable-i386 2007-10-30 01.35.11
by pd＠debian-stable-i386.idmi.poly.edu 30 Oct '07

30 Oct '07

hammer/switch.c:94: note: vectorized 0 loops in function. hammer/switch.c:123: note: not vectorized: no vectype for stmt: D.2310_29 = *D.2309_28 scalar_type: struct _class * * hammer/switch.c:115: note: not vectorized: no vectype for stmt: D.2304_44 = *D.2303_43 scalar_type: struct _class * * hammer/switch.c:115: note: vectorized 0 loops in function. gcc -o /home/pd/auto-build/pd-extended/packages/linux_make/build//usr/local/lib/pd/extra/cyclone/switch.pd_linux -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -export_dynamic -shared hammer/switch.o ../shared/common/loud.o ../shared/common/fitter.o gcc -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -O2 -mcpu=i686 -march=i386 -ftree-vectorize -ftree-vectorizer-verbose=3 -DUNIX -I . -I ../../../pd/src -I ../shared -c -o hammer/comment.o hammer/comment.c `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead. hammer/comment.c: In function 'comment_save': hammer/comment.c:458: error: 't_comment' has no member named 'x_obj' make[3]: *** [hammer/comment.o] Error 1 make[3]: Leaving directory `/home/pd/auto-build/pd-extended/externals/miXed/cyclone' make[2]: *** [cyclone_install] Error 2 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 upload specs linux_make . deb Uploading /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb ls: /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb: No such file or directory

1 0

externals/bbogart/entry entry-help.pd, 1.8, 1.9 entry.c, 1.21, 1.22
by Hans-Christoph Steiner 30 Oct '07

30 Oct '07

Update of /cvsroot/pure-data/externals/bbogart/entry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13010 Modified Files: entry-help.pd entry.c Log Message: changed [add( to [append( and added [key( method for inputting individual keys; removed mousefocus since I found a fix inside u_main.tk -> pdtk_canvas_click Index: entry.c =================================================================== RCS file: /cvsroot/pure-data/externals/bbogart/entry/entry.c,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** entry.c 29 Oct 2007 17:44:23 -0000 1.21 --- entry.c 30 Oct 2007 03:59:52 -0000 1.22 *************** *** 22,31 **** #include <string.h> ! /* TODO: make "display only" option, to force box to never accept focus */ ! /* TODO: make focus option only accept regular and shifted chars, not Cmd, Alt, Ctrl */ ! /* TODO: make entry_save include whole classname, including namespace prefix */ /* TODO: make [size( message redraw object */ /* TODO: set message doesnt work with a loadbang */ - /* TODO: make message to add a single character to the existing text */ /* TODO: complete inlet draw/erase logic */ --- 22,28 ---- #include <string.h> ! /* TODO: get Ctrl-A working to select all */ /* TODO: make [size( message redraw object */ /* TODO: set message doesnt work with a loadbang */ /* TODO: complete inlet draw/erase logic */ *************** *** 41,45 **** #define BACKGROUNDCOLOR "grey70" ! #define DEBUG(x) x typedef struct _entry --- 38,42 ---- #define BACKGROUNDCOLOR "grey70" ! #define DEBUG(x) typedef struct _entry *************** *** 266,273 **** sys_vgui("bind .x%x.c.s%x.text <KeyRelease> {+pd %s keyup %%N \\;} \n", canvas, x, x->x_receive_name->s_name); - DEBUG(post("bind .x%x.c.s%x.text <Leave> {focus [winfo parent .x%x.c.s%x]} \n", - canvas, x, canvas, x);); - sys_vgui("bind .x%x.c.s%x.text <Leave> {focus [winfo parent .x%x.c.s%x]} \n", - canvas, x, canvas, x); DEBUG(post("pdtk_standardkeybindings .x%x.c.s%x.text \n", canvas, x);); sys_vgui("pdtk_standardkeybindings .x%x.c.s%x.text \n", canvas, x); --- 263,266 ---- *************** *** 423,429 **** } ! static void entry_add(t_entry* x, t_symbol *s, int argc, t_atom *argv) { ! DEBUG(post("entry_add");); int i; t_symbol *tmp_symbol = s; /* <-- this gets rid of the unused variable warning */ --- 416,422 ---- } ! static void entry_append(t_entry* x, t_symbol *s, int argc, t_atom *argv) { ! DEBUG(post("entry_append");); int i; t_symbol *tmp_symbol = s; /* <-- this gets rid of the unused variable warning */ *************** *** 455,458 **** --- 448,486 ---- } + static void entry_key(t_entry* x, t_symbol *s, int argc, t_atom *argv) + { + DEBUG(post("entry_key");); + t_symbol *tmp_symbol = s; /* <-- this gets rid of the unused variable warning */ + t_int tmp_int; + + tmp_symbol = atom_getsymbolarg(0, argc, argv); + if(tmp_symbol == &s_) + { + tmp_int = (t_int) atom_getfloatarg(0, argc , argv); + if(tmp_int < 10) + { + DEBUG(post(".x%x.c.s%x.text insert end %d\n", x->x_glist, x, tmp_int);); + sys_vgui(".x%x.c.s%x.text insert end %d\n", x->x_glist, x, tmp_int); + } + else if(tmp_int == 10) + { + DEBUG(post(".x%x.c.s%x.text insert end {\n}\n", x->x_glist, x);); + sys_vgui(".x%x.c.s%x.text insert end {\n}\n", x->x_glist, x); + } + else + { + DEBUG(post(".x%x.c.s%x.text insert end [format \"%c\" %d]\n", x->x_glist, x, tmp_int);); + sys_vgui(".x%x.c.s%x.text insert end [format \"%c\" %d]\n", x->x_glist, x, tmp_int); + } + } + else + { + DEBUG(post(".x%x.c.s%x.text insert end %s\n", x->x_glist, x, tmp_symbol->s_name );); + sys_vgui(".x%x.c.s%x.text insert end %s\n", x->x_glist, x, tmp_symbol->s_name ); + } + DEBUG(post(".x%x.c.s%x.text yview end-2char \n", x->x_glist, x );); + sys_vgui(".x%x.c.s%x.text yview end-2char \n", x->x_glist, x ); + } + /* Clear the contents of the text widget */ static void entry_clear(t_entry* x) *************** *** 469,473 **** entry_clear(x); ! entry_add(x, s, argc, argv); } --- 497,501 ---- entry_clear(x); ! entry_append(x, s, argc, argv); } *************** *** 724,729 **** 0); ! class_addmethod(entry_class, (t_method)entry_add, ! gensym("add"), A_GIMME, 0); --- 752,762 ---- 0); ! class_addmethod(entry_class, (t_method)entry_append, ! gensym("append"), ! A_GIMME, ! 0); ! ! class_addmethod(entry_class, (t_method)entry_key, ! gensym("key"), A_GIMME, 0); Index: entry-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/bbogart/entry/entry-help.pd,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** entry-help.pd 28 Oct 2007 05:53:08 -0000 1.8 --- entry-help.pd 30 Oct 2007 03:59:52 -0000 1.9 *************** *** 1,27 **** ! #N canvas 172 88 748 676 10; ! #X obj 73 212 entry 150 100 grey black; #X obj 11 84 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X obj 32 346 print; ! #X msg 100 95 clear; ! #X msg 157 99 set one two three four five six; ! #X msg 72 50 fgcolour yellow; ! #X msg 50 23 bgcolour purple; #X obj 142 462 entry 100 50 grey70 purple; ! #X text 8 365 Creation arguments are: width height bgcolor fgcolor. The width and height are in pixels.; #X obj 251 254 select return; ! #X obj 79 347 pddp/print; ! #X obj 176 173 trigger bang bang; ! #X msg 176 194 clear; #X symbolatom 216 319 10 0 0 1 last_key_typed - -; #X text 255 275 ^-- hit return to output; #X msg 219 430 size 400 200; ! #X msg 29 4 bgcolour grey; ! #X msg 84 71 fgcolour black; #X text 12 394 The size message currently only takes affect after a save and reopen.; ! #X msg 169 127 add seven eight nine; ! #X msg 196 149 add ten eleven.; #X msg 30 459 fontsize \$1; #X msg 52 432 12; --- 1,27 ---- ! #N canvas 172 88 781 680 10; ! #X obj 72 208 entry 150 100 grey black; #X obj 11 84 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X obj 32 316 print; ! #X msg 109 73 clear; ! #X msg 127 94 set one two three four five six; ! #X msg 31 29 fgcolour yellow; ! #X msg 94 4 bgcolour purple; #X obj 142 462 entry 100 50 grey70 purple; ! #X text 9 355 Creation arguments are: width height bgcolor fgcolor. The width and height are in pixels.; #X obj 251 254 select return; ! #X obj 79 317 pddp/print; ! #X obj 218 165 trigger bang bang; ! #X msg 218 186 clear; #X symbolatom 216 319 10 0 0 1 last_key_typed - -; #X text 255 275 ^-- hit return to output; #X msg 219 430 size 400 200; ! #X msg 6 4 bgcolour grey; ! #X msg 52 52 fgcolour black; #X text 12 394 The size message currently only takes affect after a save and reopen.; ! #X msg 138 117 append seven eight nine; ! #X msg 142 137 append ten eleven.; #X msg 30 459 fontsize \$1; #X msg 52 432 12; *************** *** 30,34 **** #X obj 166 18 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/text.htm ; ! #X obj 572 91 entry 300 50 grey70 black; #X msg 572 67 option relief \$1; #X obj 571 46 symbol; --- 30,34 ---- #X obj 166 18 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/text.htm ; ! #X obj 442 91 entry 300 50 grey70 black; #X msg 572 67 option relief \$1; #X obj 571 46 symbol; *************** *** 39,58 **** #X msg 640 10 solid; #X msg 681 10 sunken; ! #X obj 366 524 entry 124 100 grey70 black; ! #X obj 368 468 symbol; ! #X obj 558 526 entry 124 100 grey70 black; ! #X obj 558 478 symbol; ! #X msg 541 454 on; ! #X msg 575 453 off; ! #X msg 349 443 normal; ! #X msg 395 443 disabled; ! #X msg 367 491 option state \$1; ! #X msg 558 500 option undo \$1; #X msg 132 430 size 100 50; ! #X text 421 470 disable editing; ! #X text 608 469 turn on undo; #X obj 572 217 entry 100 50 grey70 black; #X obj 571 172 symbol; ! #X obj 502 394 entry 100 50 grey70 black; #X obj 501 349 symbol; #X msg 572 193 option wrap \$1; --- 39,56 ---- #X msg 640 10 solid; #X msg 681 10 sunken; ! #X obj 611 524 symbol; ! #X obj 482 525 symbol; ! #X msg 465 501 on; ! #X msg 499 500 off; ! #X msg 592 499 normal; ! #X msg 638 499 disabled; ! #X msg 610 547 option state \$1; ! #X msg 482 547 option undo \$1; #X msg 132 430 size 100 50; ! #X text 664 526 disable editing; ! #X text 525 526 turn on undo; #X obj 572 217 entry 100 50 grey70 black; #X obj 571 172 symbol; ! #X obj 447 394 entry 250 80 grey70 black; #X obj 501 349 symbol; #X msg 572 193 option wrap \$1; *************** *** 76,80 **** #X obj 52 601 entry 100 50 grey70 black; #X obj 51 556 symbol; ! #X obj 161 636 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/cursors.htm ; #X msg 49 521 boat; --- 74,78 ---- #X obj 52 601 entry 100 50 grey70 black; #X obj 51 556 symbol; ! #X obj 39 650 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/cursors.htm ; #X msg 49 521 boat; *************** *** 98,101 **** --- 96,110 ---- #X obj 395 346 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 1; + #X msg 129 171 key a; + #X msg 170 171 key 32; + #X obj 342 510 keyup; + #X msg 342 549 key \$1; + #X floatatom 359 531 5 0 0 0 - - -; + #X msg 269 210 key 3322; + #X obj 550 586 entry 100 50 grey70 purple; + #X obj 342 584 entry 100 50 grey70 black; + #X text 337 488 type single chars:; + #X msg 411 535 key a; + #X msg 412 557 key 9; #X connect 0 0 2 0; #X connect 0 0 10 0; *************** *** 128,170 **** #X connect 33 0 28 0; #X connect 34 0 28 0; ! #X connect 36 0 43 0; ! #X connect 38 0 44 0; ! #X connect 39 0 38 0; ! #X connect 40 0 38 0; ! #X connect 41 0 36 0; ! #X connect 42 0 36 0; ! #X connect 43 0 35 0; ! #X connect 44 0 37 0; ! #X connect 45 0 7 0; ! #X connect 49 0 52 0; ! #X connect 51 0 57 0; ! #X connect 52 0 48 0; ! #X connect 53 0 49 0; ! #X connect 54 0 49 0; ! #X connect 55 0 49 0; ! #X connect 57 0 50 0; ! #X connect 58 0 51 0; ! #X connect 59 0 51 0; ! #X connect 60 0 51 0; ! #X connect 61 0 51 0; ! #X connect 63 0 51 0; ! #X connect 64 0 51 0; ! #X connect 65 0 51 0; ! #X connect 67 0 84 0; ! #X connect 69 0 73 0; ! #X connect 71 0 69 0; ! #X connect 72 0 69 0; ! #X connect 73 0 68 0; ! #X connect 75 0 69 0; ! #X connect 76 0 69 0; ! #X connect 77 0 69 0; ! #X connect 78 0 69 0; ! #X connect 79 0 69 0; ! #X connect 80 0 69 0; ! #X connect 81 0 69 0; ! #X connect 83 0 69 0; ! #X connect 84 0 66 0; ! #X connect 85 0 86 0; ! #X connect 86 0 26 0; ! #X connect 87 0 50 0; ! #X connect 88 0 87 0; --- 137,187 ---- #X connect 33 0 28 0; #X connect 34 0 28 0; ! #X connect 35 0 41 0; ! #X connect 36 0 42 0; ! #X connect 37 0 36 0; ! #X connect 38 0 36 0; ! #X connect 39 0 35 0; ! #X connect 40 0 35 0; ! #X connect 41 0 93 0; ! #X connect 42 0 93 0; ! #X connect 43 0 7 0; ! #X connect 47 0 50 0; ! #X connect 49 0 55 0; ! #X connect 50 0 46 0; ! #X connect 51 0 47 0; ! #X connect 52 0 47 0; ! #X connect 53 0 47 0; ! #X connect 55 0 48 0; ! #X connect 56 0 49 0; ! #X connect 57 0 49 0; ! #X connect 58 0 49 0; ! #X connect 59 0 49 0; ! #X connect 61 0 49 0; ! #X connect 62 0 49 0; ! #X connect 63 0 49 0; ! #X connect 65 0 82 0; ! #X connect 67 0 71 0; ! #X connect 69 0 67 0; ! #X connect 70 0 67 0; ! #X connect 71 0 66 0; ! #X connect 73 0 67 0; ! #X connect 74 0 67 0; ! #X connect 75 0 67 0; ! #X connect 76 0 67 0; ! #X connect 77 0 67 0; ! #X connect 78 0 67 0; ! #X connect 79 0 67 0; ! #X connect 81 0 67 0; ! #X connect 82 0 64 0; ! #X connect 83 0 84 0; ! #X connect 84 0 26 0; ! #X connect 85 0 48 0; ! #X connect 86 0 85 0; ! #X connect 87 0 0 0; ! #X connect 88 0 0 0; ! #X connect 89 0 90 0; ! #X connect 89 0 91 0; ! #X connect 90 0 94 0; ! #X connect 92 0 0 0; ! #X connect 96 0 94 0; ! #X connect 97 0 94 0;

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs October 2007