Changeset 654 for trunk/src/geometry_calib.m

Timestamp:

Jun 30, 2013, 11:16:45 PM (12 years ago)

Author:

sommeria

Message:

various bugs corrected

File:

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

trunk/src/geometry_calib.m

@@ -50 +50 @@
 % Edit the above text to modify the response to help geometry_calib
 
-% Last Modified by GUIDE v2.5 29-Jul-2012 08:46:09
+% Last Modified by GUIDE v2.5 29-Jun-2013 23:52:36
 
 % Begin initialization code - DO NOT edit
@@ -208 +208 @@
 set(handles.geometry_calib,'UserData',UserData)
 uvmat('RootPath_Callback',hObject,eventdata,hhuvmat); %file input with xml reading  in uvmat, show the image in phys coordinates
-MenuPlot_Callback(hObject, eventdata, handles)
+PLOT_Callback(hObject, eventdata, handles)
 set(handles.ListCoord,'Value',index)% indicate in the list the point with max deviation (possible mistake)
 ListCoord_Callback(hObject, eventdata, handles)
@@ -748 +748 @@
 set(handles.ListCoord,'Value',1)% refresh the display of coordinates
 set(handles.ListCoord,'String',{'......'})
-MenuPlot_Callback(hObject, eventdata, handles)
+PLOT_Callback(hObject, eventdata, handles)
+
 
 %------------------------------------------------------------------------
@@ -800 +801 @@
 %update the plot 
 ListCoord_Callback(hObject, eventdata, handles)
-MenuPlot_Callback(hObject, eventdata, handles)
+PLOT_Callback(hObject, eventdata, handles)
 
 %------------------------------------------------------------------------
@@ -917 +918 @@
 plot_field(Data)
 
-%------------------------------------------------------------------------
-function MenuPlot_Callback(hObject, eventdata, handles)
-%------------------------------------------------------------------------
-huvmat=findobj(allchild(0),'Name','uvmat');%find the current uvmat interface handle
-%UvData=get(huvmat,'UserData');%Data associated to the current uvmat interface
-hhuvmat=guidata(huvmat); %handles of GUI elements in uvmat
-%hplot=findobj(huvmat,'Tag','axes3');%main plotting axis of uvmat
-h_menu_coord=findobj(huvmat,'Tag','TransformName');
-menu=get(h_menu_coord,'String');
-choice=get(h_menu_coord,'Value');
-if iscell(menu)
-    option=menu{choice};
-else
-    option='px'; %default
-end
-Coord_cell=get(handles.ListCoord,'String');
-ObjectData=read_geometry_calib(Coord_cell);
-%ObjectData=read_geometry_calib(handles);%read the interface input parameters defining the object
-if ~isempty(ObjectData.Coord)
-    if isequal(option,'phys')
-        ObjectData.Coord=ObjectData.Coord(:,1:3);
-    elseif isequal(option,'px')||isequal(option,'')
-        ObjectData.Coord=ObjectData.Coord(:,4:5);
-    else
-        msgbox_uvmat('ERROR','the choice in menu_coord of uvmat must be '''', px or phys ')
-    end
-end
-
-set(0,'CurrentFigure',huvmat)
-set(huvmat,'CurrentAxes',hhuvmat.PlotAxes)
-hh=findobj('Tag','calib_points');
-if  ~isempty(ObjectData.Coord) && isempty(hh)
-    hh=line(ObjectData.Coord(:,1),ObjectData.Coord(:,2),'Color','m','Tag','calib_points','LineStyle','.','Marker','+');
-elseif isempty(ObjectData.Coord)%empty list of points, suppress the plot
-    delete(hh)
-else
-    set(hh,'XData',ObjectData.Coord(:,1))
-    set(hh,'YData',ObjectData.Coord(:,2))
-end
-pause(.1)
-figure(handles.geometry_calib)
 
 % --------------------------------------------------------------------
@@ -969 +929 @@
    web([helpfile '#geometry_calib'])
 end
+
+% --------------------------------------------------------------------
+function MenuSetScale_Callback(hObject, eventdata, handles)
+% hObject    handle to MenuSetScale (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+ answer=msgbox_uvmat('INPUT_TXT','scale pixel/cm?','')
+ %create test points
+ huvmat=findobj(allchild(0),'Name','uvmat');%find the current uvmat interface handle
+UvData=get(huvmat,'UserData');%Data associated to the current uvmat interface
+Xima=0.8*[UvData.Field.XMin UvData.Field.XMax UvData.Field.XMax UvData.Field.XMin]';
+Yima=0.8*[UvData.Field.YMin UvData.Field.YMax UvData.Field.YMax UvData.Field.YMin]';
+x=Xima/str2num(answer);
+y=Yima/str2num(answer);
+for j=1:4
+    for i=1:5
+          Coord{j,1}=num2str(x);%
+          Coord{j,2}=num2str(y);%
+          Coord{j,3}='0';%
+          Coord{j,4}=num2str(Xima);%
+          Coord{j,5}=num2str(Yima);%
+    end
+end
+
+Tabchar=cell2tab(Coord,' | ');
+Tabchar=[Tabchar ;{'......'}];
+set(handles.ListCoord,'String',Tabchar)
 
 %------------------------------------------------------------------------
@@ -1140 +1127 @@
 set(handles.ListCoord,'Value',1)
 set(handles.ListCoord,'String',Tabchar)
-MenuPlot_Callback(hObject, eventdata, handles)
+PLOT_Callback(hObject, eventdata, handles)
 
 %-----------------------------------------------------------------------
@@ -1233 +1220 @@
 set(handles.ListCoord,'Value',1)
 set(handles.ListCoord,'String',Tabchar)
-MenuPlot_Callback(handles.geometry_calib, [], handles)
+PLOT_Callback(handles.geometry_calib, [], handles)
 
 % -----------------------------------------------------------------------
@@ -1280 +1267 @@
         set(handles.ListCoord,'String',Coord_cell)         
         ListCoord_Callback(hObject, eventdata, handles) 
-        MenuPlot_Callback(hObject,eventdata,handles)
+        PLOT_Callback(hObject,eventdata,handles)
      end
 end
@@ -1357 +1344 @@
     CoordCell=reshape(CoordCell,[],5);
     Tabchar=cell2tab(CoordCell,' | ');%transform cells into table ready for display
-    MenuPlot_Callback(handles.geometry_calib, [], handles)
+    PLOT_Callback(handles.geometry_calib, [], handles)
 end
 set(handles.calib_type,'Value',val_cal)
@@ -1405 +1392 @@
 % Hint: delete(hObject) closes the figure
 delete(hObject);
+
+%------------------------------------------------------------------------
+% --- Executes on button press in PLOT.
+%------------------------------------------------------------------------
+function PLOT_Callback(hObject, eventdata, handles)
+
+huvmat=findobj(allchild(0),'Name','uvmat');%find the current uvmat interface handle
+%UvData=get(huvmat,'UserData');%Data associated to the current uvmat interface
+hhuvmat=guidata(huvmat); %handles of GUI elements in uvmat
+%hplot=findobj(huvmat,'Tag','axes3');%main plotting axis of uvmat
+h_menu_coord=findobj(huvmat,'Tag','TransformName');
+menu=get(h_menu_coord,'String');
+choice=get(h_menu_coord,'Value');
+if iscell(menu)
+    option=menu{choice};
+else
+    option='px'; %default
+end
+Coord_cell=get(handles.ListCoord,'String');
+ObjectData=read_geometry_calib(Coord_cell);
+%ObjectData=read_geometry_calib(handles);%read the interface input parameters defining the object
+if ~isempty(ObjectData.Coord)
+    if isequal(option,'phys')
+        ObjectData.Coord=ObjectData.Coord(:,1:3);
+    elseif isequal(option,'px')||isequal(option,'')
+        ObjectData.Coord=ObjectData.Coord(:,4:5);
+    else
+        msgbox_uvmat('ERROR','the choice in menu_coord of uvmat must be '''', px or phys ')
+    end
+end
+
+set(0,'CurrentFigure',huvmat)
+set(huvmat,'CurrentAxes',hhuvmat.PlotAxes)
+hh=findobj('Tag','calib_points');
+if  ~isempty(ObjectData.Coord) && isempty(hh)
+    hh=line(ObjectData.Coord(:,1),ObjectData.Coord(:,2),'Color','m','Tag','calib_points','LineStyle','.','Marker','+');
+elseif isempty(ObjectData.Coord)%empty list of points, suppress the plot
+    delete(hh)
+else
+    set(hh,'XData',ObjectData.Coord(:,1))
+    set(hh,'YData',ObjectData.Coord(:,2))
+end
+pause(.1)
+figure(handles.geometry_calib)
+
+
+