aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--flist2tab/flist2tab-help.pd25
-rw-r--r--flist2tab/flist2tab.c148
2 files changed, 173 insertions, 0 deletions
diff --git a/flist2tab/flist2tab-help.pd b/flist2tab/flist2tab-help.pd
new file mode 100644
index 0000000..94b4c36
--- /dev/null
+++ b/flist2tab/flist2tab-help.pd
@@ -0,0 +1,25 @@
+#N canvas 437 577 450 300 10;
+#X obj 241 227 table pig;
+#X obj 170 200 flist2tab pig;
+#X obj 147 160 any2string;
+#X msg 147 137 Hello;
+#X floatatom 245 159 5 0 0 0 - - -;
+#X msg 61 74 81 28 0 33 55 1 2 3;
+#X text 10 -15 flist2tab loads floats or lists of floats into a table
+;
+#X text 10 1 at an offset determined by a float in the second inlet.
+;
+#X text 10 17 Negative offsets will be ignored.;
+#X obj 170 227 table twig;
+#X msg 91 104 set twig;
+#X text 148 103 set the working table;
+#X text 258 200 argument is table name;
+#X text 257 257 2009 1 21 Martin Peach;
+#X text 10 33 Offsets greater than the table length cause the table
+to be resized to fit.;
+#X text 279 159 default offset is 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 1 1;
+#X connect 5 0 1 0;
+#X connect 10 0 1 0;
diff --git a/flist2tab/flist2tab.c b/flist2tab/flist2tab.c
new file mode 100644
index 0000000..7217bd6
--- /dev/null
+++ b/flist2tab/flist2tab.c
@@ -0,0 +1,148 @@
+/* flist2tab started 20090121 by mrpeach */
+/* loads table from a list of floats at offset specified by second inlet */
+/* floats negative offsets will not be loaded. */
+/* Table will be resized to fit all the floats at positive offsets */
+
+#include "m_pd.h"
+
+#if (PD_MINOR_VERSION > 40)
+#define USE_GETFLOATWORDS *//* if garray_getfloatwords is implemented */
+#endif
+/* garray_getfloatwords uses t_word but doesn't exist in some versions of pd */
+/* garray_getfloatarray uses t_float but is not 64-bit */
+
+static t_class *flist2tab_class;
+
+typedef struct _flist2tab
+{
+ t_object x_obj;
+ t_symbol *x_arrayname;
+ t_float x_ft1;
+ t_float x_offset;
+} t_flist2tab;
+
+static void flist2tab_list(t_flist2tab *x, t_symbol *s, int argc, t_atom *argv);
+static void flist2tab_float(t_flist2tab *x, t_float f);
+static void flist2tab_set(t_flist2tab *x, t_symbol *s);
+static void *flist2tab_new(t_symbol *s);
+void flist2tab_setup(void);
+
+static void flist2tab_list(t_flist2tab *x, t_symbol *s, int argc, t_atom *argv)
+{
+ t_garray *a;
+#ifdef USE_GETFLOATWORDS
+ t_word *vec;
+#else
+ t_float *vec;
+#endif
+ int npoints, newsize, i;
+ int offset = x->x_offset;
+
+ /* first check the list for floatness... */
+ for (i = 0; i < argc; ++i)
+ {
+ if (argv[i].a_type != A_FLOAT)
+ {
+ pd_error(x, "flist2tab_list: list must be all floats");
+ return;
+ }
+ }
+
+ /* then find the array again... */
+ if (!(a = (t_garray *)pd_findbyclass(x->x_arrayname, garray_class)))
+ pd_error(x, "flist2tab_list: %s: no such array", x->x_arrayname->s_name);
+#ifdef USE_GETFLOATWORDS
+ else if (!garray_getfloatwords(a, &npoints, &vec))
+#else
+ else if (!garray_getfloatarray(a, &npoints, &vec))
+#endif
+ pd_error(x, "fflist2tab_list: %s: bad template", x->x_arrayname->s_name);
+ else
+ /* put the list in a starting at offset */
+ {
+ newsize = offset + argc;
+ if (newsize >= npoints)
+ {
+ garray_resize(a, newsize);
+#ifdef USE_GETFLOATWORDS
+ if (!garray_getfloatwords(a, &npoints, &vec))
+#else
+ if (!garray_getfloatarray(a, &npoints, &vec))
+#endif
+ pd_error(x, "fflist2tab_list: %s: bad template", x->x_arrayname->s_name);
+ }
+ for (i = 0; i < argc; ++i)
+ {
+ if (i+offset >= 0)
+#ifdef USE_GETFLOATWORDS
+ vec[i+offset].w_float = argv[i].a_w.w_float;
+#else
+ vec[i+offset] = argv[i].a_w.w_float;
+#endif
+ }
+ }
+}
+
+static void flist2tab_float(t_flist2tab *x, t_float f)
+{
+ int i, npoints, offset = x->x_offset;
+ t_garray *a;
+#ifdef USE_GETFLOATWORDS
+ t_word *vec;
+#else
+ t_float *vec;
+#endif
+
+ if (!(a = (t_garray *)pd_findbyclass(x->x_arrayname, garray_class)))
+ pd_error(x, "flist2tab_float %s: no such array", x->x_arrayname->s_name);
+#ifdef USE_GETFLOATWORDS
+ else if (!garray_getfloatwords(a, &npoints, &vec))
+#else
+ else if (!garray_getfloatarray(a, &npoints, &vec))
+#endif
+ pd_error(x, "flist2tab_float %s: bad template", x->x_arrayname->s_name);
+ else if (offset >= 0)
+ {
+ if (offset >= npoints)
+ {
+ garray_resize(a, offset+1);
+#ifdef USE_GETFLOATWORDS
+ if (!garray_getfloatwords(a, &npoints, &vec))
+#else
+ if (!garray_getfloatarray(a, &npoints, &vec))
+#endif
+ pd_error(x, "flist2tab_float %s: bad template", x->x_arrayname->s_name);
+ }
+#ifdef USE_GETFLOATWORDS
+ vec[offset].w_float = f;
+#else
+ vec[offset] = f;
+#endif
+ garray_redraw(a);
+ }
+}
+
+static void flist2tab_set(t_flist2tab *x, t_symbol *s)
+{
+ x->x_arrayname = s;
+}
+
+static void *flist2tab_new(t_symbol *s)
+{
+ t_flist2tab *x = (t_flist2tab *)pd_new(flist2tab_class);
+ x->x_offset = 0;
+ x->x_arrayname = s;
+ floatinlet_new(&x->x_obj, &x->x_offset);
+ return (x);
+}
+
+void flist2tab_setup(void)
+{
+ flist2tab_class = class_new(gensym("flist2tab"), (t_newmethod)flist2tab_new,
+ 0, sizeof(t_flist2tab), 0, A_DEFSYM, 0);
+ class_addfloat(flist2tab_class, (t_method)flist2tab_float);
+ class_addlist(flist2tab_class, (t_method)flist2tab_list);
+ class_addmethod(flist2tab_class, (t_method)flist2tab_set, gensym("set"),
+ A_SYMBOL, 0);
+}
+