randSeed.help.lhs

Sound.SC3.UGen.Help.viewSC3Help "RandSeed"
Sound.SC3.UGen.DB.ugenSummary "RandSeed"

> import Sound.SC3

start a noise patch

> u0 =
>     let n = uclone 'α' 2 (whiteNoise 'β' AR * 0.05 + dust2 'γ' AR 70)
>         f = lfNoise1 'δ' KR 3 * 5500 + 6000
>     in resonz (n * 5) f 0.5 + n * 0.5

reset the seed at a variable rate (crash?)

> u1 =
>      let s = 1956 -- control KR "seed" 1956
>          i = impulse KR (mouseX KR 0.1 100 Linear 0.2) 0
>      in randSeed KR i s

always the same (for a given seed)...

> u2 =
>     let sd = 1957
>         n = tIRand 'α' 4 12 (dust 'β' KR 1)
>         f = n * 150 + (mce [0,1])
>         r = randSeed IR 1 sd
>     in mrg2 (sinOsc AR f 0 * 0.1) r