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