module Sound.SC3.UGen.Record.DoubleWell2 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data DoubleWell2 = DoubleWell2 {
reset :: S.UGen,
ratex :: S.UGen,
ratey :: S.UGen,
f :: S.UGen,
w :: S.UGen,
delta :: S.UGen,
initx :: S.UGen,
inity :: S.UGen
} deriving (Show)
doubleWell2 :: DoubleWell2
doubleWell2 = DoubleWell2 {
reset = 0.0,
ratex = 0.01,
ratey = 0.01,
f = 1.0,
w = 0.001,
delta = 1.0,
initx = 0.0,
inity = 0.0
}
mkDoubleWell2 :: DoubleWell2 -> S.UGen
mkDoubleWell2 (DoubleWell2 a' b' c' d' e' f' g' h') = S.mkOsc S.AR "DoubleWell2" [a',b',c',d',e',f',g',h'] 1
instance Make DoubleWell2 where
ugen = mkDoubleWell2