stkMoog.help.lhs

> import Sound.SC3 {- hsc3 -}
> import Sound.SC3.UGen.Record.Plain.StkMoog {- hsc3-rec -}

> g_01 =
>   let tr = mouseButton KR 0 1 0 - 0.5
>       u = stkMoogR
>         {freq = midiCPS (tiRand 'α' 12 96 tr)
>         ,filterQ = tRand 'β' 0 127 tr
>         ,sweeprate = tRand 'γ' 0 127 tr
>         ,vibfreq = tRand 'δ' 0 127 tr
>         ,vibgain = tRand 'ε' 0 127 tr
>         ,gain = tRand 'ζ' 0 127 tr
>         ,trig_ = tr}
>   in mkStkMoog u

> g_02 =
>   let x = mouseX KR 0.25 16 Linear 0.2
>       tr = impulse KR x 0 - 0.5
>       u = stkMoogR
>         {freq = midiCPS (tiRand 'α' 24 72 tr)
>         ,filterQ = tRand 'β' 0 32 tr
>         ,sweeprate = tRand 'γ' 0 32 tr
>         ,vibfreq = tRand 'δ' 0 96 tr
>         ,vibgain = tRand 'ε' 0 16 tr
>         ,gain = tRand 'ζ' 32 127 tr
>         ,trig_ = tr}
>   in mkStkMoog u

> g_03 =
>   let nsig z l r f = range l r (lfNoise2 z KR f)
>       scl = asLocalBuf 'α' [0,2,3.2,5,7,9,10]
>       mnn = 48 + degreeToKey scl (nsig 'β' 0 15 0.35) 12
>       u = stkMoogR
>         {freq = midiCPS mnn
>         ,filterQ = nsig 'γ' 0 64 0.5
>         ,sweeprate = nsig 'δ' 0 64 0.5
>         ,vibfreq = nsig 'ε' 0 64 0.5
>         ,vibgain = nsig 'ζ' 0 16 0.5
>         ,gain = nsig 'η' 16 96 0.5}
>   in mkStkMoog u