module Sound.SC3.UGen.Record.AbstractOut where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data AbstractOut = AbstractOut { maxSize :: S.UGen } deriving (Show) abstractOut :: AbstractOut abstractOut = AbstractOut { maxSize = 0.0 } mkAbstractOut :: AbstractOut -> S.UGen mkAbstractOut (AbstractOut a') = S.mkOsc S.AR "AbstractOut" [a'] 1 instance Make AbstractOut where ugen = mkAbstractOut