From 05a9e3254454715e09b78f7a7ab788b02b2cbe60 Mon Sep 17 00:00:00 2001 From: musil Date: Fri, 8 Dec 2006 07:47:49 +0000 Subject: makefile help repaired spec2_sqrt~ svn path=/trunk/externals/iem/iem_spec2/; revision=6724 --- src/spec2_add_scalar~.c | 106 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 106 insertions(+) create mode 100644 src/spec2_add_scalar~.c (limited to 'src/spec2_add_scalar~.c') diff --git a/src/spec2_add_scalar~.c b/src/spec2_add_scalar~.c new file mode 100644 index 0000000..1581354 --- /dev/null +++ b/src/spec2_add_scalar~.c @@ -0,0 +1,106 @@ +/* For information on usage and redistribution, and for a DISCLAIMER OF ALL +* WARRANTIES, see the file, "LICENSE.txt," in this distribution. + +iem_spec2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2006 */ + + +#include "m_pd.h" +#include "iemlib.h" + +/* -------------------------- spec2_add_scalar~ ------------------------------ */ +static t_class *spec2_add_scalar_tilde_class; + +typedef struct _spec2_add_scalar_tilde +{ + t_object x_obj; + t_float x_f; + t_float x_msi; +} t_spec2_add_scalar_tilde; + +static void spec2_add_scalar_tilde_ft1(t_spec2_add_scalar_tilde *x, t_floatarg f) +{ + x->x_f = f; +} + +static t_int *spec2_add_scalar_tilde_perform(t_int *w) +{ + t_float *io = (t_float *)(w[1]); + t_spec2_add_scalar_tilde *x = (t_spec2_add_scalar_tilde *)(w[2]); + int i, n = (t_int)(w[3]); + t_float f = x->x_f; + + for(i=0; i<=n; i++) + { + io[i] += f; + } + return(w+4); +} + +static t_int *spec2_add_scalar_tilde_perf16(t_int *w) +{ + t_float *io = (t_float *)(w[1]); + t_spec2_add_scalar_tilde *x = (t_spec2_add_scalar_tilde *)(w[2]); + int n = (t_int)(w[3]); + t_float f = x->x_f; + + while(n) + { + io[0] += f; + io[1] += f; + io[2] += f; + io[3] += f; + io[4] += f; + io[5] += f; + io[6] += f; + io[7] += f; + io[8] += f; + io[9] += f; + io[10] += f; + io[11] += f; + io[12] += f; + io[13] += f; + io[14] += f; + io[15] += f; + + io += 16; + n -= 16; + } + io[0] += f; + return(w+4); +} + +static void spec2_add_scalar_tilde_dsp(t_spec2_add_scalar_tilde *x, t_signal **sp) +{ + int n = (sp[0]->s_n)/2; + + if(n&15) + dsp_add(spec2_add_scalar_tilde_perform, 3, sp[0]->s_vec, x, n); + else + dsp_add(spec2_add_scalar_tilde_perf16, 3, sp[0]->s_vec, x, n); +} + +static void *spec2_add_scalar_tilde_new(t_floatarg f) +{ + t_spec2_add_scalar_tilde *x = (t_spec2_add_scalar_tilde *)pd_new(spec2_add_scalar_tilde_class); + + inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1")); + outlet_new(&x->x_obj, &s_signal); + x->x_f = f; + x->x_msi = 0.0f; + return (x); +} + +static void spec2_add_scalar_tilde_free(t_spec2_add_scalar_tilde *x) +{ +} + +void spec2_add_scalar_tilde_setup(void) +{ + spec2_add_scalar_tilde_class = class_new(gensym("spec2_add_scalar~"), (t_newmethod)spec2_add_scalar_tilde_new, (t_method)spec2_add_scalar_tilde_free, + sizeof(t_spec2_add_scalar_tilde), 0, A_DEFFLOAT, 0); + class_addcreator((t_newmethod)spec2_add_scalar_tilde_new, gensym("spec2+s~"), A_DEFFLOAT, 0); + CLASS_MAINSIGNALIN(spec2_add_scalar_tilde_class, t_spec2_add_scalar_tilde, x_msi); + class_addmethod(spec2_add_scalar_tilde_class, (t_method)spec2_add_scalar_tilde_ft1, gensym("ft1"), A_FLOAT, 0); + class_addmethod(spec2_add_scalar_tilde_class, (t_method)spec2_add_scalar_tilde_dsp, gensym("dsp"), 0); + class_sethelpsymbol(spec2_add_scalar_tilde_class, gensym("iemhelp2/spec2_add_scalar~-help")); +} -- cgit v1.2.1