1 files changed, 104 insertions, 0 deletions

diff --git a/apps/plugins/pdbox/PDa/intern/tabread.c b/apps/plugins/pdbox/PDa/intern/tabread.c
new file mode 100644
index 0000000000..5cd51b3036
--- /dev/null
+++ b/apps/plugins/pdbox/PDa/intern/tabread.c
@@ -0,0 +1,104 @@
+#include <m_pd.h>
+
+/* ---------- tabread: control, non-interpolating ------------------------ */
+
+static t_class *tabread_class;
+
+typedef struct _tabread
+{
+    t_object x_obj;
+    t_symbol *x_arrayname;
+} t_tabread;
+
+static void tabread_float(t_tabread *x, t_float f)
+{
+    t_garray *a;
+    int npoints;
+    t_sample *vec;
+
+    if (!(a = (t_garray *)pd_findbyclass(x->x_arrayname, garray_class)))
+        pd_error(x, "%s: no such array", x->x_arrayname->s_name);
+    else if (!garray_getfloatarray(a, &npoints, &vec))
+        pd_error(x, "%s: bad template for tabread", x->x_arrayname->s_name);
+    else
+    {
+        int n = f;
+        if (n < 0) n = 0;
+        else if (n >= npoints) n = npoints - 1;
+        outlet_float(x->x_obj.ob_outlet, (npoints ? fixtof(vec[n]) : 0));
+    }
+}
+
+static void tabread_set(t_tabread *x, t_symbol *s)
+{
+    x->x_arrayname = s;
+}
+
+static void *tabread_new(t_symbol *s)
+{
+    t_tabread *x = (t_tabread *)pd_new(tabread_class);
+    x->x_arrayname = s;
+    outlet_new(&x->x_obj, &s_float);
+    return (x);
+}
+
+void tabread_setup(void)
+{
+    tabread_class = class_new(gensym("tabread"), (t_newmethod)tabread_new,
+        0, sizeof(t_tabread), 0, A_DEFSYM, 0);
+    class_addfloat(tabread_class, (t_method)tabread_float);
+    class_addmethod(tabread_class, (t_method)tabread_set, gensym("set"),
+        A_SYMBOL, 0);
+}
+#include <m_pd.h>
+
+/* ---------- tabread: control, non-interpolating ------------------------ */
+
+static t_class *tabread_class;
+
+typedef struct _tabread
+{
+    t_object x_obj;
+    t_symbol *x_arrayname;
+} t_tabread;
+
+static void tabread_float(t_tabread *x, t_float f)
+{
+    t_garray *a;
+    int npoints;
+    t_sample *vec;
+
+    if (!(a = (t_garray *)pd_findbyclass(x->x_arrayname, garray_class)))
+        pd_error(x, "%s: no such array", x->x_arrayname->s_name);
+    else if (!garray_getfloatarray(a, &npoints, &vec))
+        pd_error(x, "%s: bad template for tabread", x->x_arrayname->s_name);
+    else
+    {
+        int n = f;
+        if (n < 0) n = 0;
+        else if (n >= npoints) n = npoints - 1;
+        outlet_float(x->x_obj.ob_outlet, (npoints ? fixtof(vec[n]) : 0));
+    }
+}
+
+static void tabread_set(t_tabread *x, t_symbol *s)
+{
+    x->x_arrayname = s;
+}
+
+static void *tabread_new(t_symbol *s)
+{
+    t_tabread *x = (t_tabread *)pd_new(tabread_class);
+    x->x_arrayname = s;
+    outlet_new(&x->x_obj, &s_float);
+    return (x);
+}
+
+void tabread_setup(void)
+{
+    tabread_class = class_new(gensym("tabread"), (t_newmethod)tabread_new,
+        0, sizeof(t_tabread), 0, A_DEFSYM, 0);
+    class_addfloat(tabread_class, (t_method)tabread_float);
+    class_addmethod(tabread_class, (t_method)tabread_set, gensym("set"),
+        A_SYMBOL, 0);
+}