diff options
Diffstat (limited to 'src/spec2_clip_min~.c')
-rw-r--r-- | src/spec2_clip_min~.c | 167 |
1 files changed, 167 insertions, 0 deletions
diff --git a/src/spec2_clip_min~.c b/src/spec2_clip_min~.c new file mode 100644 index 0000000..f3071da --- /dev/null +++ b/src/spec2_clip_min~.c @@ -0,0 +1,167 @@ +/* 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_clip_min~ ------------------------------ */ +static t_class *spec2_clip_min_tilde_class; + +typedef struct _spec2_clip_min_tilde +{ + t_object x_obj; + t_float x_msi; +} t_spec2_clip_min_tilde; + +static t_int *spec2_clip_min_tilde_perform(t_int *w) +{ + t_float *in = (t_float *)(w[1]); + t_float *min = (t_float *)(w[2]); + t_float *out = (t_float *)(w[3]); + int i, n = (t_int)(w[4]); + + for(i=0; i<=n; i++) + { + if(in[i] < min[i]) + out[i] = min[i]; + else + out[i] = in[i]; + } + return(w+5); +} + +static t_int *spec2_clip_min_tilde_perf16(t_int *w) +{ + t_float *in = (t_float *)(w[1]); + t_float *min = (t_float *)(w[2]); + t_float *out = (t_float *)(w[3]); + int n = (t_int)(w[4]); + + while(n) + { + if(in[0] < min[0]) + out[0] = min[0]; + else + out[0] = in[0]; + + if(in[1] < min[1]) + out[1] = min[1]; + else + out[1] = in[1]; + + if(in[2] < min[2]) + out[2] = min[2]; + else + out[2] = in[2]; + + if(in[3] < min[3]) + out[3] = min[3]; + else + out[3] = in[3]; + + if(in[4] < min[4]) + out[4] = min[4]; + else + out[4] = in[4]; + + if(in[5] < min[5]) + out[5] = min[5]; + else + out[5] = in[5]; + + if(in[6] < min[6]) + out[6] = min[6]; + else + out[6] = in[6]; + + if(in[7] < min[7]) + out[7] = min[7]; + else + out[7] = in[7]; + + if(in[8] < min[8]) + out[8] = min[8]; + else + out[8] = in[8]; + + if(in[9] < min[9]) + out[9] = min[9]; + else + out[9] = in[9]; + + if(in[10] < min[10]) + out[10] = min[10]; + else + out[10] = in[10]; + + if(in[11] < min[11]) + out[11] = min[11]; + else + out[11] = in[11]; + + if(in[12] < min[12]) + out[12] = min[12]; + else + out[12] = in[12]; + + if(in[13] < min[13]) + out[13] = min[13]; + else + out[13] = in[13]; + + if(in[14] < min[14]) + out[14] = min[14]; + else + out[14] = in[14]; + + if(in[15] < min[15]) + out[15] = min[15]; + else + out[15] = in[15]; + + in += 16; + min += 16; + out += 16; + n -= 16; + } + if(in[0] < min[0]) + out[0] = min[0]; + else + out[0] = in[0]; + return(w+5); +} + +static void spec2_clip_min_tilde_dsp(t_spec2_clip_min_tilde *x, t_signal **sp) +{ + int n = (sp[0]->s_n)/2; + + if(n&15) + dsp_add(spec2_clip_min_tilde_perform, 4, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, n); + else + dsp_add(spec2_clip_min_tilde_perf16, 4, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, n); +} + +static void *spec2_clip_min_tilde_new(void) +{ + t_spec2_clip_min_tilde *x = (t_spec2_clip_min_tilde *)pd_new(spec2_clip_min_tilde_class); + + inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); + outlet_new(&x->x_obj, &s_signal); + x->x_msi = 0.0f; + return (x); +} + +static void spec2_clip_min_tilde_free(t_spec2_clip_min_tilde *x) +{ +} + +void spec2_clip_min_tilde_setup(void) +{ + spec2_clip_min_tilde_class = class_new(gensym("spec2_clip_min~"), (t_newmethod)spec2_clip_min_tilde_new, (t_method)spec2_clip_min_tilde_free, + sizeof(t_spec2_clip_min_tilde), 0, 0); + CLASS_MAINSIGNALIN(spec2_clip_min_tilde_class, t_spec2_clip_min_tilde, x_msi); + class_addmethod(spec2_clip_min_tilde_class, (t_method)spec2_clip_min_tilde_dsp, gensym("dsp"), 0); + class_sethelpsymbol(spec2_clip_min_tilde_class, gensym("iemhelp2/spec2_clip_min~-help")); +} |