1
/******************************************************
3
* zexy - implementation file
5
* copyleft (c) IOhannes m zm�lnig
7
* 1999:forum::f�r::uml�ute:2004
9
* institute of electronic music and acoustics (iem)
11
******************************************************
13
* license: GNU General Public License v.2
15
******************************************************/
20
/* mavg :: moving average filter */
22
static t_class *mavg_class;
34
static void mavg_resize(t_mavg *x, t_float f)
40
if ((f<1) || (f == x->size)) return;
42
freebytes(x->buf, sizeof(t_float)*x->size);
45
x->buf = getbytes(sizeof(t_float)*x->size);
47
dumbuf = x->wp = x->buf;
49
while(i--) *dumbuf++ = x->avg;
52
static void mavg_set(t_mavg *x, t_symbol *s, int argc, t_atom *argv)
55
t_float *dummy = x->buf;
56
t_float f=(argc)?atom_getfloat(argv):x->avg;
59
while (i--) *dummy++=f;
64
static void mavg_float(t_mavg *x, t_float f)
68
t_float *dumb = x->buf;
71
if (x->wp == x->buf + x->size) x->wp = x->buf;
73
while (i--) dummy += *dumb++;
75
x->avg = dummy*x->n_inv;
77
outlet_float(x->x_obj.ob_outlet,x->avg);
80
static void *mavg_new(t_floatarg f)
82
t_mavg *x = (t_mavg *)pd_new(mavg_class);
86
outlet_new(&x->x_obj, &s_float);
87
inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym(""));
89
x->buf = x->wp = (t_float *)getbytes(sizeof(t_float) * i);
91
x->n_inv = 1.0f/(t_float)i;
94
while (i--) *dumbuf++=0;
99
static void mavg_help(void)
101
post("mavg\t:: moving average filter");
104
void mavg_setup(void)
106
mavg_class = class_new(gensym("mavg"), (t_newmethod)mavg_new, 0,
107
sizeof(t_mavg), 0, A_DEFFLOAT, 0);
109
class_addfloat(mavg_class, (t_method)mavg_float);
111
class_addmethod(mavg_class, (t_method)mavg_help, gensym("help"), 0);
112
class_addmethod(mavg_class, (t_method)mavg_set, gensym("set"), A_GIMME, 0);
113
class_addmethod(mavg_class, (t_method)mavg_resize, gensym(""), A_DEFFLOAT, 0);
115
zexy_register("mavg");