%'read_geometry_calib': read data on the GUI geometry_calib %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function data=read_geometry_calib(Coord_cell) data_XIma=[]; data_YIma=[]; data_XObject=[]; data_YObject=[]; data_ZObject=[]; %Coord=get(handles.ListCoord,'String'); % XImage=get(handles.XImage,'String'); % YImage=get(handles.YImage,'String'); % XObject=get(handles.XObject,'String'); % YObject=get(handles.YObject,'String'); % ZObject=get(handles.ZObject,'String'); % if ischar(Xcolumn) % Xcolumn={Xcolumn}; % end nb_defining_points=length(Coord_cell); iline=0; for i=1:nb_defining_points coord_str=Coord_cell{i};%character string of line number i k=findstr('|',coord_str);%find separators '|' if length(k)>=4 % test for separators '|' data1=str2num(coord_str(1:k(1)-5)); data2=str2num(coord_str(k(1)+5:k(2)-5)); data3=str2num(coord_str(k(2)+5:k(3)-5)); data4=str2num(coord_str(k(3)+5:k(4)-5)); data5=str2num(coord_str(k(4)+5:end)); if ~isempty(data1)|~isempty(data2)|~isempty(data3)|~isempty(data4)|~isempty(data5) iline=iline+1; if ~isempty(data1) data.Coord(iline,1)=data1; end if ~isempty(data2) data.Coord(iline,2)=data2; end if ~isempty(data3) data.Coord(iline,3)=data3; end if ~isempty(data4) data.Coord(iline,4)=data4; end if isempty(data5) data.Coord(iline,5)=0; else data.Coord(iline,5)=data5; end end end end data.Style='points';