function Validar_Callback(hObject, eventdata, handles)
% hObject handle to Validar (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
global im
h=figure('KeyPressFcn','keep=0');
imshow(im);
Diametro=[];
keep=1
escala=get(handles.Zoom_objetivo,'UserData');
while keep==1
pregunta=get(handles.entrada_manual,'String');
vector=[];
hold on
%keep=1;
disp(1)
button=1
while keep==1 && button==1
[x,y,button]=ginput(1);
disp('bbb')
button
vector=[vector;[x,y]];
plot(vector(:,1),vector(:,2),'-r','markersize',10);
hold on
disp('s')
keep
end
disp(2)
vector=[vector;vector(1,:)];
setappdata(h,'UserData',vector);
plot(vector(:,1),vector(:,2),'-r','markersize',10);
tamano=length(getappdata(h,'UserData'));
vector=vector'
if tamano<3
AreaPoligono=0;
break
return
else
area=0;
for i=1:tamano-1
area=area+0.5*(vector(2,i)+vector(2,i+1))*(vector(1,i+1)-vector(1,i));
end
AreaPoligono=abs(area*escala^2);
end
diamet=2*((AreaPoligono/3.1416)^0.5);
diamet=-log2(diamet)
Diametro=[Diametro;[diamet]]
disp(['Area: ',num2str(round(AreaPoligono,2)), 'mm^2']);
disp(['Tamaño: ',num2str(round(diamet,2)), 'phi']);
[x,y,button]=ginput(1);
if button==0
close(h)
break
end
end
set(hObject,'BackgroundColor',[0.35 0.35 0.35])
diamet
set(handles.resp,'String',diamet);
set(handles.Validar,'UserData',Diametro);
guidata(hObject,handles)