From d962ed33f6b5fe3040cfbd798f63ab9aa36d1f9e Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Thu, 25 May 2006 16:40:19 +0000 Subject: renamed files to match their class names svn path=/trunk/externals/creb/; revision=5127 --- modules/abs.c | 51 --------------------------------------------------- 1 file changed, 51 deletions(-) delete mode 100644 modules/abs.c (limited to 'modules/abs.c') diff --git a/modules/abs.c b/modules/abs.c deleted file mode 100644 index 0cb3d4d..0000000 --- a/modules/abs.c +++ /dev/null @@ -1,51 +0,0 @@ - -// since this is present in a lot of libs, it is conditionally compiled -#ifdef HAVE_ABS_TILDE - -#include "m_pd.h" -#include - -/* ------------------------- abs~ -------------------------- */ -static t_class *abs_class; - -typedef struct _abs -{ - t_object x_obj; -} t_abs; - -static t_int *abs_perform(t_int *w) -{ - t_abs *x = (t_abs *)(w[1]); - t_float *in = (t_float *)(w[2]); - t_float *out = (t_float *)(w[3]); - int n = (int)(w[4]); - while (n--) - { - float f = *in++; - if (f < 0) f = -f; - *out++ = f; - } - return (w+5); -} - -static void abs_dsp(t_abs *x, t_signal **sp) -{ - dsp_add(abs_perform, 4, x, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); -} - -static void *abs_new(void) -{ - t_abs *x = (t_abs *)pd_new(abs_class); - outlet_new(&x->x_obj, &s_signal); - return (x); -} - -void abs_tilde_setup(void) -{ - abs_class = class_new(gensym("abs~"), (t_newmethod)abs_new, 0, - sizeof(t_abs), 0, A_NULL); - class_addmethod(abs_class, (t_method)nullfn, &s_signal, A_NULL); - class_addmethod(abs_class, (t_method)abs_dsp, gensym("dsp"), A_NULL); -} - -#endif -- cgit v1.2.1