tGrains.help.lhs

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

> import Sound.SC3

Load audio (#10) data

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

Mouse control

> let {tRate = mouseY KR 2 200 Exponential 0.1
>     ;ctr = mouseX KR 0 (bufDur KR 10) Linear 0.1
>     ;tr = impulse AR tRate 0}
> in audition (out 0 (tGrains 2 tr 10 1 ctr (4 / tRate) 0 0.25 2))

> let {b = 10
>     ;rt = mouseY KR 8 120 Exponential 0.1
>     ;dur = 4 / rt
>     ;clk = dust 'α' AR rt
>     ;r = tRand 'β' 0 0.01 clk
>     ;pan = whiteNoise 'γ' KR * 0.6
>     ;x = mouseX KR 0 (bufDur KR b) Linear 0.1
>     ;pos = x + r}
> in audition (out 0 (tGrains 2 clk b 1 pos dur pan 0.25 2))

> let {b = 10
>     ;rt = mouseY KR 2 120 Exponential 0.1
>     ;dur = 1.2 / rt
>     ;clk = impulse AR rt 0
>     ;pos = mouseX KR 0 (bufDur KR b) Linear 0.1
>     ;n0 = whiteNoise 'α' KR
>     ;n1 = whiteNoise 'β' KR
>     ;rate = shiftLeft 1.2 (roundTo (n0 * 3) 1)}
> in audition (out 0 (tGrains 2 clk b rate pos dur (n1 * 0.6) 0.25 2))

Demand UGens as inputs (may eventually hang scsynth?)

> let {b = 10
>     ;rt = mouseY KR 2 100 Linear 0.2
>     ;d e = dwhite e 1 0.1 0.2
>     ;z e0 e1 = drand e0 1 (mce [dgeom e0 (diwhite e0 1 20 40) 0.1 (1 + d e0)
>                                ,dgeom e1 (diwhite e1 1 20 40) 1 (1 - d e1)])
>     ;clk = impulse AR rt 0
>     ;dsq e xs = dseq e dinf (mce xs)
>     ;rate = dsq 'α' [1,1,z 'β' 'γ',0.5,0.5,0.2,0.1,0.1,0.1,0.1] * 2 + 1
>     ;pos = dsq 'δ' (take 8 (zipWith z ['ε'..] ['ζ'..]))
>     ;dur = dsq 'η' [1,d 'θ',1,z 'ι' 'κ',0.5,0.5,0.1,z 'λ' 'μ'] * 2 / rt
>     ;pan = dsq 'ν' [1,1,1,0.5,0.2,0.1,0,0,0] * 2 - 1
>     ;amp = dsq 'ξ' [1,0,z 'ο' 'π',0,2,1,1,0.1,0.1]}
> in audition (out 0 (tGrains 2 clk b rate pos dur pan amp 2))