rsc3/oregano/routing.rkt

#lang racket

(require rsc3)

(provide (all-defined-out))
#|
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 num-tracks 8)
(define tracks (make-vector num-tracks '()))


;; returns the effect list for a given track
;; track-num is 1-based
(define (get-track-effects track-num)
  (vector-ref tracks track-num))


;; adds an effect to the end of the effect chain of the given track
(define (append-effect track-num effect-ugen)
  (define current-effects (get-track-effects track-num))
  (vector-set! tracks track-num
              (append current-effects (list effect-ugen))))

(append-effect 3 'reverb)
(append-effect 3 'echo)


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

;; ======= Effects ==========

(define (apply-effect bus effect)
  (audition (replace-out bus effect)))

#;(define-syntax-rule (define-effect name ugen)
  (define (name bus)
    (apply-effect bus ugen)))

(define (reverb bus ammount)
  (apply-effect bus
                (free-verb (in 1 ar bus)
                           0.5
                           ammount ;(mouse-y kr 0 1 0 0.1)
                           0.5)))

(define (low-pass-filter bus ammount)
  (apply-effect bus
                (lpf (in 1 ar bus) ammount)))

; example: apply reverb on bus 0
; (reverb 0)

(define (moog-filter bus freq [resonance 3] [opt 0])
  (apply-effect bus
    (moog-ff (in 1 ar bus) freq resonance opt)))

(define (delay bus delay-time decay-time)
  (apply-effect bus
                (comb-n (in 1 ar bus) delay-time delay-time decay-time)))