Add FS #10214. Initial commit of the original PDa code for the GSoC Pure Data plugin project of Wincent Balin. Stripped some non-sourcefiles and added a rockbox readme that needs a bit more info from Wincent. Is added to CATEGORIES and viewers, but not yet to SUBDIRS (ie doesn't build yet)

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21044 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 270 insertions, 0 deletions

diff --git a/apps/plugins/pdbox/PDa/intern/threshold~.c b/apps/plugins/pdbox/PDa/intern/threshold~.c
new file mode 100644
index 0000000000..78b15f7342
--- /dev/null
+++ b/apps/plugins/pdbox/PDa/intern/threshold~.c
@@ -0,0 +1,270 @@
+#include <m_pd.h>
+#include <m_fixed.h>
+
+static t_class *threshold_tilde_class;
+
+typedef struct _threshold_tilde
+{
+    t_object x_obj;
+    t_outlet *x_outlet1;        /* bang out for high thresh */
+    t_outlet *x_outlet2;        /* bang out for low thresh */
+    t_clock *x_clock;           /* wakeup for message output */
+    float x_f;                  /* scalar inlet */
+    int x_state;                /* 1 = high, 0 = low */
+    t_sample x_hithresh;                /* value of high threshold */
+    t_sample x_lothresh;                /* value of low threshold */
+    float x_deadwait;           /* msec remaining in dead period */
+    float x_msecpertick;        /* msec per DSP tick */
+    float x_hideadtime;         /* hi dead time in msec */
+    float x_lodeadtime;         /* lo dead time in msec */
+} t_threshold_tilde;
+
+static void threshold_tilde_tick(t_threshold_tilde *x);
+static void threshold_tilde_set(t_threshold_tilde *x,
+    t_floatarg hithresh, t_floatarg hideadtime,
+    t_floatarg lothresh, t_floatarg lodeadtime);
+
+static t_threshold_tilde *threshold_tilde_new(t_floatarg hithresh,
+    t_floatarg hideadtime, t_floatarg lothresh, t_floatarg lodeadtime)
+{
+    t_threshold_tilde *x = (t_threshold_tilde *)
+        pd_new(threshold_tilde_class);
+    x->x_state = 0;             /* low state */
+    x->x_deadwait = 0;          /* no dead time */
+    x->x_clock = clock_new(x, (t_method)threshold_tilde_tick);
+    x->x_outlet1 = outlet_new(&x->x_obj, &s_bang);
+    x->x_outlet2 = outlet_new(&x->x_obj, &s_bang);
+    inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
+    x->x_msecpertick = 0.;
+    x->x_f = 0;
+    threshold_tilde_set(x, hithresh, hideadtime, lothresh, lodeadtime);
+    return (x);
+}
+
+    /* "set" message to specify thresholds and dead times */
+static void threshold_tilde_set(t_threshold_tilde *x,
+    t_floatarg hithresh, t_floatarg hideadtime,
+    t_floatarg lothresh, t_floatarg lodeadtime)
+{
+    if (lothresh > hithresh)
+        lothresh = hithresh;
+    x->x_hithresh = ftofix(hithresh);
+    x->x_hideadtime = hideadtime;
+    x->x_lothresh = ftofix(lothresh);
+    x->x_lodeadtime = lodeadtime;
+}
+
+    /* number in inlet sets state -- note incompatible with JMAX which used
+    "int" message for this, impossible here because of auto signal conversion */
+static void threshold_tilde_ft1(t_threshold_tilde *x, t_floatarg f)
+{
+    x->x_state = (f != 0);
+    x->x_deadwait = 0;
+}
+
+static void threshold_tilde_tick(t_threshold_tilde *x)  
+{
+    if (x->x_state)
+        outlet_bang(x->x_outlet1);
+    else outlet_bang(x->x_outlet2);
+}
+
+static t_int *threshold_tilde_perform(t_int *w)
+{
+    t_sample *in1 = (t_sample *)(w[1]);
+    t_threshold_tilde *x = (t_threshold_tilde *)(w[2]);
+    int n = (t_int)(w[3]);
+    if (x->x_deadwait > 0)
+        x->x_deadwait -= x->x_msecpertick;
+    else if (x->x_state)
+    {
+            /* we're high; look for low sample */
+        for (; n--; in1++)
+        {
+            if (*in1 < x->x_lothresh)
+            {
+                clock_delay(x->x_clock, 0L);
+                x->x_state = 0;
+                x->x_deadwait = x->x_lodeadtime;
+                goto done;
+            }
+        }
+    }
+    else
+    {
+            /* we're low; look for high sample */
+        for (; n--; in1++)
+        {
+            if (*in1 >= x->x_hithresh)
+            {
+                clock_delay(x->x_clock, 0L);
+                x->x_state = 1;
+                x->x_deadwait = x->x_hideadtime;
+                goto done;
+            }
+        }
+    }
+done:
+    return (w+4);
+}
+
+void threshold_tilde_dsp(t_threshold_tilde *x, t_signal **sp)
+{
+    x->x_msecpertick = 1000. * sp[0]->s_n / sp[0]->s_sr;
+    dsp_add(threshold_tilde_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
+}
+
+static void threshold_tilde_ff(t_threshold_tilde *x)
+{
+    clock_free(x->x_clock);
+}
+
+void threshold_tilde_setup( void)
+{
+    threshold_tilde_class = class_new(gensym("threshold~"),
+        (t_newmethod)threshold_tilde_new, (t_method)threshold_tilde_ff,
+        sizeof(t_threshold_tilde), 0,
+            A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
+    CLASS_MAINSIGNALIN(threshold_tilde_class, t_threshold_tilde, x_f);
+    class_addmethod(threshold_tilde_class, (t_method)threshold_tilde_set,
+        gensym("set"), A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
+    class_addmethod(threshold_tilde_class, (t_method)threshold_tilde_ft1,
+        gensym("ft1"), A_FLOAT, 0);
+    class_addmethod(threshold_tilde_class, (t_method)threshold_tilde_dsp,
+        gensym("dsp"), 0);
+}
+#include <m_pd.h>
+#include <m_fixed.h>
+
+static t_class *threshold_tilde_class;
+
+typedef struct _threshold_tilde
+{
+    t_object x_obj;
+    t_outlet *x_outlet1;        /* bang out for high thresh */
+    t_outlet *x_outlet2;        /* bang out for low thresh */
+    t_clock *x_clock;           /* wakeup for message output */
+    float x_f;                  /* scalar inlet */
+    int x_state;                /* 1 = high, 0 = low */
+    t_sample x_hithresh;                /* value of high threshold */
+    t_sample x_lothresh;                /* value of low threshold */
+    float x_deadwait;           /* msec remaining in dead period */
+    float x_msecpertick;        /* msec per DSP tick */
+    float x_hideadtime;         /* hi dead time in msec */
+    float x_lodeadtime;         /* lo dead time in msec */
+} t_threshold_tilde;
+
+static void threshold_tilde_tick(t_threshold_tilde *x);
+static void threshold_tilde_set(t_threshold_tilde *x,
+    t_floatarg hithresh, t_floatarg hideadtime,
+    t_floatarg lothresh, t_floatarg lodeadtime);
+
+static t_threshold_tilde *threshold_tilde_new(t_floatarg hithresh,
+    t_floatarg hideadtime, t_floatarg lothresh, t_floatarg lodeadtime)
+{
+    t_threshold_tilde *x = (t_threshold_tilde *)
+        pd_new(threshold_tilde_class);
+    x->x_state = 0;             /* low state */
+    x->x_deadwait = 0;          /* no dead time */
+    x->x_clock = clock_new(x, (t_method)threshold_tilde_tick);
+    x->x_outlet1 = outlet_new(&x->x_obj, &s_bang);
+    x->x_outlet2 = outlet_new(&x->x_obj, &s_bang);
+    inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
+    x->x_msecpertick = 0.;
+    x->x_f = 0;
+    threshold_tilde_set(x, hithresh, hideadtime, lothresh, lodeadtime);
+    return (x);
+}
+
+    /* "set" message to specify thresholds and dead times */
+static void threshold_tilde_set(t_threshold_tilde *x,
+    t_floatarg hithresh, t_floatarg hideadtime,
+    t_floatarg lothresh, t_floatarg lodeadtime)
+{
+    if (lothresh > hithresh)
+        lothresh = hithresh;
+    x->x_hithresh = ftofix(hithresh);
+    x->x_hideadtime = hideadtime;
+    x->x_lothresh = ftofix(lothresh);
+    x->x_lodeadtime = lodeadtime;
+}
+
+    /* number in inlet sets state -- note incompatible with JMAX which used
+    "int" message for this, impossible here because of auto signal conversion */
+static void threshold_tilde_ft1(t_threshold_tilde *x, t_floatarg f)
+{
+    x->x_state = (f != 0);
+    x->x_deadwait = 0;
+}
+
+static void threshold_tilde_tick(t_threshold_tilde *x)  
+{
+    if (x->x_state)
+        outlet_bang(x->x_outlet1);
+    else outlet_bang(x->x_outlet2);
+}
+
+static t_int *threshold_tilde_perform(t_int *w)
+{
+    t_sample *in1 = (t_sample *)(w[1]);
+    t_threshold_tilde *x = (t_threshold_tilde *)(w[2]);
+    int n = (t_int)(w[3]);
+    if (x->x_deadwait > 0)
+        x->x_deadwait -= x->x_msecpertick;
+    else if (x->x_state)
+    {
+            /* we're high; look for low sample */
+        for (; n--; in1++)
+        {
+            if (*in1 < x->x_lothresh)
+            {
+                clock_delay(x->x_clock, 0L);
+                x->x_state = 0;
+                x->x_deadwait = x->x_lodeadtime;
+                goto done;
+            }
+        }
+    }
+    else
+    {
+            /* we're low; look for high sample */
+        for (; n--; in1++)
+        {
+            if (*in1 >= x->x_hithresh)
+            {
+                clock_delay(x->x_clock, 0L);
+                x->x_state = 1;
+                x->x_deadwait = x->x_hideadtime;
+                goto done;
+            }
+        }
+    }
+done:
+    return (w+4);
+}
+
+void threshold_tilde_dsp(t_threshold_tilde *x, t_signal **sp)
+{
+    x->x_msecpertick = 1000. * sp[0]->s_n / sp[0]->s_sr;
+    dsp_add(threshold_tilde_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
+}
+
+static void threshold_tilde_ff(t_threshold_tilde *x)
+{
+    clock_free(x->x_clock);
+}
+
+void threshold_tilde_setup( void)
+{
+    threshold_tilde_class = class_new(gensym("threshold~"),
+        (t_newmethod)threshold_tilde_new, (t_method)threshold_tilde_ff,
+        sizeof(t_threshold_tilde), 0,
+            A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0);
+    CLASS_MAINSIGNALIN(threshold_tilde_class, t_threshold_tilde, x_f);
+    class_addmethod(threshold_tilde_class, (t_method)threshold_tilde_set,
+        gensym("set"), A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0);
+    class_addmethod(threshold_tilde_class, (t_method)threshold_tilde_ft1,
+        gensym("ft1"), A_FLOAT, 0);
+    class_addmethod(threshold_tilde_class, (t_method)threshold_tilde_dsp,
+        gensym("dsp"), 0);
+}