ArrayMax.hs

-- | detect the largest value (and its position) in an array of UGens
module Sound.SC3.UGen.Record.ArrayMax where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data ArrayMax = ArrayMax {
  rate :: S.Rate,
  array :: S.UGen
  } deriving (Show)
arrayMax :: ArrayMax
arrayMax = ArrayMax {
  rate = S.AR,
  array = 0.0
  }
mkArrayMax :: ArrayMax -> S.UGen
mkArrayMax (ArrayMax r a') = S.mkOsc r "ArrayMax" [a'] 2
instance Make ArrayMax where
  ugen = mkArrayMax