module Sound.SC3.UGen.Record.Friction where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Friction = Friction {
rate :: S.Rate,
input :: S.UGen,
friction_ :: S.UGen,
spring :: S.UGen,
damp :: S.UGen,
mass :: S.UGen,
beltmass :: S.UGen
} deriving (Show)
friction :: Friction
friction = Friction {
rate = S.AR,
input = 0.0,
friction_ = 0.5,
spring = 0.414,
damp = 0.313,
mass = 0.1,
beltmass = 1.0
}
mkFriction :: Friction -> S.UGen
mkFriction (Friction r a' b' c' d' e' f') = S.mkOsc r "Friction" [a',b',c',d',e',f'] 1
instance Make Friction where
ugen = mkFriction