JMCC_sample_and_hold_liquidities.hs

-- sample and hold liquidities (jmcc) #4
module Sound.SC3.Graph.JMCC_sample_and_hold_liquidities where

import Sound.SC3 {- hsc3 -}

shl :: UGen
shl =
    let r = mouseX KR 1 200 Exponential 0.1
        t = recip r
        c = impulse KR r 0 * 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)