bottle (sc)
> import Sound.SC3.Monadic
> main =
> do { freq <- rand 220 880
> ; wn <- whiteNoise ar
> ; pn <- pinkNoise ar
> ; let { (>=>) f g = \x -> f x >>= g
> ; chain n f = foldl (>=>) return (replicate n f)
> ; perc = envPerc 0.1 0.6
> ; ex = envGen kr 1 1 0 1 DoNothing perc * wn * 0.02
> ; flute = ringz ex freq 0.3
> ; r = resonz pn (5 + (freq / 2)) 0.1
> ; breath = envGen kr 1 1 0 1 DoNothing perc * r
> ; rapf i = do { x <- linRand 0.001 0.1 (-1)
> ; return (i + allpassN i 0.1 x 1.0 * 0.5) }
> ; cls i = let { en = let c = EnvNum (-4) in (c,c,c)
> ; l = envLinen' 0.01 3.0 1.0 1 en
> ; z = (breath + i) * envGen kr 1 1 0 1 RemoveSynth l }
> in mce2 z z }
> in do { f <- (chain 2 rapf) flute
> ; audition (out 0 (cls f)) } }