module Sound.SC3.UGen.Record.PV_BinDelay where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data PV_BinDelay = PV_BinDelay {
buffer :: S.UGen,
maxdelay :: S.UGen,
delaybuf :: S.UGen,
fbbuf :: S.UGen,
hop :: S.UGen
} deriving (Show)
pv_BinDelay :: PV_BinDelay
pv_BinDelay = PV_BinDelay {
buffer = 0.0,
maxdelay = 0.0,
delaybuf = 0.0,
fbbuf = 0.0,
hop = 0.5
}
mkPV_BinDelay :: PV_BinDelay -> S.UGen
mkPV_BinDelay (PV_BinDelay a' b' c' d' e') = S.mkOsc S.KR "PV_BinDelay" [a',b',c',d',e'] 1
instance Make PV_BinDelay where
ugen = mkPV_BinDelay