36 lines
771 B
Racket
36 lines
771 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(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)
|
|
|
|
|
|
@racketblock[
|
|
(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)))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(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)))
|
|
]
|
|
|
|
|