-- brownNoise
brownNoiseId 'α' ar * 0.1

-- brownNoise ; kr rate noise as frequency control
let n = brownNoiseId 'α' kr
in sinOsc ar (linExp n (-1) 1 64 9600) 0 * 0.1

---- ; drawings
Sound.Sc3.Plot.plot_ugen1 0.1 (brownNoiseId 'γ' ar)
Sound.Sc3.Plot.FFT.plot_ugen_fft1 0.1 (brownNoiseId 'γ' ar)
UI.ui_sc3_scope_freq (600,400) 0
