WrapSummer.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.WrapSummer where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data WrapSummer = WrapSummer {
  rate :: S.Rate,
  trig :: S.UGen,
  step :: S.UGen,
  min :: S.UGen,
  max :: S.UGen,
  reset :: S.UGen,
  resetval :: S.UGen
  } deriving (Show)
wrapSummer :: WrapSummer
wrapSummer = WrapSummer {
  rate = S.AR,
  trig = 0.0,
  step = 1.0,
  min = 0.0,
  max = 1.0,
  reset = 0.0,
  resetval = 0.0
  }
mkWrapSummer :: WrapSummer -> S.UGen
mkWrapSummer (WrapSummer r a' b' c' d' e' f') = S.mkOsc r "WrapSummer" [a',b',c',d',e',f'] 1
instance Make WrapSummer where
  ugen = mkWrapSummer