module Sound.SC3.UGen.Record.PV_BinBufRd where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data PV_BinBufRd = PV_BinBufRd {
buffer :: S.UGen,
playbuf :: S.UGen,
point :: S.UGen,
binStart :: S.UGen,
binSkip :: S.UGen,
numBins :: S.UGen,
clear :: S.UGen
} deriving (Show)
pv_BinBufRd :: PV_BinBufRd
pv_BinBufRd = PV_BinBufRd {
buffer = 0.0,
playbuf = 0.0,
point = 1.0,
binStart = 0.0,
binSkip = 1.0,
numBins = 1.0,
clear = 0.0
}
mkPV_BinBufRd :: PV_BinBufRd -> S.UGen
mkPV_BinBufRd (PV_BinBufRd a' b' c' d' e' f' g') = S.mkOsc S.KR "PV_BinBufRd" [a',b',c',d',e',f',g'] 1
instance Make PV_BinBufRd where
ugen = mkPV_BinBufRd