WAmp.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.WAmp where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data WAmp = WAmp {
  in :: S.UGen,
  winSize :: S.UGen
  } deriving (Show)
wAmp :: WAmp
wAmp = WAmp {
  in = 0.0,
  winSize = 0.1
  }
mkWAmp :: WAmp -> S.UGen
mkWAmp (WAmp  a' b') = S.mkOsc S.KR "WAmp" [a',b'] 1
instance Make WAmp where
  ugen = mkWAmp