module Sound.SC3.UGen.Record.PV_ExtractRepeat where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data PV_ExtractRepeat = PV_ExtractRepeat {
buffer :: S.UGen,
loopbuf :: S.UGen,
loopdur :: S.UGen,
memorytime :: S.UGen,
which :: S.UGen,
ffthop :: S.UGen,
thresh :: S.UGen
} deriving (Show)
pv_ExtractRepeat :: PV_ExtractRepeat
pv_ExtractRepeat = PV_ExtractRepeat {
buffer = 0.0,
loopbuf = 0.0,
loopdur = 0.0,
memorytime = 30.0,
which = 0.0,
ffthop = 0.5,
thresh = 1.0
}
mkPV_ExtractRepeat :: PV_ExtractRepeat -> S.UGen
mkPV_ExtractRepeat (PV_ExtractRepeat a' b' c' d' e' f' g') = S.mkOsc S.KR "PV_ExtractRepeat" [a',b',c',d',e',f',g'] 1
instance Make PV_ExtractRepeat where
ugen = mkPV_ExtractRepeat