From 2b60d55c919e7588f5aff15936e83c300b3660bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Tue, 22 Mar 2005 20:58:25 +0000
Subject: zexy-2.0: - use of abstractions for objects that allow it - some
 objects are build both as externals and abstractions (as slower fallbacks) -
 code-layout is now 1:1 c-file<->object (this should allow for building of
 zexy as  a collection of externals instead as a big library) - matrix-objects
 have moved to iemmatrix !!

svn path=/trunk/externals/zexy/; revision=2641
---
 src/unpack_tilde.c | 134 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 134 insertions(+)
 create mode 100644 src/unpack_tilde.c

(limited to 'src/unpack_tilde.c')

diff --git a/src/unpack_tilde.c b/src/unpack_tilde.c
new file mode 100644
index 0000000..f65d745
--- /dev/null
+++ b/src/unpack_tilde.c
@@ -0,0 +1,134 @@
+/******************************************************
+ *
+ * zexy - implementation file
+ *
+ * copyleft (c) IOhannes m zmölnig
+ *
+ *   1999:forum::für::umläute:2004
+ *
+ *   institute of electronic music and acoustics (iem)
+ *
+ ******************************************************
+ *
+ * license: GNU General Public License v.2
+ *
+ ******************************************************/
+
+/* 0109:forum::für::umläute:2000
+   unpack~ :: convert float-(package)-inputs to signals
+*/
+
+/* ---------------------------- unpack~ ----------------------------- */
+/* unpack a sequence of float-package to a signal-vector  */
+
+
+#include "zexy.h"
+#include <math.h>
+
+static t_class *sigunpack_class;
+
+typedef struct _sigunpack
+{
+  t_object x_obj;
+  t_float *buffer;
+  t_float *rp, *wp;
+  int bufsize;
+
+} t_sigunpack;
+
+static void sigunpack_float(t_sigunpack *x, t_float f)
+{
+  if (x->wp + 1  != x->rp) {
+    *(x->wp)++ = f;
+    if (x->wp == x->buffer + x->bufsize) x->wp = x->buffer;
+  }
+}
+
+static void sigunpack_list(t_sigunpack *x, t_symbol *s, int argc, t_atom *argv)
+{
+  t_atom *ap = argv;
+  int i;
+
+  for (i = 0, ap = argv; i < argc; ap++, i++) {
+    //    if (ap->a_type == A_FLOAT) {
+      if (x->wp + 1  != x->rp) {
+	*(x->wp)++ = atom_getfloat(ap);
+	if (x->wp == x->buffer + x->bufsize) x->wp = x->buffer;
+      }    
+    //    }
+  }
+}
+
+
+static t_int *sigunpack_perform(t_int *w)
+{
+  t_float *out = (t_float *)(w[1]);
+  t_sigunpack *x = (t_sigunpack *)w[2];
+  int n = (int)(w[3]);
+
+  t_float *buf = x->rp;
+  int hitchhike = 0;
+
+  if ((x->wp >= x->rp) && (x->wp < x->rp+n)) hitchhike=1;
+  x->rp += n;
+  if (x->rp == x->buffer + x->bufsize) x->rp = x->buffer;
+  if (hitchhike) x->wp = x->rp;
+
+  while (n--) {
+    *out++ = *buf;
+    *buf++ = 0;
+  }
+
+  return (w+4);
+}
+
+static void sigunpack_dsp(t_sigunpack *x, t_signal **sp)
+{
+  if (x->bufsize % sp[0]->s_n) {
+    int newsize = sp[0]->s_n*(1+(int)(x->bufsize/sp[0]->s_n));
+    freebytes(x->buffer, x->bufsize * sizeof(t_float));
+    x->buffer = (t_float *)getbytes(newsize * sizeof(t_float));
+
+    x->rp = x->wp = x->buffer;
+    x->bufsize = newsize;
+  }
+
+  dsp_add(sigunpack_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
+}
+
+static void *sigunpack_new(t_floatarg f)
+{
+  t_sigunpack *x = (t_sigunpack *)pd_new(sigunpack_class);
+
+  int suggestedsize = (int)f;
+  int bufsize;
+  if (!suggestedsize) bufsize = 64;
+  else bufsize = (suggestedsize % 64)?(64*(1+(int)(suggestedsize/64))):suggestedsize;
+
+  x->buffer = (t_float *)getbytes(bufsize * sizeof(t_float));
+  x->bufsize = bufsize;
+  x->rp = x->wp = x->buffer;
+
+  outlet_new(&x->x_obj, gensym("signal"));
+
+  return (x);
+}
+
+static void sigunpack_help(void)
+{
+  post("unpack~\t:: outputs a sequence of floats as a signal");
+}
+
+void unpack_tilde_setup(void)
+{
+  sigunpack_class = class_new(gensym("unpack~"), (t_newmethod)sigunpack_new, 0,
+			sizeof(t_sigunpack), 0, A_DEFFLOAT, 0);
+  class_addmethod(sigunpack_class, (t_method)sigunpack_dsp, gensym("dsp"), 0);
+  class_addfloat(sigunpack_class, (t_method)sigunpack_float);
+  class_addlist (sigunpack_class, (t_method)sigunpack_list);
+
+
+  class_addmethod(sigunpack_class, (t_method)sigunpack_help, gensym("help"), 0);
+  class_sethelpsymbol(sigunpack_class, gensym("zexy/unpack~"));
+  zexy_register("unpack~");
+}
-- 
cgit v1.2.1