source: trunk/src/read_set_object.m @ 55

Last change on this file since 55 was 19, checked in by gostiaux, 14 years ago

the private files have been moved down to the root folder

File size: 6.6 KB
Line 
1%'read_set_object': read the data on the 'set_object' interface
2%--------------------------------------------------------
3% data=read_set_object(handles)
4%--------------------------------------------------------
5%OUTPUT
6%data: structure of data read on the set_object interface
7%    .Style : style of projection object
8%    .Coord(nbpos,3): set of coordinates defining the object position;
9%    .ProjMode=type of projection ;
10%    .Phi=angle of projection;
11%    .DX,.DY,.DZ=increments;
12%    .YMax,YMin: min and max Y
13%INPUT:
14% handles: structure describing the tags of the edit boxes and menus
15function data=read_set_object(handles)
16%menus
17if isfield(handles,'ObjectStyle')%case of the set_object interface
18        menu=get(handles.ObjectStyle,'String');
19        value=get(handles.ObjectStyle,'Value');
20        data.Style=menu{value};
21        menu=get(handles.ProjMode,'String');
22        value=get(handles.ProjMode,'Value');
23        data.ProjMode=menu{value};
24        menu=get(handles.MenuCoord,'String');
25        value=get(handles.MenuCoord,'Value');
26        data.CoordType=menu{value};
27    testcalib=0;
28else %default
29    data.Style='points';
30    testcalib=1;
31end
32
33%Euler angles and projection ranges
34if ~testcalib
35        if isequal(get(handles.Phi,'Visible'),'on')
36        data.Phi=str2num(get(handles.Phi,'String'));
37        end
38        if isequal(get(handles.Theta,'Visible'),'on')
39        data.Theta=str2num(get(handles.Theta,'String'));
40        end
41        if isequal(get(handles.Psi,'Visible'),'on')
42        data.Psi=str2num(get(handles.Psi,'String'));
43    end
44        if isequal(get(handles.DX,'Visible'),'on')
45        data.DX=str2num(get(handles.DX,'String'));
46        end
47        if isequal(get(handles.DY,'Visible'),'on')
48        data.DY=str2num(get(handles.DY,'String'));
49        end
50        if isequal(get(handles.DZ,'Visible'),'on')
51        data.DZ=str2num(get(handles.DZ,'String'));
52    end
53    dimrange=[1 1];%default
54    if isequal(get(handles.ZMin,'Visible'),'on')
55        ZMin=str2num(get(handles.ZMin,'String'));
56        if ~isempty(ZMin)
57           data.RangeZ(1)=ZMin;
58           dimrange=[2 3];
59        end
60    end
61        if isequal(get(handles.ZMax,'Visible'),'on')
62        ZMax=str2num(get(handles.ZMax,'String'));
63        if isempty(ZMax)
64            if dimrange(1)>1
65%                 set(handles.ZMax,'String',get(handles.ZMin,'String'))
66                data.RangeZ(1)=ZMax;
67            end
68        else
69           data.RangeZ=ZMax;
70           dimrange=[dimrange(1) 3];
71        end
72    end
73    if isequal(get(handles.YMin,'Visible'),'on')
74        YMin=str2num(get(handles.YMin,'String'));
75        if isempty(YMin)
76%             if dimrange(2)>2
77% %                 set(handles.YMin,'String','0')
78%                 data.RangeY(2)=0;
79%             end
80        else
81            data.RangeY(2)=YMin;
82            dimrange=[2 max(dimrange(2),2)];
83        end
84    end
85    if isequal(get(handles.YMax,'Visible'),'on')
86%         data.YMax=str2num(get(handles.YMax,'String'));
87        YMax=str2num(get(handles.YMax,'String'));
88        if isempty(YMax)
89%             if dimrange(1)>1
90% %                 set(handles.YMax,'String',get(handles.YMin,'String'))
91%                 if ~isempty(YMin)
92%                 data.RangeY(1)=YMin;
93%                 end
94%             elseif dimrange(2)>2
95% %                 set(handles.YMax,'String',get(handles.ZMin,'String'))
96%                 data.RangeY(2)=ZMin;
97%             end
98        else
99            data.RangeY(1)=YMax;
100            dimrange=[dimrange(1) max(dimrange(2),2)];
101        end
102    end
103    if isequal(get(handles.XMin,'Visible'),'on')
104        XMin=str2num(get(handles.XMin,'String'));
105        if isempty(XMin)
106%             if ~isempty(YMin)
107%                 if dimrange(2)>1
108% %                     set(handles.XMin,'String',get(handles.YMin,'String'))
109%                     data.RangeX(2)=YMin;
110%                     XMin=YMin;
111%                 end
112%             end
113        else
114            data.RangeX(2)=XMin;
115            %dimrange=[2 max(dimrange(2),1)];
116        end
117        end
118        if isequal(get(handles.XMax,'Visible'),'on')
119         XMax=str2num(get(handles.XMax,'String'));
120         if isempty(XMax)
121%             if dimrange(1)>1
122% %                 set(handles.XMax,'String',get(handles.XMin,'String'))
123%                 if ~isempty(XMin)
124%                 data.RangeX(2)=XMin;
125%                 end
126%             elseif dimrange(2)>1
127% %                 set(handles.XMax,'String',get(handles.YMax,'String'))
128%                 data.RangeX(1)=YMax;
129%             end
130        else
131            data.RangeX(1)=XMax;
132         end
133    end
134end
135
136
137%positions x,y,z
138Xcolumn=get(handles.XObject,'String');
139Ycolumn=get(handles.YObject,'String');
140if ischar(Xcolumn)
141    sizchar=size(Xcolumn);
142    for icol=1:sizchar(1)
143        Xcolumn_cell{icol}=Xcolumn(icol,:);
144    end
145    Xcolumn=Xcolumn_cell;
146end
147if ischar(Ycolumn)
148    sizchar=size(Ycolumn);
149    for icol=1:sizchar(1)
150        Ycolumn_cell{icol}=Ycolumn(icol,:);
151    end
152    Ycolumn=Ycolumn_cell;
153end
154Zcolumn={};%default
155if isequal(get(handles.ZObject,'Visible'),'on')
156    data.NbDim=3; %test 3D object
157    Zcolumn=get(handles.ZObject,'String');
158    if ischar(Zcolumn)
159        Zcolumn={Zcolumn};
160    end
161end
162nb_points=min(length(Xcolumn),length(Ycolumn));%number of point positions needed to define the object position
163if isequal (data.Style,'line');
164    nb_defining_points=2;
165elseif isequal(data.Style,'plane')|isequal(data.Style,'rectangle')|isequal(data.Style,'ellipse')
166    nb_defining_points=1;
167else
168    nb_defining_points=nb_points;
169end
170data_XObject=[];
171data_YObject=[];
172data_ZObject=[];
173for i=1:nb_points
174    Xnumber=str2num(Xcolumn{i});
175    Ynumber=str2num(Ycolumn{i});
176    if isempty(Xnumber)|isempty(Ynumber)
177        break
178    else
179        data_XObject=[data_XObject; Xnumber(1)];
180        data_YObject=[data_YObject; Ynumber(1)];
181    end
182    if length(Zcolumn)<i | isempty(str2num(Zcolumn{i}))
183        data_ZObject=[data_ZObject; 0];
184    else
185        data_ZObject=[data_ZObject; str2num(Zcolumn{i})];
186    end
187end
188if nb_defining_points > nb_points
189    for i=nb_points+1:nb_defining_points
190        data_XObject=[0;data_XObject];
191        data_YObject=[0;data_YObject];
192        data_ZObject=[0;data_ZObject];
193    end
194end
195if isempty(data_XObject)
196    data_XObject=0;
197end
198if isempty(data_YObject)
199    data_YObject=0;
200end
201if isempty(data_ZObject)
202    data_ZObject=0;
203end
204data.Coord=[data_XObject data_YObject data_ZObject];
205
206set(handles.XObject,'String',mat2cell(data_XObject,length(data_XObject)))%correct the interface display
207set(handles.YObject,'String',mat2cell(data_YObject,length(data_XObject)))
208set(handles.ZObject,'String',mat2cell(data_ZObject,length(data_XObject)))
209
210
Note: See TracBrowser for help on using the repository browser.