-- | (Undocumented class)
module Sound.SC3.UGen.Record.SpruceBudworm where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data SpruceBudworm = SpruceBudworm {
  reset :: S.UGen,
  rate_ :: S.UGen,
  k1 :: S.UGen,
  k2 :: S.UGen,
  alpha :: S.UGen,
  beta :: S.UGen,
  mu :: S.UGen,
  rho :: S.UGen,
  initx :: S.UGen,
  inity :: S.UGen
  } deriving (Show)
spruceBudworm :: SpruceBudworm
spruceBudworm = SpruceBudworm {
  reset = 0.0,
  rate_ = 0.1,
  k1 = 27.9,
  k2 = 1.5,
  alpha = 0.1,
  beta = 10.1,
  mu = 0.3,
  rho = 10.1,
  initx = 0.9,
  inity = 0.1
  }
mkSpruceBudworm :: SpruceBudworm -> S.UGen
mkSpruceBudworm (SpruceBudworm  a' b' c' d' e' f' g' h' i' j') = S.mkOsc S.AR "SpruceBudworm" [a',b',c',d',e',f',g',h',i',j'] 2
instance Make SpruceBudworm where
  ugen = mkSpruceBudworm