hdf-0.7: Help/Graphs/sprinkler.lhs

sprinkler (jmcc)

> import Sound.DF

> do { n <- white_noise_m
>    ; f <- fmap (\x -> x * 10.0 + 7.0) (lf_pulse 0.09 0.0 0.16)
>    ; t <- fmap (\x -> x * 0.1) (lf_pulse f 0.0 0.25)
>    ; o <- bpz2 (n * t)
>    ; audition [] (out1 o) }

do { n <- M.whiteNoise ar
   ; let { f = lfPulse kr 0.09 0 0.16 * 10 + 7
         ; t = lfPulse kr f 0 0.25 * 0.1 }
     in audition (out 0 (bpz2 (n * t))) }