-- | (Undocumented class) module Sound.SC3.UGen.Record.ListDUGen where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data ListDUGen = ListDUGen { list :: S.UGen, repeats :: S.UGen } deriving (Show) listDUGen :: ListDUGen listDUGen = ListDUGen { list = 0.0, repeats = 1.0 } mkListDUGen :: ListDUGen -> S.UGen mkListDUGen (ListDUGen a' b') = S.mkOsc S.DR "ListDUGen" [a',b'] 1 instance Make ListDUGen where ugen = mkListDUGen