rsc3/oregano/routing.rkt
2014-05-01 12:21:18 -07:00

53 lines
1,019 B
Racket

#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-bus: input bus channel
;; out-bus: output bus channel
(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)))