function A=leerimagenmainO(calclab,calclabds,npuntos,posg,leer)
A=[];
try
    name=get(leer,'string');    color=get(leer,'BackgroundColor');
    set(leer,'string','Leyendo...','BackgroundColor','r');

    set(calclab,'string','');    set(calclabds,'string','');
    set(npuntos,'string','');    set(gcf,'color','w');
    axis off
    [fname,pname]=uigetfile('','Seleccionar imagen...');

    if fname==0
        warndlg('Lectura cancelada')
    else
        file_path=[pname,fname];
        A=imread(file_path);     s=size(A);
        axes('Position',posg),cla,pause(0.1),imshow(A)
        axis image,axis equal,axis on
    end
    set(leer,'string',name,'BackgroundColor',color);
catch
    set(leer,'string',name,'BackgroundColor',color);
    errordlg(lasterr,'Error')
end
