-- | (Undocumented class)
module Sound.SC3.UGen.Record.StkMandolin where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data StkMandolin = StkMandolin {
  rate :: S.Rate,
  freq :: S.UGen,
  bodysize :: S.UGen,
  pickposition :: S.UGen,
  stringdamping :: S.UGen,
  stringdetune :: S.UGen,
  aftertouch :: S.UGen,
  trig :: S.UGen
  } deriving (Show)
stkMandolin :: StkMandolin
stkMandolin = StkMandolin {
  rate = S.AR,
  freq = 520.0,
  bodysize = 64.0,
  pickposition = 64.0,
  stringdamping = 69.0,
  stringdetune = 10.0,
  aftertouch = 64.0,
  trig = 1.0
  }
mkStkMandolin :: StkMandolin -> S.UGen
mkStkMandolin (StkMandolin r a' b' c' d' e' f' g') = S.mkOsc r "StkMandolin" [a',b',c',d',e',f',g'] 1
instance Make StkMandolin where
  ugen = mkStkMandolin