[PD-cvs] SF.net SVN: pure-data:[10598] trunk/externals/mrpeach

mrpeach at users.sourceforge.net mrpeach at users.sourceforge.net
Thu Jan 22 19:52:12 CET 2009


Revision: 10598
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10598&view=rev
Author:   mrpeach
Date:     2009-01-22 18:52:11 +0000 (Thu, 22 Jan 2009)

Log Message:
-----------
flist2tab loads a list of floats into a table, resizing the table if it is too small.

Added Paths:
-----------
    trunk/externals/mrpeach/flist2tab/
    trunk/externals/mrpeach/flist2tab/flist2tab-help.pd
    trunk/externals/mrpeach/flist2tab/flist2tab.c

Added: trunk/externals/mrpeach/flist2tab/flist2tab-help.pd
===================================================================
--- trunk/externals/mrpeach/flist2tab/flist2tab-help.pd	                        (rev 0)
+++ trunk/externals/mrpeach/flist2tab/flist2tab-help.pd	2009-01-22 18:52:11 UTC (rev 10598)
@@ -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;

Added: trunk/externals/mrpeach/flist2tab/flist2tab.c
===================================================================
--- trunk/externals/mrpeach/flist2tab/flist2tab.c	                        (rev 0)
+++ trunk/externals/mrpeach/flist2tab/flist2tab.c	2009-01-22 18:52:11 UTC (rev 10598)
@@ -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);
+}
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




More information about the Pd-cvs mailing list