module Sound.SC3.UGen.Record.Atari2600 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Atari2600 = Atari2600 {
audc0 :: S.UGen,
audc1 :: S.UGen,
audf0 :: S.UGen,
audf1 :: S.UGen,
audv0 :: S.UGen,
audv1 :: S.UGen,
rate_ :: S.UGen
} deriving (Show)
atari2600 :: Atari2600
atari2600 = Atari2600 {
audc0 = 1.0,
audc1 = 2.0,
audf0 = 3.0,
audf1 = 4.0,
audv0 = 5.0,
audv1 = 5.0,
rate_ = 1.0
}
mkAtari2600 :: Atari2600 -> S.UGen
mkAtari2600 (Atari2600 a' b' c' d' e' f' g') = S.mkOsc S.AR "Atari2600" [a',b',c',d',e',f',g'] 1
instance Make Atari2600 where
ugen = mkAtari2600