From 08596048cf2b13cfba6d7fabe5ad5604875d9a45 Mon Sep 17 00:00:00 2001
From: Ed Kelly <edkelly@users.sourceforge.net>
Date: Thu, 1 Dec 2005 11:22:08 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r4096, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=4097
---
 externals/build/src/zeroxpos~.c | 101 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 101 insertions(+)
 create 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
new file mode 100644
index 00000000..1c436085
--- /dev/null
+++ b/externals/build/src/zeroxpos~.c
@@ -0,0 +1,101 @@
+#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<n;i++)
+    {
+      polarity = in[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