module Sound.SC3.UGen.Record.LFBrownNoise0 where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data LFBrownNoise0 = LFBrownNoise0 {
rate :: S.Rate,
freq :: S.UGen,
dev :: S.UGen,
dist :: S.UGen
} deriving (Show)
lfBrownNoise0 :: LFBrownNoise0
lfBrownNoise0 = LFBrownNoise0 {
rate = S.AR,
freq = 20.0,
dev = 1.0,
dist = 0.0
}
mkLFBrownNoise0 :: LFBrownNoise0 -> S.UGen
mkLFBrownNoise0 (LFBrownNoise0 r a' b' c') = S.mkOsc r "LFBrownNoise0" [a',b',c'] 1
instance Make LFBrownNoise0 where
ugen = mkLFBrownNoise0