hsc3-graphs-0.8: src/pulsing-bottles.lhs

pulsing bottles (jmcc)

> import Control.Monad
> import Sound.SC3.Monadic

> main =
>   let { r = do { n <- whiteNoise ar
>                ; r0 <- rand 4 14
>                ; r1 <- rand 0 0.7
>                ; r2 <- rand 400 7400
>                ; return (resonz (n * lfPulse kr r0 0 0.25 * r1) r2 0.01) }
>       ; s = do { f <- rand 0.1 0.5
>                ; p <- rand 0 (pi * 2)
>                ; return (sinOsc kr f p) }
>       ; u = liftM2 (\x y -> pan2 x y 1) r s }
>   in audition . out 0 . sum =<< sequence (replicate 6 u)