diff options
Diffstat (limited to 'inout.scm')
| -rw-r--r-- | inout.scm | 24 |
1 files changed, 24 insertions, 0 deletions
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."))) + + + + |