AtsUGen.hs

-- | (not documented)
module Sound.SC3.UGen.Record.AtsUGen where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data AtsUGen = AtsUGen {
  maxSize :: S.UGen
  } deriving (Show)
atsUGen :: AtsUGen
atsUGen = AtsUGen {
  maxSize = 0.0
  }
mkAtsUGen :: AtsUGen -> S.UGen
mkAtsUGen (AtsUGen  a') = S.mkOsc S.AR "AtsUGen" [a'] 1
instance Make AtsUGen where
  ugen = mkAtsUGen