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/vmax.c | 52 ---------------------------------------------------- 1 file changed, 52 deletions(-) delete mode 100644 source/vmax.c (limited to 'source/vmax.c') diff --git a/source/vmax.c b/source/vmax.c deleted file mode 100644 index ac56423..0000000 --- a/source/vmax.c +++ /dev/null @@ -1,52 +0,0 @@ -#include "defines.h" - -/*--------------- vmax ---------------*/ -/* maximum value in a list of float - and its location (index) -*/ - -static t_class *vmax_class; - -typedef struct _vmax -{ - t_object x_obj; - t_outlet *m_out_maxi; -} t_vmax; - - -static void vmax_perform(t_vmax *x, t_symbol *s, int argc, t_atom *argv) -{ - int i; - int maxi; - float max=-MAXFLOAT; - for (i = 0; i < argc; i++) - { - float f=atom_getfloat(&argv[i]); - if (f>max) - { - max=f; - maxi=i; - } - } - outlet_float(x->x_obj.ob_outlet, max); - outlet_float(x->m_out_maxi, (float)(maxi+1)); -} - -static void *vmax_new( t_float halfDecayTime) -{ - t_vmax *x=(t_vmax *)pd_new(vmax_class); - outlet_new(&x->x_obj, gensym("float")); - x->m_out_maxi=outlet_new(&x->x_obj, gensym("float")); - return (void *)x; -} - -void vmax_setup(void) -{ - vmax_class = class_new(gensym("vmax"), - (t_newmethod)vmax_new, 0, - sizeof(t_vmax), - CLASS_DEFAULT, - 0); - class_addlist(vmax_class, (t_method)vmax_perform); -} - -- cgit v1.2.1