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, 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 0000000..5cd51b3
--- /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);
+}