From df828adc5de7b218b8aaaefcbeb77b8e263e8564 Mon Sep 17 00:00:00 2001 From: Georg Holzmann Date: Fri, 12 Jan 2007 23:53:15 +0000 Subject: ekext now in libdir format svn path=/trunk/; revision=7325 --- externals/build/src/zeroxpos~.c | 101 ---------------------------------------- 1 file changed, 101 deletions(-) delete mode 100644 externals/build/src/zeroxpos~.c (limited to 'externals/build/src/zeroxpos~.c') diff --git a/externals/build/src/zeroxpos~.c b/externals/build/src/zeroxpos~.c deleted file mode 100644 index 1c436085..00000000 --- a/externals/build/src/zeroxpos~.c +++ /dev/null @@ -1,101 +0,0 @@ -#include "m_pd.h" - -static t_class *zeroxpos_tilde_class; - -typedef struct _zeroxpos_control -{ - t_float *c_input; - t_int final_pol; -} t_zeroxpos_control; - -typedef struct _zeroxpos_tilde -{ - t_object x_obj; - t_zeroxpos_control x_ctl; - t_float f_num, f_dummy; - t_int i_bang, i_pol, i_count, i_ndx; - t_outlet *f_pos, *f_pol; -} t_zeroxpos_tilde; - -t_int *zeroxpos_tilde_perform(t_int *w) -{ - t_zeroxpos_tilde *x = (t_zeroxpos_tilde *)(w[1]); - t_zeroxpos_control *ctl = (t_zeroxpos_control *)(w[2]); - int n = (int)(w[3]); - t_float *in = ctl->c_input; - int number = (int)x->f_num; - int count = x->i_count; - int polarity = 1; - int i = 0; - x->i_pol = 0; - x->i_ndx = -1; - int prev = ctl->final_pol; - - for(i=0;i= 0 ? 1 : -1; - if((polarity < prev || polarity > prev) && count == number && x->i_bang == 1) - { - x->i_ndx = i; - x->i_pol = polarity; - count++; - x->i_bang = 0; - } - if((polarity < prev || polarity > prev) && count < number) - { - count++; - } - if(i==n-1) - { - ctl->final_pol = polarity; - x->i_count = count; - } - prev = polarity; - } - outlet_float(x->f_pol, (float)x->i_pol); - outlet_float(x->f_pos, (float)x->i_ndx); - return(w+4); -} - -void zeroxpos_tilde_bang(t_zeroxpos_tilde *x) -{ - x->i_bang = 1; - x->i_count = 0; -} - -void *zeroxpos_tilde_dsp(t_zeroxpos_tilde *x, t_signal **sp) -{ - x->x_ctl.c_input = sp[0]->s_vec; - dsp_add(zeroxpos_tilde_perform, 3, x, &x->x_ctl, sp[0]->s_n); - return (void *)x; -} - -void *zeroxpos_tilde_new(t_floatarg f) -{ - t_zeroxpos_tilde *x = (t_zeroxpos_tilde *)pd_new(zeroxpos_tilde_class); - x->f_num = f > 0 ? f : 1; - x->x_ctl.final_pol = 1; - x->i_count = 0; - floatinlet_new (&x->x_obj, &x->f_num); - x->f_pos = outlet_new(&x->x_obj, gensym("float")); - x->f_pol = outlet_new(&x->x_obj, gensym("float")); - return (void *)x; -} - -void zeroxpos_tilde_setup(void) -{ - zeroxpos_tilde_class = class_new(gensym("zeroxpos~"), - (t_newmethod)zeroxpos_tilde_new, - 0, sizeof(t_zeroxpos_tilde), - CLASS_DEFAULT, A_DEFFLOAT, 0); - - post("|¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬zeroxpos~``````````````````````|"); - post("|find 1st, 2nd or 3rd etc zero crossing point in frame|"); - post("|````edward¬¬¬¬¬¬¬¬¬¬¬¬kelly``````````````````2005¬¬¬¬|"); - - class_sethelpsymbol(zeroxpos_tilde_class, gensym("help-zeroxpos~")); - class_addbang(zeroxpos_tilde_class, zeroxpos_tilde_bang); - class_addmethod(zeroxpos_tilde_class, (t_method)zeroxpos_tilde_dsp, gensym("dsp"), 0); - CLASS_MAINSIGNALIN(zeroxpos_tilde_class, t_zeroxpos_tilde, f_dummy); -} - -- cgit v1.2.1