54 lines
1,019 B
Racket
54 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)))
|
||
|
|
|
||
|
|
|
||
|
|
|