#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)))
]