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/vstd.c | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 source/vstd.c (limited to 'source/vstd.c') diff --git a/source/vstd.c b/source/vstd.c deleted file mode 100644 index 538cb94..0000000 --- a/source/vstd.c +++ /dev/null @@ -1,45 +0,0 @@ -#include "defines.h" - -/*--------------- vstd ---------------*/ - -static t_class *vstd_class; - -typedef struct _vstd -{ - t_object x_obj; -} t_vstd; - - -static void vstd_perform(t_vstd *x, t_symbol *s, int argc, t_atom *argv) -{ - float sumsq=0.0f; - float sum=0.0f; - int i; - for (i = 0; i < argc; i++) - { - float tmp=atom_getfloat(&argv[i]); - sumsq+= tmp*tmp; - sum+=tmp; - } - sumsq/=argc; - sum/=argc; - outlet_float(x->x_obj.ob_outlet, (float)sqrtf(sumsq-sum*sum)); -} - -static void *vstd_new( t_float halfDecayTime) -{ - t_vstd *x=(t_vstd *)pd_new(vstd_class); - outlet_new(&x->x_obj, gensym("float")); - return (void *)x; -} - -void vstd_setup(void) -{ - vstd_class = class_new(gensym("vstd"), - (t_newmethod)vstd_new, 0, - sizeof(t_vstd), - CLASS_DEFAULT, - 0); - class_addlist(vstd_class, (t_method)vstd_perform); -} - -- cgit v1.2.1