-- pinkNoise ; plain
pinkNoiseId 'α' ar * 0.1

-- pinkNoise ; monadic constructor
uid_st_eval (fmap (* 0.05) (pinkNoiseM ar))

-- pinkNoise ; c.f. whiteNoise
uid_st_eval (fmap (* 0.05) (whiteNoiseM ar))

-- pinkNoise ; c.f. whiteNoise
uid_st_eval (fmap (* 0.05) (brownNoiseM ar))

-- pinkNoise ; speaker balance
let n = pinkNoiseId 'γ' ar * 0.05 in mce2 n n

-- pinkNoise ; speaker balance ; mouse control
let x = mouseX kr 0 1 Linear 0.2
    x' = 1 - x
    n = pinkNoiseId 'δ' ar * 0.05
in mce2 (n * x') (n * x)

-- pinkNoise ; identifiers & referential transparency ; L = silence, R = pink-noise
mce2 (pinkNoiseId 'α' ar - pinkNoiseId 'α' ar) (pinkNoiseId 'α' ar - pinkNoiseId 'β' ar) * 0.1

-- pinkNoise ; silence
let n = pinkNoiseId 'α' ar in (n - n) * 0.1

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