tgrn (rd)
ghci -e main tgrn.lhs
C-cC-l C-cC-m

> import Sound.SC3.ID

> tgrn b =
>   let { trate = mouseY kr 2 120 Exponential 0.1
>       ; dur = 1.2 / trate
>       ; clk = impulse ar trate 0
>       ; pos = mouseX kr 0 (bufDur kr b) Linear 0.1
>       ; pan = whiteNoise 'α' kr * 0.6
>       ; n = roundE (whiteNoise 'β' kr * 3) 1
>       ; rate = shiftLeft 1.2 n }
>   in tGrains 2 clk b rate pos dur pan 0.25 2

> main =
>   let fn = "/home/rohan/audio/text.snd"
>   in withSC3 (\fd -> do { async fd (b_allocRead 10 fn 0 0)
>                         ; audition (out 0 (tgrn 10)) })