pv_MagGate.help.hs

-- pv_MagGate
let (lhs,rhs) = (-50,0) -- (0,100)
    i = soundIn 0
    c = fft' (localBufId 'α' 2048 1) i
    x = mouseX kr lhs rhs Linear 0.2
    y = mouseY kr 0 1 Linear 0.2
    h = X.pv_MagGate c x y
in ifft' h * 0.5