thx (perry cook)
> import Sound.SC3
> import System.Random
> main =
> let { rvb i rT
> = let { d = mce [0.0297, 0.0371, 0.0411, 0.0437]
> ; c = mix (combN i 0.05 d rT * 0.25)
> ; f = (allpassN c 0.01 0.005 0.096835) }
> in allpassN f 0.01 0.0017 0.032924
> ; mk_env z0 t0 z1 t1 t2 z2 t3 c
> = let { z = [z0, z1, z1, z2, z2]
> ; t = [t0, t1, t2, t3]
> ; e = env z t [c, c, c] (-1.0) (-1.0) }
> in envGen KR 1 1 0 1 RemoveSynth e
> ; mk_node t4 f0 f1 l
> = let { f = mk_env f0 t0 f0 t1 t2 f1 (t3 + t4 + t5 + t5) EnvLin
> ; g = mk_env 0 t0 0.1 (t1 + t2 + t3) t4 0.0 (t5 + t5) EnvLin
> ; s = saw AR f
> ; t0 = 0.035
> ; t1 = 0.2267573696
> ; t2 = 2.2675736061
> ; t3 = 6.8027210884
> ; t5 = 1.75 }
> in pan2 s l g
> ; thx
> = let { s = foldl1 (+) (zipWith3 (mk_node t4) f0 f1 l)
> ; t4 = 7.9365079365
> ; n = 30
> ; l = take n (randomRs (-1.0, 1.0) (mkStdGen 1))
> ; f = [29, 87.5, 116, 175, 233, 350, 524, 880, 1048, 1760]
> ; f0 = take n (randomRs (200.0, 800.0) (mkStdGen 2))
> ; f1 = take n (cycle f) }
> in out 0 (rvb (mce [s]) t4) }
> in audition thx
http://ccrma-mail.stanford.edu/pipermail/stk/2007-January/000327.html