hdf-0.15: gr/sprinkler.hs

import Sound.DF.Uniform.GADT {- hdf -}

-- > draw sprinkler
sprinkler :: DF ()
sprinkler =
    let n = white_noise 0
        f = lf_pulse 0.09 0.0 0.16 * 10.0 + 7.0
        t = lf_pulse f 0.0 0.25 * 0.1
        o = bpz2 (n * t)
    in out1 o

main :: IO ()
main = audition_rju [] sprinkler