3
/*--------------- bp ---------------*/
26
static void bp_docoef(t_bp *x, t_floatarg f, t_floatarg q);
28
static void *bp_new(t_floatarg f, t_floatarg q)
30
t_bp *x = (t_bp *)pd_new(bp_class);
31
inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
32
inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft2"));
33
outlet_new(&x->x_obj, gensym("float"));
34
x->x_ctl = &x->x_cspace;
42
static float bp_qcos(float f)
44
if (f >= -(0.5f*3.14159f) && f <= 0.5f*3.14159f)
47
return (((g*g*g * (-1.0f/720.0f) + g*g*(1.0f/24.0f)) - g*0.5f) + 1);
52
static void bp_docoef(t_bp *x, t_floatarg f, t_floatarg q)
54
float r, oneminusr, omega;
55
if (f < 0.0001f) f = 0.0001f;
59
omega = f * (2.0f * 3.14159f);
60
if (q < 0.001) oneminusr = 1.0f;
61
else oneminusr = omega/q;
62
if (oneminusr > 1.0f) oneminusr = 1.0f;
64
x->x_ctl->c_coef1 = 2.0f * bp_qcos(omega) * r;
65
x->x_ctl->c_coef2 = - r * r;
66
x->x_ctl->c_gain = 2 * oneminusr * (oneminusr + r * omega);
67
/* post("r %f, omega %f, coef1 %f, coef2 %f",
68
r, omega, x->x_ctl->c_coef1, x->x_ctl->c_coef2); */
71
static void bp_ft1(t_bp *x, t_floatarg f)
73
bp_docoef(x, f, x->x_q);
76
static void bp_ft2(t_bp *x, t_floatarg q)
78
bp_docoef(x, x->x_freq, q);
81
static void bp_clear(t_bp *x, t_floatarg q)
83
x->x_ctl->c_x1 = x->x_ctl->c_x2 = 0;
86
static void bp_perform(t_bp *x, t_float in)
89
t_bpctl *c = x->x_ctl;
92
float coef1 = c->c_coef1;
93
float coef2 = c->c_coef2;
94
float gain = c->c_gain;
96
float output = in + coef1 * last + coef2 * prev;
103
if (!((last <= 0) || (last >= 0)))
105
if (!((prev <= 0) || (prev >= 0)))
110
outlet_float(x->x_obj.ob_outlet, out);
115
bp_class = class_new(gensym("bp"), (t_newmethod)bp_new, 0,
116
sizeof(t_bp), 0, A_DEFFLOAT, A_DEFFLOAT, 0);
117
class_addfloat(bp_class, (t_method)bp_perform);
118
class_addmethod(bp_class, (t_method)bp_ft1,
119
gensym("ft1"), A_FLOAT, 0);
120
class_addmethod(bp_class, (t_method)bp_ft2,
121
gensym("ft2"), A_FLOAT, 0);
122
class_addmethod(bp_class, (t_method)bp_clear, gensym("clear"), 0);