module Sound.SC3.UGen.Demand.Monadic where
import Sound.SC3.UGen.UGen
import Sound.SC3.UGen.UGen.Lift
import qualified Sound.SC3.UGen.Demand.ID as D
import Sound.SC3.UGen.UId
import Sound.SC3.UGen.Enum
dbufrd :: (UId m) => UGen -> UGen -> Loop -> m UGen
dbufrd = liftU3 D.dbufrd
dbufwr :: (UId m) => UGen -> UGen -> UGen -> Loop -> m UGen
dbufwr = liftU4 D.dbufwr
dwhite :: (UId m) => UGen -> UGen -> UGen -> m UGen
dwhite = liftU3 D.dwhite
diwhite :: (UId m) => UGen -> UGen -> UGen -> m UGen
diwhite = liftU3 D.diwhite
dbrown :: (UId m) => UGen -> UGen -> UGen -> UGen -> m UGen
dbrown = liftU4 D.dbrown
dibrown :: (UId m) => UGen -> UGen -> UGen -> UGen -> m UGen
dibrown = liftU4 D.dibrown
drand :: (UId m) => UGen -> UGen -> m UGen
drand = liftU2 D.drand
dxrand :: (UId m) => UGen -> UGen -> m UGen
dxrand = liftU2 D.dxrand
dseries :: (UId m) => UGen -> UGen -> UGen -> m UGen
dseries = liftU3 D.dseries
dgeom :: (UId m) => UGen -> UGen -> UGen -> m UGen
dgeom = liftU3 D.dgeom
dseq :: (UId m) => UGen -> UGen -> m UGen
dseq = liftU2 D.dseq
dser :: (UId m) => UGen -> UGen -> m UGen
dser = liftU2 D.dser
dstutter :: (UId m) => UGen -> UGen -> m UGen
dstutter = liftU2 D.dstutter
dswitch1 :: (UId m) => UGen -> UGen -> m UGen
dswitch1 = liftU2 D.dswitch1
dswitch :: (UId m) => UGen -> UGen -> m UGen
dswitch = liftU2 D.dswitch