hsc3-0.18: Help/UGen/tWindex.help.lhs
> import Sound.SC3 {- hsc3 -}
> g_01 =
> let p = mce [1/5, 2/5, 2/5]
> a = mce [400, 500, 600]
> t = impulse KR 6 0
> i = tWindex 'α' t 0 p
> in sinOsc AR (select i a) 0 * 0.1
Modulating probability values
> g_02 =
> let p = mce [1/4, 1/2, sinOsc KR 0.3 0 * 0.5 + 0.5]
> a = mce [400, 500, 600]
> t = impulse KR 6 0
> i = tWindex 'α' t 1 p
> in sinOsc AR (select i a) 0 * 0.1