trmlo (rd)

> import Sound.SC3
> import qualified Sound.SC3.UGen.Unsafe as U

> let { mWrp i l r = linLin i (-1) 1 (midiCPS l) (midiCPS r)
>     ; mWrp1 i m = mWrp i m (m + 1)
>     ; mWrpN i m n = mWrp i m (m + n)
>     ; o1 = let { f = 5
>                ; d = 3
>                ; s = envSine d 0.1
>                ; e = envGen kr 1 1 0 1 DoNothing s
>                ; n = 65
>                ; m = sinOsc kr f 0 }
>            in pan2 (sinOsc ar (mWrp1 m n) 0) m e
>     ; o2 = let { f = U.iRand 5 9
>                ; d = U.iRand 5 9
>                ; s = envSine d (U.rand 0.1 0.2)
>                ; e = envGen kr 1 1 0 1 DoNothing s
>                ; n = U.iRand 69 72
>                ; m = sinOsc kr f 0 }
>            in pan2 (sinOsc ar (mWrp1 m n) 0) m e
>     ; o3 = let { f = U.iRand 5 9
>                ; d = U.iRand 9 12
>                ; s = envSine d (U.rand 0.1 0.2)
>                ; e = envGen kr 1 1 0 1 DoNothing s
>                ; n = U.iRand 69 72
>                ; m = sinOsc kr f 0
>                ; l = line kr 0 (U.iRand 1 5) d DoNothing }
>            in pan2 (blip ar (mWrp1 m (n + l)) (linLin m (-1) 1 1 2)) m e
>     ; o4 = let { f = U.iRand 5 18
>                ; d = U.iRand 12 15
>                ; s = envSine d (U.rand 0.1 0.2)
>                ; e = envGen kr 1 5e-2 0 1 DoNothing s
>                ; n = U.iRand 69 72
>                ; m = sinOsc kr f 0
>                ; l = line kr 0 (U.iRand 1 5) d RemoveSynth
>                ; fr = mWrpN m (n + l) (U.iRand 1 5) }
>            in pan2 (blip ar fr (linLin m (-1) 1 1 (U.iRand 2 24))) m e }
> in audition (out 0 (o1 + o2 + o3 + o4))