grainBuf.help.lhs

> Sound.SC3.UGen.Help.viewSC3Help "GrainBuf"
> Sound.SC3.UGen.DB.ugenSummary "GrainBuf"

> import Sound.SC3.ID

> let fn = "/home/rohan/data/audio/pf-c5.snd"
> in withSC3 (send (b_allocRead 10 fn 0 0))

> let {buf = 10
>     ;dur = 15
>     ;lin a b = line KR a b dur RemoveSynth
>     ;tr = impulse KR (lin 7.5 15) 0
>     ;gd = lin 0.05 0.1
>     ;r = lin 1 0.5
>     ;i = lin 0 1
>     ;l = lin (-0.5) 0.5
>     ;g = grainBuf 2 tr gd buf r i 2 0 (-1) 512}
> in audition (out 0 g)

> let {b = 10
>     ;e = -1
>     ;x = mouseX KR (-1) 1 Linear 0.1
>     ;y = mouseY KR 10 45 Linear 0.1
>     ;i = impulse KR y 0
>     ;n1 = lfNoise1 'α' KR 500
>     ;n2 = lfNoise2 'α' KR 0.1
>     ;r = linLin n1 (-1) 1 0.5 2
>     ;p = linLin n2 (-1) 1 0 1
>     ;g = grainBuf 2 i 0.1 b r p 2 x e 512}
> in audition (out 0 g)