added bus routing example usage

rsc3/examples/bus-routing.rkt

@@ -10,7 +10,7 @@
        [sig (mul (sin-osc ar
                           (mul-add (lf-pulse ar 15 0 0.5) 200 freq)
                           0)
-                      (key-state kr 38 0 0.1 0.1))])
+                 (key-state kr 38 0 0.1 0.1))])
   (audition (out 16 sig)))
 
 (audition (out 0 (free-verb (in 1 ar 16) 0.5
@@ -19,4 +19,3 @@
 
 
 
-

rsc3/examples/routing.rkt

@@ -1,15 +1,53 @@
 #lang racket
 
+#|
+tracks:
+
+0 - output left speaker
+1 - output right speaker
+3 - first track
+
+## example usage
+
+; add reverb to track 3
+(append-effect track3 (reverb-effect 0.5 0.9))
+
+(append-effect track3 (reverb-effect 0.5 0.9))
+
+; done internally:
+; (process-track 3)
+
+(define my-piano (make-instrument "piano"))
+
+(note-on my-piano C#3 track3)
+
+|#
+ 
+(define effects-list '())
+
+
 
 ;; adds an effect to the end of the effect chain of the given track
-;;
 (define (append-effect track-num effect-ugen)
   ; TODO
   empty)
 
 ;; creates a ugen that is routed
-;; in: input bus channel
+;; in-bus: input bus channel
-;; out: output bus channel
+;; out-bus: output bus channel
-(define (make-effect-ugen effect-ugen in out)
+(define (make-effect-ugen effect-ugen in-bus out-bus)
   ; TODO
   empty)
+
+;; example effect ugen
+#;(audition (out 0 (free-verb (in 1 ar 16) 0.5
+                            (mouse-y kr 0 1 0 0.1)
+                            0.5)))
+
+(define (make-freeverb-with-in-out in-bus out-bus)
+  (out out-bus (free-verb (in 1 ar in-bus) 0.5
+                          (mouse-y kr 0 1 0 0.1)
+                          0.5)))
+
+
+