zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

made effects work for a single bus

Browse source
This commit is contained in:
Mustafa 2014-05-29 09:07:17 -07:00
parent d4eb5691c1
commit f180495225
1 changed files with 20 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
oregano/routing.rkt
View file

@ -1,5 +1,6 @@
#lang racket #lang racket
(require rsc3)
#| #|
tracks: tracks:
@ -49,7 +50,6 @@ tracks:
;; out-bus: output bus channel ;; out-bus: output bus channel
(define (make-effect-ugen effect-ugen in-bus out-bus) (define (make-effect-ugen effect-ugen in-bus out-bus)
; TODO ; TODO
empty) empty)
;; example effect ugen ;; example effect ugen
@ -57,15 +57,25 @@ tracks:
(mouse-y kr 0 1 0 0.1) (mouse-y kr 0 1 0 0.1)
0.5))) 0.5)))
;; internal function ;; ======= Effects ==========
#;(define (make-freeverb-with-in-out in-bus out-bus)
(out out-bus (free-verb (in 1 ar in-bus) 0.5 (define (apply-effect bus effect)
(mouse-y kr 0 1 0 0.1) (audition (replace-out bus effect)))
0.5)))
(define (reverb bus)
(apply-effect bus
(free-verb (in 1 ar bus)
0.5
(mouse-y kr 0 1 0 0.1)
0.5)))
; 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)))
; (add-effect track0 (reverb 0.3 6)