Changeset 379 for trunk/src/geometry_calib.m

Timestamp:

Jan 27, 2012, 1:59:18 AM (12 years ago)

Author:

sommeria

Message:

several bugs corrected
set_object.fig rationalized so that read_set_object is replaced by the rgeneral fct read_GUI.

File:

• trunk/src/geometry_calib.m (modified) (4 diffs)

trunk/src/geometry_calib.m

@@ -149 +149 @@
 function APPLY_Callback(hObject, eventdata, handles)
 %------------------------------------------------------------------------
-%read the current calibration points
+%% look for the GUI uvmat and check for an image as input
+huvmat=findobj(allchild(0),'Name','uvmat');
+hhuvmat=guidata(huvmat);%handles of elements in the GUI uvmat
+FileExt=get(hhuvmat.FileExt,'String');
+check_input=0;
+if ~isempty(FileExt)
+    if ~isempty(imformats(FileExt(2:end))) ||strcmpi(FileExt,'.avi')
+        check_input=1;
+    end
+end
+if ~check_input
+    msgbox_uvmat('ERROR','open an image with uvmat to perform calibration')
+    return
+end
+
+%% read the current calibration points
 Coord_cell=get(handles.ListCoord,'String');
 Object=read_geometry_calib(Coord_cell);
@@ -200 +215 @@
 set(handles.Psi,'String',num2str(GeometryCalib.omc(3),4))
 
-% store the calibration data, by default in the xml file of the currently displayed image
-huvmat=findobj(allchild(0),'Name','uvmat');
+%% store the calibration data, by default in the xml file of the currently displayed image
 UvData=get(huvmat,'UserData');
 NbSlice_j=1;%default
@@ -208 +222 @@
 volume_scan='n';
 if isfield(UvData,'XmlData')
-    UvData.XmlData
     if isfield(UvData.XmlData,'TranslationMotor')
         NbSlice_j=UvData.XmlData.TranslationMotor.Nbslice;
@@ -216 +229 @@
     end
 end
-hhuvmat=guidata(huvmat);%handles of elements in the GUI uvmat
 RootPath='';
 % RootFile='';