70 lines
1.4 KiB
Racket
70 lines
1.4 KiB
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 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)))
|
|
|
|
#;(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)))
|
|
|
|
;;(define freeverb-effect make-freeverb-with-in-out)
|
|
|
|
|
|
|
|
|
|
|
|
|