25 lines
694 B
Scheme
25 lines
694 B
Scheme
|
;; (free-verb in mix room damp)
|
||
|
|
;; (free-verb2 in1 in2 mix room damp)
|
||
|
|
|
||
|
|
;; A simple reverb.
|
||
|
|
|
||
|
|
;; in, in1, in2 - input signal
|
||
|
|
;; mix - dry/wet balance (0,1)
|
||
|
|
;; room - room size (0,1)
|
||
|
|
;; damp - reverb high frequency damping (0,1)
|
||
|
|
|
||
|
|
(let* ((i (impulse ar 1 0))
|
||
|
|
(c (lf-cub ar 1200 0))
|
||
|
|
(s (mul3 (decay i 0.25) c 0.1))
|
||
|
|
(x (mouse-x kr 0 1 0 0.1))
|
||
|
|
(y (mouse-y kr 0 1 0 0.1))
|
||
|
|
(r (free-verb s y x 0.5)))
|
||
|
|
(audition (out 0 r)))
|
||
|
|
|
||
|
|
(let* ((i (sound-in (mce2 0 1)))
|
||
|
|
(c (lambda (u n) (mce-channel u n)))
|
||
|
|
(x (mouse-x kr 0 1 0 0.1))
|
||
|
|
(y (mouse-y kr 0 1 0 0.1))
|
||
|
|
(r (free-verb2 (c i 0) (c i 1) y x 0.5)))
|
||
|
|
(audition (out 0 r)))
|