MCLDChaosGen.hs

-- | (Undocumented class)
module Sound.SC3.UGen.Record.MCLDChaosGen where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data MCLDChaosGen = MCLDChaosGen {
  maxSize :: S.UGen
  } deriving (Show)
mCLDChaosGen :: MCLDChaosGen
mCLDChaosGen = MCLDChaosGen {
  maxSize = 0.0
  }
mkMCLDChaosGen :: MCLDChaosGen -> S.UGen
mkMCLDChaosGen (MCLDChaosGen  a') = S.mkOsc S.AR "MCLDChaosGen" [a'] 1
instance Make MCLDChaosGen where
  ugen = mkMCLDChaosGen