Max.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.Max where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Max = Max {
  in :: S.UGen,
  numsamp :: S.UGen
  } deriving (Show)
max :: Max
max = Max {
  in = 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