-- | (not documented)
module Sound.SC3.UGen.Record.BinData where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data BinData = BinData {
  rate :: S.Rate,
  buffer :: S.UGen,
  bin :: S.UGen,
  overlaps :: S.UGen
  } deriving (Show)
binData :: BinData
binData = BinData {
  rate = S.AR,
  buffer = 0.0,
  bin = 0.0,
  overlaps = 0.5
  }
mkBinData :: BinData -> S.UGen
mkBinData (BinData r a' b' c') = S.mkOsc r "BinData" [a',b',c'] 2
instance Make BinData where
  ugen = mkBinData