tgrn.lhs

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

> import Sound.SC3
> import qualified Sound.SC3.UGen.Base as B

> tgrn :: UGen -> UGen
> 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 = B.whiteNoise (uid 1) kr * 0.6
>       ; n = roundE (B.whiteNoise (uid 2) kr * 3) 1
>       ; rate = shiftLeft 1.2 n }
>   in tGrains 2 clk b rate pos dur pan 0.25 2

> main :: IO ()
> 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)) })