-- | (Undocumented class)
module Sound.SC3.UGen.Record.SID6581f where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data SID6581f = SID6581f {
  freqLo0 :: S.UGen,
  freqHi0 :: S.UGen,
  pwLo0 :: S.UGen,
  pwHi0 :: S.UGen,
  ctrl0 :: S.UGen,
  atkDcy0 :: S.UGen,
  susRel0 :: S.UGen,
  freqLo1 :: S.UGen,
  freqHi1 :: S.UGen,
  pwLo1 :: S.UGen,
  pwHi1 :: S.UGen,
  ctrl1 :: S.UGen,
  atkDcy1 :: S.UGen,
  susRel1 :: S.UGen,
  freqLo2 :: S.UGen,
  freqHi2 :: S.UGen,
  pwLo2 :: S.UGen,
  pwHi2 :: S.UGen,
  ctrl2 :: S.UGen,
  atkDcy2 :: S.UGen,
  susRel2 :: S.UGen,
  fcLo :: S.UGen,
  fcHi :: S.UGen,
  resFilt :: S.UGen,
  modeVol :: S.UGen,
  rate_ :: S.UGen
  } deriving (Show)
sID6581f :: SID6581f
sID6581f = SID6581f {
  freqLo0 = 0.0,
  freqHi0 = 0.0,
  pwLo0 = 0.0,
  pwHi0 = 0.0,
  ctrl0 = 0.0,
  atkDcy0 = 0.0,
  susRel0 = 0.0,
  freqLo1 = 0.0,
  freqHi1 = 0.0,
  pwLo1 = 0.0,
  pwHi1 = 0.0,
  ctrl1 = 0.0,
  atkDcy1 = 0.0,
  susRel1 = 0.0,
  freqLo2 = 0.0,
  freqHi2 = 0.0,
  pwLo2 = 0.0,
  pwHi2 = 0.0,
  ctrl2 = 0.0,
  atkDcy2 = 0.0,
  susRel2 = 0.0,
  fcLo = 0.0,
  fcHi = 0.0,
  resFilt = 0.0,
  modeVol = 0.0,
  rate_ = 1.0
  }
mkSID6581f :: SID6581f -> S.UGen
mkSID6581f (SID6581f  a' b' c' d' e' f' g' h' i' j' k' l' m' n' o' p' q' r' s' t' u' v' w' x' y' z') = S.mkOsc S.AR "SID6581f" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o',p',q',r',s',t',u',v',w',x',y',z'] 1
instance Make SID6581f where
  ugen = mkSID6581f