-- | (Undocumented class)
module Sound.SC3.UGen.Record.MdaPiano where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data MdaPiano = MdaPiano {
  freq :: S.UGen,
  gate :: S.UGen,
  vel :: S.UGen,
  decay :: S.UGen,
  release :: S.UGen,
  hard :: S.UGen,
  velhard :: S.UGen,
  muffle :: S.UGen,
  velmuff :: S.UGen,
  velcurve :: S.UGen,
  stereo :: S.UGen,
  tune :: S.UGen,
  random :: S.UGen,
  stretch :: S.UGen,
  sustain :: S.UGen
  } deriving (Show)
mdaPiano :: MdaPiano
mdaPiano = MdaPiano {
  freq = 440.0,
  gate = 1.0,
  vel = 100.0,
  decay = 0.8,
  release = 0.8,
  hard = 0.8,
  velhard = 0.8,
  muffle = 0.8,
  velmuff = 0.8,
  velcurve = 0.8,
  stereo = 0.2,
  tune = 0.5,
  random = 0.1,
  stretch = 0.1,
  sustain = 0.0
  }
mkMdaPiano :: MdaPiano -> S.UGen
mkMdaPiano (MdaPiano  a' b' c' d' e' f' g' h' i' j' k' l' m' n' o') = S.mkOsc S.AR "MdaPiano" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o'] 2
instance Make MdaPiano where
  ugen = mkMdaPiano