From baecc2dc2449d04b44917a5114bf71262d65da30 Mon Sep 17 00:00:00 2001
From: "Kjetil S. Matheussen" <ksvalast@users.sourceforge.net>
Date: Thu, 8 Jan 2004 14:55:24 +0000
Subject: First commit of k_vst~, k_guile and k_cext

svn path=/trunk/externals/k_guile/; revision=1253
---
 inout.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 inout.scm

(limited to 'inout.scm')

diff --git a/inout.scm b/inout.scm
new file mode 100644
index 0000000..a2d829c
--- /dev/null
+++ b/inout.scm
@@ -0,0 +1,24 @@
+
+(define num-inouts 400)
+
+(pd-inlets num-inouts)
+(pd-outlets num-inouts)
+
+
+(pd-for 0 < num-inouts 1
+	(lambda (i)
+	  (pd-inlet i 'float
+		    (lambda (x)
+		      (pd-display "Got " x " to inlet " i)
+		      (pd-for 0 < num-inouts 1
+			      (lambda (i2)
+				(pd-outlet i2 (+ i2 x))))))))
+
+
+(pd-inlet 284 'testing
+	  (lambda ()
+	    (pd-display "This is a function for handling 'testing sent to inlet 284.")))
+
+
+
+
-- 
cgit v1.2.1