function qcWG_UnBogLineCB(src,event,x,y,ha)

axes(ha);
gx = get(ha,'XLim');
gy = get(ha,'YLim');
toUnBL=x>=gx(1) & x<=gx(2) & y>=gy(1) & y<=gy(2);
f = find(toUnBL);
ax=gca;ax.ColorOrderIndex=1;
scatter(x(f),y(f),7,'filled');

ha.UserData(:,end+1)=toUnBL*2;