doubleWell3.help.hs

-- doubleWell3 ; bass synth
let x = mouseX kr 0 200 Linear 0.2
    y = mouseY kr 0.5 4.0 Linear 0.2
    f = sinOsc ar x 0 * y
in X.doubleWell3 ar 0 0.01 f 0.25 0 0

-- doubleWell3 ; gradually changing
let f = lfSaw ar (line kr 10 1000 10 DoNothing) 0
    delta = line kr 0.0 0.3 20 DoNothing
in X.doubleWell3 ar 0 0.05 f delta 0 0 * 0.2