train.lhs

train (th.list at gmail.com)

> import Sound.SC3

> let { time = 24
>     ; steam n1 n2 = let { piston = lfSaw AR (xLine AR 1 7 time DoNothing) 0
>                         ; air = lpf (n1 * piston + n2 * piston) 5000 
>                         ; e = envGen AR 1 1 0 1 DoNothing (envSine time 9) }
>                     in bpf air 600 (1 + e)
>     ; whistle n3 = let { f = [800, 600, 1200, 990]
>                        ; s = klankSpec f [1, 1, 1, 1] [1, 1, 1, 1]
>                        ; t = [0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0]
>                        ; l = [2, 0, 0.2, 0, 0.2, 0, 0.8, 0, 4, 0, 3]
>                        ; d = env t l (repeat EnvLin) 0 0
>                        ; e = envGen AR 1 1 0 (time/10) DoNothing d }
>                    in klank (n3 * 0.004) 1 0 1 s * e
>     ; loc = let e = env [-0.8, 0.8] [time + 2] [EnvSin, EnvSin] 0 0
>             in envGen AR 1 1 0 1 RemoveSynth e }
> in do { n1 <- whiteNoise AR
>       ; n2 <- pinkNoise AR
>       ; n3 <- whiteNoise AR
>       ; audition (out 0 (pan2 (steam n1 n2 + whistle n3) loc 1)) }

http://www.create.ucsb.edu/pipermail/sc-users/2007-August/035957.html