-- | (Undocumented class) module Sound.SC3.UGen.Record.BFGrainPanner where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data BFGrainPanner = BFGrainPanner { maxSize :: S.UGen } deriving (Show) bFGrainPanner :: BFGrainPanner bFGrainPanner = BFGrainPanner { maxSize = 0.0 } mkBFGrainPanner :: BFGrainPanner -> S.UGen mkBFGrainPanner (BFGrainPanner a') = S.mkOsc S.AR "BFGrainPanner" [a'] 1 instance Make BFGrainPanner where ugen = mkBFGrainPanner