tgb (rd)
> import Sound.SC3.Monadic
> import System.Random
> main =
> let { mkls bp t = envGen kr 1 1 0 1 RemoveSynth (envCoord bp t 1 EnvLin)
> ; pm_t l r d t = let { le = mkls l d
> ; re = mkls r d }
> in tRand le re t
> ; wrp i l r = linLin i (-1) 1 l r
> ; pm_n rt l d = let { le = mkls l d
> ; re = mkls l d }
> in do { n <- whiteNoise rt
> ; return (wrp n le re) }
> ; gb b d = do { gps <- pm_n ar [(0, 400), (1, 900)] d
> ; let { t = impulse ar gps 0
> ; pm_f (l, r) = pm_t l r d t }
> in do { du <- pm_f ([(0, 0.005), (0.5, 0.015), (1, 0.005)]
> ,[(0, 0.009), (0.5, 0.020), (1, 0.009)])
> ; pn <- pm_f ([(0, -1.0), (0.5, -0.5), (1, 0.5)]
> ,[(0, -0.5), (0.5, 0.5), (1, 1.0)])
> ; rt <- pm_f ([(0, 6), (0.5, 12), (1, 6)]
> ,[(0, 12), (0.5, 12), (1, 12)])
> ; cs <- pm_f ([(0, 0), (1, 0.95)]
> ,[(0, 0), (1, 1)])
> ; am <- pm_f ([(0, 0.25), (0.5, 0.55), (1, 0.15)]
> ,[(0, 0.5), (0.5, 0.75), (1, 0.25)])
> ; let cs' = cs * (bufDur kr b)
> in return (tGrains 2 t b rt cs' du pn am 2) } }
> ; fn = "/home/rohan/audio/text.snd" }
> in withSC3 (\fd -> do { async fd (b_allocRead 10 fn 0 0)
> ; play fd . (out 0) =<< gb 10 12 })