module Sound.SC3.UGen.Record.RShufflerL where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data RShufflerL = RShufflerL {
rate :: S.Rate,
input :: S.UGen,
fragmentSize :: S.UGen,
maxDelay :: S.UGen
} deriving (Show)
rShufflerL :: RShufflerL
rShufflerL = RShufflerL {
rate = S.AR,
input = 0.0,
fragmentSize = 0.01,
maxDelay = 0.01
}
mkRShufflerL :: RShufflerL -> S.UGen
mkRShufflerL (RShufflerL r a' b' c') = S.mkOsc r "RShufflerL" [a',b',c'] 1
instance Make RShufflerL where
ugen = mkRShufflerL