freeVerb.help.hs

-- freeVerb2 ; mouse control
let i = impulse ar 1 0
    c = lfCub ar 1200 0
    s = decay i 0.25 * c * 0.1
    x = mouseX kr 0 1 Linear 0.1
    y = mouseY kr 0 1 Linear 0.1
in freeVerb s y x 0.5

-- freeVerb2 ; process input channels ; warning=feedback
let i = soundIn (mce2 0 1)
    c = mceChannel
    x = mouseX kr 0 1 Linear 0.1
    y = mouseY kr 0 1 Linear 0.1
in freeVerb2 (c 0 i) (c 1 i) y x 0.5