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
---
 add.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 add.scm

(limited to 'add.scm')

diff --git a/add.scm b/add.scm
new file mode 100644
index 0000000..b4bfd76
--- /dev/null
+++ b/add.scm
@@ -0,0 +1,15 @@
+
+(pd-inlets 2)
+(pd-outlets 1)
+
+(let ((inlet1 0))
+  (pd-inlet 1 'float
+	    (lambda (x)
+	      (set! inlet1 x)))
+  (pd-inlet 0 'float
+	    (lambda (x)
+	      (pd-outlet 0 (+ inlet1 x)))))
+
+
+
+
-- 
cgit v1.2.1