module Sound.SC3.UGen.Record.Nes2 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Nes2 = Nes2 {
trig :: S.UGen,
a0 :: S.UGen,
a1 :: S.UGen,
a2 :: S.UGen,
a3 :: S.UGen,
b0 :: S.UGen,
b1 :: S.UGen,
b2 :: S.UGen,
b3 :: S.UGen,
c0 :: S.UGen,
c2 :: S.UGen,
c3 :: S.UGen,
d0 :: S.UGen,
d2 :: S.UGen,
d3 :: S.UGen,
e0 :: S.UGen,
e1 :: S.UGen,
e2 :: S.UGen,
e3 :: S.UGen,
smask :: S.UGen
} deriving (Show)
nes2 :: Nes2
nes2 = Nes2 {
trig = 0.0,
a0 = 0.0,
a1 = 0.0,
a2 = 0.0,
a3 = 0.0,
b0 = 0.0,
b1 = 0.0,
b2 = 0.0,
b3 = 0.0,
c0 = 0.0,
c2 = 0.0,
c3 = 0.0,
d0 = 0.0,
d2 = 0.0,
d3 = 0.0,
e0 = 0.0,
e1 = 0.0,
e2 = 0.0,
e3 = 0.0,
smask = 0.0
}
mkNes2 :: Nes2 -> S.UGen
mkNes2 (Nes2 a' b' c' d' e' f' g' h' i' j' k' l' m' n' o' p' q' r' s' t') = S.mkOsc S.AR "Nes2" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o',p',q',r',s',t'] 1
instance Make Nes2 where
ugen = mkNes2