module Sound.SC3.UGen.Record.Coyote where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Coyote = Coyote {
input :: S.UGen,
trackFall :: S.UGen,
slowLag :: S.UGen,
fastLag :: S.UGen,
fastMul :: S.UGen,
thresh :: S.UGen,
minDur :: S.UGen
} deriving (Show)
coyote :: Coyote
coyote = Coyote {
input = 0.0,
trackFall = 0.2,
slowLag = 0.2,
fastLag = 0.01,
fastMul = 0.5,
thresh = 0.05,
minDur = 0.1
}
mkCoyote :: Coyote -> S.UGen
mkCoyote (Coyote a' b' c' d' e' f' g') = S.mkOsc S.KR "Coyote" [a',b',c',d',e',f',g'] 1
instance Make Coyote where
ugen = mkCoyote