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