-- | (Undocumented class) module Sound.SC3.UGen.Record.BufMax where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BufMax = BufMax { bufnum :: S.UGen, gate :: S.UGen } deriving (Show) bufMax :: BufMax bufMax = BufMax { bufnum = 0.0, gate = 1.0 } mkBufMax :: BufMax -> S.UGen mkBufMax (BufMax a' b') = S.mkOsc S.KR "BufMax" [a',b'] 2 instance Make BufMax where ugen = mkBufMax