stkMandolin.help.lhs

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

> import Control.Monad
> import Sound.SC3.ID
> import qualified Sound.SC3.Monadic as M

> let { x = mouseX' KR 0.25 4 Linear 0.2
>     ; tr = impulse KR x 0 - 0.5 }
> in do { mn <- M.tRand 54 66 tr
>       ; [bs, pp, dm, dt, at] <- replicateM 5 (M.tRand 0 127 tr)
>       ; audition (out 0 (stkMandolin AR (midiCPS mn) bs pp dm dt at tr)) }

> let { x = mouseX' KR 3 16 Linear 0.2
>     ; t = impulse KR x 0 - 0.5
>     ; tr = pulseDivider t 6 0 }
> in do { mn <- M.tIRand 54 66 t
>       ; bs <- M.tRand 72 94 tr
>       ; pp <- M.tRand 32 42 tr
>       ; dm <- M.tRand 64 72 tr
>       ; dt <- M.tRand 0 4 tr
>       ; at <- M.tRand 2 8 tr
>       ; audition (out 0 (stkMandolin AR (midiCPS mn) bs pp dm dt at t)) }