|
1
by Hans-Christoph Steiner
Import upstream version 0.12.1 |
1 |
#include "defines.h" |
2 |
||
3 |
/*--------------- vdbtorms ----------------*/
|
|
4 |
||
5 |
static t_class *vdbtorms_class; |
|
6 |
||
7 |
typedef struct _vdbtorms |
|
8 |
{
|
|
9 |
t_object x_obj; |
|
10 |
} t_vdbtorms; |
|
11 |
||
12 |
float dbtorms(float f) |
|
13 |
{
|
|
14 |
if (f <= 0) |
|
15 |
return(0); |
|
16 |
else
|
|
17 |
{
|
|
18 |
if (f > 485) |
|
19 |
f = 485; |
|
20 |
}
|
|
21 |
return (float)(exp((LOGTEN * 0.05) * (f-100.))); |
|
22 |
}
|
|
23 |
||
24 |
static void vdbtorms_perform(t_vdbtorms *x, t_symbol *s, int argc, t_atom *argv) |
|
25 |
{
|
|
26 |
int i; |
|
27 |
t_atom *ap,*app; |
|
28 |
ap = (t_atom *)getbytes(sizeof(t_atom)*argc); |
|
29 |
app=ap; |
|
30 |
||
31 |
for (i = 0; i < argc; i++) |
|
32 |
{
|
|
33 |
SETFLOAT(app, dbtorms(atom_getfloat(argv++))); |
|
34 |
app++; |
|
35 |
}
|
|
36 |
outlet_list(x->x_obj.ob_outlet,gensym("list"),argc,ap); |
|
37 |
freebytes(ap,argc); |
|
38 |
}
|
|
39 |
||
40 |
static void *vdbtorms_new() |
|
41 |
{
|
|
42 |
t_vdbtorms *x=(t_vdbtorms *)pd_new(vdbtorms_class); |
|
43 |
outlet_new(&x->x_obj, gensym("list")); |
|
44 |
return (void *)x; |
|
45 |
}
|
|
46 |
||
47 |
void vdbtorms_setup(void) |
|
48 |
{
|
|
49 |
vdbtorms_class = class_new(gensym("vdbtorms"), |
|
50 |
(t_newmethod)vdbtorms_new, 0, |
|
51 |
sizeof(t_vdbtorms), |
|
52 |
CLASS_DEFAULT, |
|
53 |
0); |
|
54 |
class_addlist(vdbtorms_class, (t_method)vdbtorms_perform); |
|
55 |
}
|
|
56 |