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