From 086e6b358ad45bda0e6a948cfb7ea2d33ab7da5a Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Wed, 10 Feb 2010 00:34:05 +0000 Subject: re-arranged into libdir and setup with the template Makefile+debian stuff. renabled vv+ and vv- as vvplus and vvminus svn path=/trunk/externals/smlib/; revision=13158 --- source/vdbtorms.c | 56 ------------------------------------------------------- 1 file changed, 56 deletions(-) delete mode 100644 source/vdbtorms.c (limited to 'source/vdbtorms.c') diff --git a/source/vdbtorms.c b/source/vdbtorms.c deleted file mode 100644 index ab954f6..0000000 --- a/source/vdbtorms.c +++ /dev/null @@ -1,56 +0,0 @@ -#include "defines.h" - -/*--------------- vdbtorms ----------------*/ - -static t_class *vdbtorms_class; - -typedef struct _vdbtorms -{ - t_object x_obj; -} t_vdbtorms; - -float dbtorms(float f) -{ - if (f <= 0) - return(0); - else - { - if (f > 485) - f = 485; - } - return (float)(exp((LOGTEN * 0.05) * (f-100.))); -} - -static void vdbtorms_perform(t_vdbtorms *x, t_symbol *s, int argc, t_atom *argv) -{ - int i; - t_atom *ap,*app; - ap = (t_atom *)getbytes(sizeof(t_atom)*argc); - app=ap; - - for (i = 0; i < argc; i++) - { - SETFLOAT(app, dbtorms(atom_getfloat(argv++))); - app++; - } - outlet_list(x->x_obj.ob_outlet,gensym("list"),argc,ap); - freebytes(ap,argc); -} - -static void *vdbtorms_new() -{ - t_vdbtorms *x=(t_vdbtorms *)pd_new(vdbtorms_class); - outlet_new(&x->x_obj, gensym("list")); - return (void *)x; -} - -void vdbtorms_setup(void) -{ - vdbtorms_class = class_new(gensym("vdbtorms"), - (t_newmethod)vdbtorms_new, 0, - sizeof(t_vdbtorms), - CLASS_DEFAULT, - 0); - class_addlist(vdbtorms_class, (t_method)vdbtorms_perform); -} - -- cgit v1.2.1