hh-808 (ryan at wabdo.com)
> import Sound.SC3
> main =
> let { time = 250
> ; freqs = [205.35, 304.41, 369.64, 522.71, 540.54, 812.21]
> ; pulseEnv = let e = env [1.0, 0.6] [time] [EnvNum (-0.5)] 0 0
> in envGen ar 1 1 0 (1/1000) DoNothing e
> ; s = mix (lfPulse ar (mce (map (* 4.09) freqs)) 0 0.5)
> ; f = [ \a -> ((a ==* 6.0) * 0.6) + ((a ==* 2.0) * 0.2) + ((a ==* 1.0) * 0.9)
> , \a -> (a * pulseEnv) + ((mix (lfPulse ar (mce freqs) 0 0.55)) * 0.9)
> , \a -> rlpf a 7000 0.6
> , \a -> rhpf a 6800 1.5
> , \a -> rhpf a 6800 1.5
> , \a -> rhpf a 1200 1.5
> , \a -> a + freeVerb a 0.33 0.5 0.5
> , \a -> let { c = map EnvNum [0, -0.5, 0, -50]
> ; e = env [0, 1, 0.4, 0, 0] [2, time, 50, 500] c 0 0 }
> in a * envGen ar 1 1 0 (1/1000) RemoveSynth e
> , \a -> mce [a, delayN a 0.005 0.005] ]
> ; (>>>) = flip (.) }
> in audition (out 0 (foldl1 (>>>) f s * 2))
http://www.create.ucsb.edu/pipermail/sc-users/2007-August/036131.html