hsc3-graphs-0.8: src/sprinkler-m.lhs

sprinkler-m (jmcc)

> import Sound.SC3.Monadic

> main =
>   do { n <- 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))) }

{ var f = LFPulse.kr(0.09, 0, 0.16, 10, 7)
; var t = LFPulse.kr(f, 0, 0.25, 0.1)
; Out.ar(0, BPZ2.ar(WhiteNoise.ar * t)) }.play