module Sound.SC3.UGen.Noise.Monadic where
import Sound.SC3.UGen.Rate
import Sound.SC3.UGen.UGen
import Sound.SC3.UGen.UGen.Construct
import qualified Sound.SC3.UGen.Noise.Base as N
import Sound.SC3.UGen.UId
brownNoise :: (UId m) => Rate -> m UGen
brownNoise = liftU N.brownNoise
clipNoise :: (UId m) => Rate -> m UGen
clipNoise = liftU N.clipNoise
coinGate :: (UId m) => UGen -> UGen -> m UGen
coinGate = liftU2 N.coinGate
dust2 :: (UId m) => Rate -> UGen -> m UGen
dust2 = liftU2 N.dust2
dust :: (UId m) => Rate -> UGen -> m UGen
dust = liftU2 N.dust
expRand :: (UId m) => UGen -> UGen -> m UGen
expRand = liftU2 N.expRand
grayNoise :: (UId m) => Rate -> m UGen
grayNoise = liftU N.grayNoise
iRand :: (UId m) => UGen -> UGen -> m UGen
iRand = liftU2 N.iRand
lfClipNoise :: (UId m) => Rate -> UGen -> m UGen
lfClipNoise = liftU2 N.lfClipNoise
lfdClipNoise :: (UId m) => Rate -> UGen -> m UGen
lfdClipNoise = liftU2 N.lfdClipNoise
lfdNoise0 :: (UId m) => Rate -> UGen -> m UGen
lfdNoise0 = liftU2 N.lfdNoise0
lfdNoise1 :: (UId m) => Rate -> UGen -> m UGen
lfdNoise1 = liftU2 N.lfdNoise1
lfdNoise2 :: (UId m) => Rate -> UGen -> m UGen
lfdNoise2 = liftU2 N.lfdNoise2
lfNoise0 :: (UId m) => Rate -> UGen -> m UGen
lfNoise0 = liftU2 N.lfNoise0
lfNoise1 :: (UId m) => Rate -> UGen -> m UGen
lfNoise1 = liftU2 N.lfNoise1
lfNoise2 :: (UId m) => Rate -> UGen -> m UGen
lfNoise2 = liftU2 N.lfNoise2
linRand :: (UId m) => UGen -> UGen -> UGen -> m UGen
linRand = liftU3 N.linRand
nRand :: (UId m) => UGen -> UGen -> UGen -> m UGen
nRand = liftU3 N.nRand
pinkNoise :: (UId m) => Rate -> m UGen
pinkNoise = liftU N.pinkNoise
rand :: (UId m) => UGen -> UGen -> m UGen
rand = liftU2 N.rand
tExpRand :: (UId m) => UGen -> UGen -> UGen -> m UGen
tExpRand = liftU3 N.tExpRand
tiRand :: (UId m) => UGen -> UGen -> UGen -> m UGen
tiRand = liftU3 N.tiRand
tRand :: (UId m) => UGen -> UGen -> UGen -> m UGen
tRand = liftU3 N.tRand
whiteNoise :: (UId m) => Rate -> m UGen
whiteNoise = liftU N.whiteNoise