module Sound.SC3.UGen.Record.RShufflerB where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data RShufflerB = RShufflerB {
rate :: S.Rate,
bufnum :: S.UGen,
readLocationMinima :: S.UGen,
readLocationMaxima :: S.UGen,
readIncrementMinima :: S.UGen,
readIncrementMaxima :: S.UGen,
durationMinima :: S.UGen,
durationMaxima :: S.UGen,
envelopeAmplitudeMinima :: S.UGen,
envelopeAmplitudeMaxima :: S.UGen,
envelopeShapeMinima :: S.UGen,
envelopeShapeMaxima :: S.UGen,
envelopeSkewMinima :: S.UGen,
envelopeSkewMaxima :: S.UGen,
stereoLocationMinima :: S.UGen,
stereoLocationMaxima :: S.UGen,
interOffsetTimeMinima :: S.UGen,
interOffsetTimeMaxima :: S.UGen,
ftableReadLocationIncrement :: S.UGen,
readIncrementQuanta :: S.UGen,
interOffsetTimeQuanta :: S.UGen
} deriving (Show)
rShufflerB :: RShufflerB
rShufflerB = RShufflerB {
rate = S.AR,
bufnum = 0.0,
readLocationMinima = 0.01,
readLocationMaxima = 0.02,
readIncrementMinima = 1.0,
readIncrementMaxima = 1.0,
durationMinima = 0.2,
durationMaxima = 0.2,
envelopeAmplitudeMinima = 0.5,
envelopeAmplitudeMaxima = 0.5,
envelopeShapeMinima = 0.5,
envelopeShapeMaxima = 0.5,
envelopeSkewMinima = 0.5,
envelopeSkewMaxima = 0.5,
stereoLocationMinima = 0.5,
stereoLocationMaxima = 0.5,
interOffsetTimeMinima = 0.05,
interOffsetTimeMaxima = 0.01,
ftableReadLocationIncrement = 1.0,
readIncrementQuanta = 0.0,
interOffsetTimeQuanta = 0.0
}
mkRShufflerB :: RShufflerB -> S.UGen
mkRShufflerB (RShufflerB r a' b' c' d' e' f' g' h' i' j' k' l' m' n' o' p' q' r' s' t') = S.mkOsc r "RShufflerB" [a',b',c',d',e',f',g',h',i',j',k',l',m',n',o',p',q',r',s',t'] 2
instance Make RShufflerB where
ugen = mkRShufflerB