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.Monad as M

requires "../../rawwaves/mand1.raw"
> 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))}