sprinkler.lhs

sprinkler (jmcc)

> import Sound.DF

> let madd m a = fmap ((+ a) . (* m))
> in do { n <- white_noise_m
>       ; f <- madd 10.0 7.0 (lf_pulse 0.09 0.0 0.16)
>       ; t <- fmap (* 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))) }