module Sound.SC3.UGen.Record.AY8910 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data AY8910 = AY8910 {
r0 :: S.UGen,
r1 :: S.UGen,
r2 :: S.UGen,
r3 :: S.UGen,
r4 :: S.UGen,
r5 :: S.UGen,
r6 :: S.UGen,
r7 :: S.UGen,
r8 :: S.UGen,
r9 :: S.UGen,
rA :: S.UGen,
rB :: S.UGen,
rC :: S.UGen,
rD :: S.UGen,
rate_ :: S.UGen
} deriving (Show)
aY8910 :: AY8910
aY8910 = AY8910 {
r0 = 0.0,
r1 = 0.0,
r2 = 0.0,
r3 = 0.0,
r4 = 0.0,
r5 = 0.0,
r6 = 0.0,
r7 = 0.0,
r8 = 0.0,
r9 = 0.0,
rA = 0.0,
rB = 0.0,
rC = 0.0,
rD = 0.0,
rate_ = 1.0
}
mkAY8910 :: AY8910 -> S.UGen
mkAY8910 (AY8910 a' b' c' d' e' f' g' h' i' j' k' l' m' n' o') = S.mkOsc S.AR "AY8910" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o'] 3
instance Make AY8910 where
ugen = mkAY8910