hsc3-graphs-0.8: src/insects.lhs

insects (sam pluta)

> import Sound.SC3.Monadic

> main =
>   let insect = do { r1 <- rand 2000 3000
>                   ; r2 <- rand 0.05 0.1
>                   ; n1 <- lfNoise2 KR (r2 * 50 + 50)
>                   ; r4 <- rand 1 10
>                   ; r5 <- rand 0.05 0.1
>                   ; n2 <- lfNoise2 KR r5
>                   ; let { a = sinOsc KR r4 0 * 0.5 + 0.5
>                         ; o = sinOsc AR (r1 + n1) r2 * 0.005 * a }
>                     in return (pan2 o n2 1) }
>   in audition . (out 0) . sum =<< sequence (replicate 60 insect)