module Sound.SC3.UGen.Record.FitzHughNagumo where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data FitzHughNagumo = FitzHughNagumo {
reset :: S.UGen,
rateu :: S.UGen,
ratew :: S.UGen,
b0 :: S.UGen,
b1 :: S.UGen,
initu :: S.UGen,
initw :: S.UGen
} deriving (Show)
fitzHughNagumo :: FitzHughNagumo
fitzHughNagumo = FitzHughNagumo {
reset = 0.0,
rateu = 0.01,
ratew = 0.01,
b0 = 1.0,
b1 = 1.0,
initu = 0.0,
initw = 0.0
}
mkFitzHughNagumo :: FitzHughNagumo -> S.UGen
mkFitzHughNagumo (FitzHughNagumo a' b' c' d' e' f' g') = S.mkOsc S.AR "FitzHughNagumo" [a',b',c',d',e',f',g'] 1
instance Make FitzHughNagumo where
ugen = mkFitzHughNagumo