add.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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)))))