module Sound.SC3.UGen.Record.Onsets where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Onsets = Onsets {
chain :: S.UGen,
threshold :: S.UGen,
odftype :: S.UGen,
relaxtime :: S.UGen,
floor_ :: S.UGen,
mingap :: S.UGen,
medianspan :: S.UGen,
whtype :: S.UGen,
rawodf :: S.UGen
} deriving (Show)
onsets :: Onsets
onsets = Onsets {
chain = 0.0,
threshold = 0.5,
odftype = 3.0,
relaxtime = 1.0,
floor_ = 0.1,
mingap = 10.0,
medianspan = 11.0,
whtype = 1.0,
rawodf = 0.0
}
mkOnsets :: Onsets -> S.UGen
mkOnsets (Onsets a' b' c' d' e' f' g' h' i') = S.mkOsc S.KR "Onsets" [a',b',c',d',e',f',g',h',i'] 1
instance Make Onsets where
ugen = mkOnsets