From 80822812c4a31462faba3ca58537dde13abc1006 Mon Sep 17 00:00:00 2001 From: Mustafa Date: Thu, 29 May 2014 10:51:40 -0700 Subject: [PATCH] added a delay effect --- oregano/routing.rkt | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/oregano/routing.rkt b/oregano/routing.rkt index eb436e3..bea7a77 100644 --- a/oregano/routing.rkt +++ b/oregano/routing.rkt @@ -62,6 +62,10 @@ tracks: (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) (apply-effect bus (free-verb (in 1 ar bus) @@ -76,6 +80,9 @@ tracks: (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))) ; (add-effect track0 (reverb 0.3 6)