From 82c0f9c8e917102c29dc0f3fbdb5183781305fef Mon Sep 17 00:00:00 2001
From: Thomas O Fredericks <mrtof@users.sourceforge.net>
Date: Wed, 30 Sep 2009 18:52:19 +0000
Subject: Fools, put~ and get~ are now part of tof

svn path=/trunk/externals/tof/; revision=12500
---
 src/get~.c | 93 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 93 insertions(+)
 create mode 100644 src/get~.c

(limited to 'src/get~.c')

diff --git a/src/get~.c b/src/get~.c
new file mode 100644
index 0000000..4d6356d
--- /dev/null
+++ b/src/get~.c
@@ -0,0 +1,93 @@
+#include "putget~.h"
+
+static t_class *get_tilde_class;
+
+typedef struct _get_tilde {
+  t_object  		x_obj;
+  t_sample 			f_put;
+  struct putget*	pg; 
+  t_sample 			f;
+} t_get_tilde;
+
+t_int *get_tilde_perform(t_int *w)
+{
+  t_get_tilde *x = (t_get_tilde *)(w[1]);
+  t_sample  *out =    (t_sample *)(w[2]);
+  int          n =           (int)(w[3]);
+  
+   if ( x->pg) {
+   
+	putget_arm( x->pg);
+	 
+   
+	   t_sample *samples = x->pg->r;
+		
+		while (n--) {
+		  *out++ = *samples++;
+		}
+	} else {
+		while (n--) {
+		  *out++ = 0;
+		}
+	}
+	
+  return (w+4);
+}
+
+static void get_tilde_set(t_get_tilde *x, t_symbol* s) {
+	
+	if (gensym("") != s ) {
+		if ( x->pg ) {
+			if ( x->pg->name != s) {
+				 putget_unregister(x->pg,0);
+				 x->pg = putget_register(s,0);
+			}
+		} else {
+			x->pg = putget_register(s,0);
+		}
+	}
+	
+}
+
+void get_tilde_dsp(t_get_tilde *x, t_signal **sp)
+{
+	
+	if ( sp[0]->s_n == 64 ) {
+		dsp_add(get_tilde_perform, 3, x,sp[0]->s_vec, sp[0]->s_n);
+	  } else {
+		  pd_error(x,"get~ only works with a block size of 64");
+	  }
+}
+
+static void get_tilde_free( t_get_tilde *x) {
+	
+	 if (x->pg) putget_unregister(x->pg,0);
+}
+
+
+void *get_tilde_new(t_symbol* s)
+{
+  t_get_tilde *x = (t_get_tilde *)pd_new(get_tilde_class);
+
+  
+ if (gensym("") != s ) x->pg = putget_register(s,0);
+ 
+  outlet_new(&x->x_obj, &s_signal);
+
+  return (void *)x;
+}
+
+void get_tilde_setup(void) {
+  get_tilde_class = class_new(gensym("get~"),
+        (t_newmethod)get_tilde_new,
+        (t_method)get_tilde_free, sizeof(t_get_tilde),
+        CLASS_DEFAULT, 
+        A_DEFSYMBOL, 0);
+
+  class_addmethod(get_tilde_class,
+        (t_method)get_tilde_set, gensym("set"), A_SYMBOL, 0);
+
+  class_addmethod(get_tilde_class,
+        (t_method)get_tilde_dsp, gensym("dsp"), 0);
+  //CLASS_MAINSIGNALIN(get_tilde_class, t_get_tilde, f);
+}
-- 
cgit v1.2.1