SF.net SVN: pure-data:[10597] trunk/externals/mrpeach - Pd-cvs

22 Jan 2009

Revision: 10597
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10597&view=rev
Author:   mrpeach
Date:     2009-01-22 18:51:25 +0000 (Thu, 22 Jan 2009)
Log Message:
-----------
tab2flist extracts a list of floats from a table at a given offset. The length of the list can be set via the second inlet. Points outside the table are returned as zeros.
Added Paths:
-----------
    trunk/externals/mrpeach/tab2flist/
    trunk/externals/mrpeach/tab2flist/tab2flist-help.pd
    trunk/externals/mrpeach/tab2flist/tab2flist.c
Added: trunk/externals/mrpeach/tab2flist/tab2flist-help.pd
===================================================================

--- trunk/externals/mrpeach/tab2flist/tab2flist-help.pd	                        (rev 0)
+++ trunk/externals/mrpeach/tab2flist/tab2flist-help.pd	2009-01-22 18:51:25 UTC (rev 10597)
@@ -0,0 +1,29 @@
+#N canvas 650 129 535 246 10;
+#X obj 117 117 tab2flist zig;
+#X obj 10 -5 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -257985
+-1;
+#X obj 117 138 print;
+#X obj 155 138 table zig;
+#X text 110 208 2009 1 21 Martin Peach;
+#X floatatom 192 89 5 0 0 0 - - -;
+#X floatatom 64 48 5 0 0 0 - - -;
+#X text 33 -8 Banging tab2flist outputs a list of floats from the table.
+;
+#X msg 36 19 set zag;
+#X text 205 117 Argument is table name.;
+#X text 115 155 Points outside the table will be output as zeroes.
+;
+#X text 98 47 A single float sets offset.;
+#X text 89 18 Set the table by name.;
+#X obj 215 138 table zag;
+#X msg 86 69 5 10;
+#X text 115 169 Negative length outputs a list as long as the table.
+;
+#X text 229 86 Float in second inlet sets length of list.;
+#X text 118 68 Two floats set offset and length.;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 5 0 0 1;
+#X connect 6 0 0 0;
+#X connect 8 0 0 0;
+#X connect 14 0 0 0;
Added: trunk/externals/mrpeach/tab2flist/tab2flist.c
===================================================================
--- trunk/externals/mrpeach/tab2flist/tab2flist.c	                        (rev 0)
+++ trunk/externals/mrpeach/tab2flist/tab2flist.c	2009-01-22 18:51:25 UTC (rev 10597)
@@ -0,0 +1,156 @@
+/* tab2flist started 20090121 by mrpeach */
+/* Message with two floats dumps a list of floats from a table at offset,length */
+/* Bang dumps the entire table as a list of floats */
+/* Floats at negative offsets will not be dumped. */
+
+#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 *tab2flist_class;
+
+typedef struct _tab2flist
+{
+    t_object    x_obj;
+    t_outlet    *x_listout;
+    t_symbol    *x_arrayname;
+    t_float     x_offset;
+    t_float     x_length;
+} t_tab2flist;
+
+//static void tab2flist_list(t_tab2flist *x, t_symbol *s, int argc, t_atom *argv);
+static void tab2flist_float(t_tab2flist *x, t_float f);
+static void tab2flist_bang(t_tab2flist *x);
+static void tab2flist_set(t_tab2flist *x, t_symbol *s);
+static void *tab2flist_new(t_symbol *s);
+void tab2flist_setup(void);
+
+static void tab2flist_bang(t_tab2flist *x)
+{
+    /* output a list of x_length floats from the table starting from x_offset */
+    /* output zero for elements outside the table (e.g. negative x_offset) */
+
+    t_garray    *a;
+    int         n, i, tabpoints, listpoints;
+    int         listsize;
+    t_atom      *atomlist = NULL;
+#ifdef USE_GETFLOATWORDS
+    t_word      *vec;
+#else
+    t_float     *vec;
+#endif
+
+    /* Read in the array */
+    if (!(a = (t_garray *)pd_findbyclass(x->x_arrayname, garray_class)))
+        pd_error(x, "tab2flist_list: %s: no such array", x->x_arrayname->s_name);
+#ifdef USE_GETFLOATWORDS
+    else if (!garray_getfloatwords(a, &tabpoints, &vec))
+#else
+    else if (!garray_getfloatarray(a, &tabpoints, &vec))
+#endif
+        pd_error(x, "tab2flist_list: %s: bad template", x->x_arrayname->s_name);
+    else if (x->x_length != 0)
+    {
+        if (x->x_length > 0) listpoints = x->x_length;
+        else listsize = tabpoints; /* when x_length < 0, output the whole table */
+        listsize = listpoints * sizeof(t_atom);
+        atomlist = getbytes(listsize);
+        if (atomlist == NULL)
+        {
+            pd_error(x, "tab2flist_list: unable to allocate %lu bytes for list", listsize);
+            return;
+        }
+        else 
+        {
+            for (n = x->x_offset, i = 0; i < listpoints; ++n)
+            {
+                if ((n >= 0) && (n < tabpoints))
+                {
+#ifdef USE_GETFLOATWORDS
+                    SETFLOAT(&atomlist[i], vec[n].w_float);
+#else
+                    SETFLOAT(&atomlist[i], vec[n]);
+#endif
+                }
+                else
+                {
+#ifdef USE_GETFLOATWORDS
+                    SETFLOAT(&atomlist[i], 0);
+#else
+                    SETFLOAT(&atomlist[i], 0);
+#endif
+                }
+                i++;
+            }
+            outlet_list(x->x_listout, &s_list, listpoints, atomlist);
+            freebytes(atomlist, listsize);
+        }
+    }
+}
+
+#ifdef NOWAY
+
+static void tab2flist_list(t_tab2flist *x, t_symbol *s, int argc, t_atom *argv)
+{
+    int i;
+    /* expect a list of 2 floats for offset and packet length */
+
+    /* Check the incoming list for length = 2 */
+    if (argc != 2)
+    {
+        pd_error(x, "tab2flist_list: list must contain exactly two floats (offset, length)");
+        return;
+    }
+
+    /* Check the incoming list for floatness... */
+    for (i = 0; i < 2; ++i)
+    {
+        if (argv[i].a_type != A_FLOAT)
+        {
+            pd_error(x, "tab2flist_list: list must contain exactly two floats (offset, length)");
+            return;
+        }
+    }
+    /* Read offset and packet size from incoming list */
+    x->x_offset = argv[0].a_w.w_float;
+    x->x_length = argv[1].a_w.w_float;
+
+}
+#endif 
+
+static void tab2flist_float(t_tab2flist *x, t_float f)
+{
+    x->x_offset = f;
+}
+
+static void tab2flist_set(t_tab2flist *x, t_symbol *s)
+{
+    x->x_arrayname = s;
+}
+
+static void *tab2flist_new(t_symbol *s)
+{
+    t_tab2flist *x = (t_tab2flist *)pd_new(tab2flist_class);
+    x->x_listout = outlet_new(&x->x_obj, &s_list);
+    floatinlet_new(&x->x_obj, &x->x_length);
+    x->x_offset = 0;
+    x->x_length = -1; /* default to output the whole table */
+    x->x_arrayname = s;
+    return (x);
+}
+
+void tab2flist_setup(void)
+{
+    tab2flist_class = class_new(gensym("tab2flist"), (t_newmethod)tab2flist_new,
+        0, sizeof(t_tab2flist), 0, A_DEFSYM, 0);
+    class_addbang(tab2flist_class, (t_method)tab2flist_bang);
+//    class_addlist(tab2flist_class, (t_method)tab2flist_list);
+    class_addfloat(tab2flist_class, (t_method)tab2flist_float);
+    class_addmethod(tab2flist_class, (t_method)tab2flist_set, gensym("set"),
+        A_SYMBOL, 0);
+}
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

    