function tf = closetosegment(px,py,sax,say,sbx,sby,tolerance)

if(length(px) == 1),
    a = px + j*py;
    b = sax + j*say;
    c = sbx + j*sby;

    if(abs(a-b) + abs(a-c) - abs(b-c) <= tolerance),
        tf = 1;
        %[px py sax say sbx sby tolerance]
        %[abs(a-b) abs(a-c) abs(b-c)]
    else
        tf = 0;
    end;
else
    tf = closetosegment(px(1),py(1),sax,say,sbx,sby,tolerance) | closetosegment(px(2:length(px)),py(2:length(px)),sax,say,sbx,sby,tolerance);
end;