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