From d2eec74a4d8c21aad495ba61539486b24d7ab8dc Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Wed, 9 Oct 2002 10:19:04 +0000 Subject: moved from zexy/zexy to zexy svn path=/trunk/externals/zexy/; revision=169 --- src/z_zdelay.c | 120 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 120 insertions(+) create mode 100644 src/z_zdelay.c (limited to 'src/z_zdelay.c') diff --git a/src/z_zdelay.c b/src/z_zdelay.c new file mode 100644 index 0000000..1c4f1ed --- /dev/null +++ b/src/z_zdelay.c @@ -0,0 +1,120 @@ +/* + 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 +*/ + +#include "zexy.h" + +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +/* ----------------------------------------------------- */ + +static t_class *zNdelay_class; + +typedef struct _zNdelay +{ + t_object x_obj; + + t_float *buf; + int bufsize, phase; + +} t_zNdelay; + +static void zdel_float(t_zNdelay *x, t_floatarg f) +{ + int i = f+1; + 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; +} + +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; + + if (bufsize==1) { + if (in!=out)while(n--)*out++=*in++; + } else if (bufsize==2) { + register t_float f, last=*buf; + while(n--){ + f=*in++; + *out++=last; + last=f; + } + *buf=last; + } else { + while (n--) { + *(buf+ph++) = *in++; + *out++ = buf[ph%=bufsize]; + } + x->phase=ph; + } + return (w+5); +} + + +static void zNdelay_dsp(t_zNdelay *x, t_signal **sp) +{ + dsp_add(zN_perform, 4, sp[0]->s_vec, sp[1]->s_vec, x, sp[0]->s_n); +} + +static void *zNdelay_new(t_floatarg f) +{ + t_zNdelay *x = (t_zNdelay *)pd_new(zNdelay_class); + int i = f; + t_float *b; + + if (i<=0) i=1; + i++; + + x->bufsize = i; + x->buf = (t_float *)getbytes(sizeof(t_float) * x->bufsize); + b=x->buf; + while (i--) { + *b++=0; + } + x->phase = 0; + + outlet_new(&x->x_obj, gensym("signal")); + return (x); +} + +static void zNdelay_free(t_zNdelay *x) +{ + freebytes(x->buf, sizeof(t_float) * x->bufsize); +} + + +static void zdel_helper(void) +{ + post("\n%c z~\t:: samplewise delay", HEARTSYMBOL); + post("creation :: 'z~ []' : creates a -sample delay; default is 1"); +} + + +void z_zdelay_setup(void) +{ + zNdelay_class = class_new(gensym("z~"), (t_newmethod)zNdelay_new, (t_method)zNdelay_free, + sizeof(t_zNdelay), 0, A_DEFFLOAT, 0); + class_addmethod(zNdelay_class, nullfn, gensym("signal"), 0); + class_addmethod(zNdelay_class, (t_method)zNdelay_dsp, gensym("dsp"), 0); + + class_addfloat(zNdelay_class, zdel_float); + class_addmethod(zNdelay_class, (t_method)zdel_helper, gensym("help"), 0); + class_sethelpsymbol(zNdelay_class, gensym("zexy/z~")); +} -- cgit v1.2.1