-- | (Undocumented class) module Sound.SC3.UGen.Record.Max where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data Max = Max { input :: S.UGen, numsamp :: S.UGen } deriving (Show) max :: Max max = Max { input = 0.0, numsamp = 64.0 } mkMax :: Max -> S.UGen mkMax (Max a' b') = S.mkOsc S.KR "Max" [a',b'] 1 instance Make Max where ugen = mkMax