-- sample and hold liquidities (jmcc)

import Sound.SC3.ID

shl :: UGen
shl =
    let r = mouseX' KR 1 200 Exponential 0.1
        t = recip r
        c = impulse KR r 0.4
        cf = mouseY' KR 100 8000 Exponential 0.1
        f = latch (whiteNoise 'α' KR * cf * 0.5 + cf) c
        p = latch (whiteNoise 'β' KR) c
        i = pan2 (sinOsc AR f 0 * decay2 c (t * 0.1) (t * 0.9)) p 1
    in combN i 0.3 0.3 2

main :: IO ()
main = audition (out 0 shl)