dwhite.help.hs

-- dwhite
let n = dwhiteId 'α' dinf 0 15
    x = mouseX kr 1 40 Exponential 0.1
    t = impulse kr x 0
    f = demand t 0 n * 30 + 340
in sinOsc ar f 0 * 0.1

-- dwhite ; bias uniform noise to lower range
let n = dwhiteId 'α' dinf 0 1
    l = control_m kr "l" 48 (0,127,"lin")
    r = control_m kr "r" 96 (0,127,"lin")
    t = impulse kr (control_m kr "trigFreq" 2 (0.01,12,"lin")) 0
    m = exp (demand t 0 n * (log r - log l) + log l)
in sinOsc ar (midiCps m) 0 * 0.1

---- ; drawings
UI.ui_sc3_scope 2 0 4096 1 "audio" 0