-- | (Undocumented class) 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