module Sound.SC3.UGen.Record.TBrownRand where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data TBrownRand = TBrownRand {
rate :: S.Rate,
lo :: S.UGen,
hi :: S.UGen,
dev :: S.UGen,
dist :: S.UGen,
trig :: S.UGen
} deriving (Show)
tBrownRand :: TBrownRand
tBrownRand = TBrownRand {
rate = S.AR,
lo = 0.0,
hi = 1.0,
dev = 1.0,
dist = 0.0,
trig = 0.0
}
mkTBrownRand :: TBrownRand -> S.UGen
mkTBrownRand (TBrownRand r a' b' c' d' e') = S.mkOsc r "TBrownRand" [a',b',c',d',e'] 1
instance Make TBrownRand where
ugen = mkTBrownRand