function find_BR_pushbutton(hObject, eventdata)

global var h

xlim(h.image,[2*var.Imsize(2)/3 var.Imsize(2)])
ylim(h.image,[0 var.Imsize(1)/3])
% set(h.image,'xlim',[0 var.Imsize(1)/3])
% set(h.image,'ylim',[0 var.Imsize(2)/3])

if isfield(h,'BRpoint')
    var.BR = [];
    delete(h.BRpoint);
end

[x,y] = ginput(1);
var.BR = ceil([y x]);

hold on
h.TLpoint = plot(var.BR(2),var.BR(1),'oy');
hold off

xlim(h.image,[0 var.Imsize(2)])
ylim(h.image,[0 var.Imsize(1)])
end