93 lines
2 KiB
Racket
93 lines
2 KiB
Racket
#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)))
|
|
|
|
|