tBetaRand.help.lhs

> import Sound.SC3 {- hsc3 -}
> import qualified Sound.SC3.UGen.Bindings.DB.External as X {- hsc3 -}

> g_01 =
>     let t = dust 'α' KR 10
>         f = X.tBetaRand 'β' 300 3000 0.1 0.1 t
>     in sinOsc AR f 0 * 0.1

mouse control of parameters (...scsynth -> 100% CPU)

> g_02 =
>     let t = dust 'α' AR 10
>         p1 = mouseX KR 1 5 Linear 0.2
>         p2 = mouseY KR 1 5 Linear 0.2
>         f = X.tBetaRand 'β' 300 3000 p1 p2 t
>     in sinOsc AR f 0 * 0.1

...audio rate crashes server...

> g_03 =
>     let t = dust 'α' AR 100
>         p1 = mouseX KR 1 5 Linear 0.2
>         p2 = mouseY KR 1 5 Linear 0.2
>     in lag (X.tBetaRand 'β' (-1) 1 p1 p2 t) (10 / 48000)