inout.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.")))