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)))))