BufMax.hs

-- | detect the largest value (and its position) in an array of UGens
module Sound.SC3.UGen.Record.BufMax where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data BufMax = BufMax {
  bufnum :: S.UGen,
  gate :: S.UGen
  } deriving (Show)
bufMax :: BufMax
bufMax = BufMax {
  bufnum = 0.0,
  gate = 1.0
  }
mkBufMax :: BufMax -> S.UGen
mkBufMax (BufMax  a' b') = S.mkOsc S.KR "BufMax" [a',b'] 2
instance Make BufMax where
  ugen = mkBufMax