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

added a delay effect

Browse source
This commit is contained in:
Mustafa 2014-05-29 10:51:40 -07:00
parent 0160a693cc
commit 80822812c4
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
oregano/routing.rkt
View file

@ -62,6 +62,10 @@ tracks:
(define (apply-effect bus effect) (define (apply-effect bus effect)
(audition (replace-out bus effect))) (audition (replace-out bus effect)))
#;(define-syntax-rule (define-effect name ugen)
(define (name bus)
(apply-effect bus ugen)))
(define (reverb bus) (define (reverb bus)
(apply-effect bus (apply-effect bus
(free-verb (in 1 ar bus) (free-verb (in 1 ar bus)
@ -76,6 +80,9 @@ tracks:
(apply-effect bus (apply-effect bus
(moog-ff (in 1 ar bus) freq resonance opt))) (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)))
; (add-effect track0 (reverb 0.3 6) ; (add-effect track0 (reverb 0.3 6)