-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathview3d.m
396 lines (349 loc) · 13.3 KB
/
view3d.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
function view3d(arg,arg2)
% view3d Interactively rotate, zoom and pan the view of a 3-D plot
% --------------------------------------------------------------------
%
% VIEW3D ROT turns on mouse-based 3-D rotation
% VIEW3D ZOOM turns on mouse-based 3-D zoom and pan
% VIEW3D OFF turns it off
%
% VIEW3D(FIG,...) works on the figure FIG
%
% Double click to restore the original view
%
% hit "z" key over the figure to switch from ROT to ZOOM
% hit "r" key over the figure to switch from ZOOM to ROT
%
% in ROT mode:
% press and hold left mouse button to rotate about screen xy axis
% press and hold middle mouse button to rotate about screen z axis
% in ZOOM mode:
% press and hold left mouse button to zoom in and out
% press and hold middle mouse button to move the plot
%
% --------------------------------------------------------------------
% inspired from rotate3d by The MathWorks, Inc.
%
% Torsten Vogel 09.04.1999
% tested under Matlab 5.2
% --------------------------------------------------------------------
% ---------------------------------------------- inputs --------------
if nargin == 0
error('not enough inputs')
elseif nargin == 1
if ishandle(arg)
error('not enough inputs')
return
else
switch(lower(arg))
case 'rot'
viewact(gcf,'rot')
case 'zoom'
viewact(gcf,'zoom')
case 'off'
viewact(gcf,'off')
case 'down'
view3dDownFcn
case 'up'
view3dUpFcn
case 'keypress'
view3dkeypressFcn
case 'view_xy' % rotate via screen xy axis
view3dxyFcn
case 'view_z' % rotate via screen z axis
view3dzFcn
case 'view_zoom' % zoom in and out
view3dzoomFcn
case 'view_pan' % move the plot
view3dpanFcn
otherwise
error('misspelled command argument')
end
end
elseif nargin==2
if ~ishandle(arg)
error('bad figure handle')
end
switch(lower(arg2))
case 'rot'
viewact(arg,'rot')
case 'zoom'
viewact(arg,'zoom')
case 'off'
viewact(arg,'off')
otherwise
error('misspelled command argument')
end
end
% ---------------------------------------------- activation ----------
function viewact(fig,what)
% de-/activates view3d for the given figure
view3dObj = findobj(allchild(fig),'Tag','view3dObj');
%view3dObj = [];
set(fig,'WindowButtonDownFcn','view3d(''down'')');
set(fig,'WindowButtonUpFcn','view3d(''up'')');
set(fig,'WindowButtonMotionFcn','');
set(fig,'ButtonDownFcn','');
set(fig,'KeyPressFcn','view3d(''keypress'')');
if strcmp(what,'rot')
if isempty(view3dObj)
view3dObj = makeview3dObj(fig); %the small text box at the lower left corner
end
vdata = get(view3dObj,'UserData');
vdata.what = 'rot';
set(view3dObj,'UserData',vdata);
elseif strcmp(what,'zoom')
if isempty(view3dObj)
view3dObj = makeview3dObj(fig); %the small text box at the lower left corner
end
vdata = get(view3dObj,'UserData');
vdata.what = 'zoom';
set(view3dObj,'UserData',vdata);
elseif strcmp(what,'off')
if isempty(view3dObj)
return
end
vdata = get(view3dObj,'UserData');
uirestore(vdata.uistate);
set(fig,'KeyPressFcn',vdata.oldkeypressfcn)
delete(view3dObj);
end
% ---------------------------------------------- view3dDownFcn -------
function view3dDownFcn
view3dObj = findobj(allchild(gcf),'Tag','view3dObj');
mouseclick = get(gcf,'SelectionType');
if isempty(view3dObj)
return
end
vdata = get(view3dObj,'UserData');
vdata.oldunits = get(gcf,'Units');
set(gcf,'Units','pixels');
vdata.old_pt = get(0,'PointerLocation');
% ----------------- store or restore previous view
ViewData = get(get(gca,'zlabel'),'UserData');
if isempty(ViewData)
ViewData = manageViewData('get_from_axes');
set(get(gca,'zlabel'),'UserData',ViewData)
end
if strcmp(mouseclick,'open')
manageViewData('set_axes',ViewData);
set(gcf,'Units',vdata.oldunits)
return
end
% ----------------- display text box
fig_color = get(gcf,'Color');
c = sum([.3 .6 .1].*fig_color);
set(vdata.textbox,'BackgroundColor',fig_color);
if(c > .5)
set(vdata.textbox,'ForegroundColor',[0 0 0]);
else
set(vdata.textbox,'ForegroundColor',[1 1 1]);
end
% ----------------- what to do?
if strcmp(vdata.what,'rot')
if strcmp(mouseclick,'normal')
set(vdata.textbox,'string','Screen XY Rotation');
set(gcf,'WindowButtonMotionFcn','view3d(''view_xy'')');
set(gcf,'Pointer','custom','pointershapecdata',pointershapes('rot'));
elseif strcmp(mouseclick,'extend')
set(vdata.textbox,'string','Screen Z Rotation');
set(gcf,'WindowButtonMotionFcn','view3d(''view_z'')');
set(gcf,'Pointer','custom','pointershapecdata',pointershapes('rot'));
end
else
if strcmp(mouseclick,'normal')
set(vdata.textbox,'string','Zoom');
set(gcf,'WindowButtonMotionFcn','view3d(''view_zoom'')');
set(gcf,'Pointer','custom','pointershapecdata',pointershapes('zoom'));
elseif strcmp(mouseclick,'extend')
set(vdata.textbox,'string','Pan');
set(gcf,'WindowButtonMotionFcn','view3d(''view_pan'')');
set(gcf,'Pointer','custom','pointershapecdata',pointershapes('pan'));
end
end
set(view3dObj,'UserData',vdata)
set(vdata.textbox,'visi','on')
% ---------------------------------------------- view3dUpFcn ---------
function view3dUpFcn
view3dObj = findobj(allchild(gcf),'Tag','view3dObj');
if isempty(view3dObj)
return
end
vdata = get(view3dObj,'UserData');
set(gcf,'WindowButtonMotionFcn','','Units',vdata.oldunits,'pointer','arrow')
set(view3dObj,'visi','off')
% ---------------------------------------------- view3dkeypressFcn ---
function view3dkeypressFcn
view3dObj = findobj(allchild(gcf),'Tag','view3dObj');
if isempty(view3dObj)
return
end
vdata = get(view3dObj,'UserData');
currchar = lower(get(gcf,'currentchar'));
if strcmp(currchar,'r')
vdata.what = 'rot';
elseif strcmp(currchar,'z')
vdata.what = 'zoom';
end
set(view3dObj,'UserData',vdata)
% ---------------------------------------------- view3dxyFcn ---------
function view3dxyFcn
view3dObj = findobj(allchild(gcf),'Tag','view3dObj');
vdata = get(view3dObj,'UserData');
new_pt = get(0,'PointerLocation');
old_pt = vdata.old_pt;
dx = (new_pt(1) - old_pt(1))*.5;
dy = (new_pt(2) - old_pt(2))*.5;
direction = [0 0 1];
coordsys = 'camera';
pos = get(gca,'cameraposition' );
targ = get(gca,'cameratarget' );
dar = get(gca,'dataaspectratio');
up = get(gca,'cameraupvector' );
[newPos newUp] = camrotate(pos,targ,dar,up,-dx,-dy,coordsys,direction);
set(gca,'cameraposition', newPos, 'cameraupvector', newUp);
vdata.old_pt = new_pt;
set(view3dObj,'UserData',vdata)
% ---------------------------------------------- view3dzFcn ----------
function view3dzFcn
view3dObj = findobj(allchild(gcf),'Tag','view3dObj');
vdata = get(view3dObj,'UserData');
new_pt = get(0,'PointerLocation');
old_pt = vdata.old_pt;
dy = (new_pt(2) - old_pt(2))*.5;
camroll(gca,-dy)
vdata.old_pt = new_pt;
set(view3dObj,'UserData',vdata)
% ---------------------------------------------- view3dzoomFcn -------
function view3dzoomFcn
view3dObj = findobj(allchild(gcf),'Tag','view3dObj');
vdata = get(view3dObj,'UserData');
new_pt = get(0,'PointerLocation');
old_pt = vdata.old_pt;
dy = (new_pt(2) - old_pt(2))/abs(old_pt(2));
camzoom(gca,1-dy)
vdata.old_pt = new_pt;
set(view3dObj,'UserData',vdata)
% ---------------------------------------------- view3dpanFcn --------
function view3dpanFcn
view3dObj = findobj(allchild(gcf),'Tag','view3dObj');
vdata = get(view3dObj,'UserData');
new_pt = get(0,'PointerLocation');
old_pt = vdata.old_pt;
dx = (new_pt(1) - old_pt(1))/old_pt(1)*4;
dy = (new_pt(2) - old_pt(2))/old_pt(2)*4;
campan(gca,-dx,-dy,'camera')
vdata.old_pt = new_pt;
set(view3dObj,'UserData',vdata)
% ---------------------------------------------- make view3dObj ------
function view3dObj = makeview3dObj(fig)
% save the previous state of the figure window
vdata.uistate = uisuspend(fig);
% the data structure
vdata.what = [];
vdata.olp_pt = [];
vdata.textbox = [];
vdata.oldunits = [];
vdata.oldkeypressfcn = get(fig,'KeyPressFcn');
% view3dObj
view3dObj = uicontrol('style','text','parent',fig,'Units','Pixels',...
'Position',[2 2 130 20],'Visible','off', ...
'HandleVisibility','off','tag','view3dObj');
vdata.textbox = view3dObj;
% store current view
ViewData = manageViewData('get_from_axes');
set(get(gca,'zlabel'),'UserData',ViewData);
% functions
set(fig,'WindowButtonDownFcn','view3d(''down'')');
set(fig,'WindowButtonUpFcn','view3d(''up'')');
set(fig,'WindowButtonMotionFcn','');
set(fig,'ButtonDownFcn','');
set(fig,'KeyPressFcn','view3d(''keypress'')');
set(view3dObj,'UserData',vdata);
% ---------------------------------------------- manage ViewData -----
function ViewData = manageViewData(how,data)
if nargin == 1 ; data = [];end
props = {
'DataAspectRatio'
'DataAspectRatioMode'
'CameraPosition'
'CameraPositionMode'
'CameraTarget'
'CameraTargetMode'
'CameraUpVector'
'CameraUpVectorMode'
'CameraViewAngle'
'CameraViewAngleMode'
'PlotBoxAspectRatio'
'PlotBoxAspectRatioMode'
'Units'
'Position'
'View'
'Projection'
};
if strcmp(how,'get_from_axes')
ViewData = get(gca,props);
elseif strcmp(how,'get_stored')
ViewData = get(get(gca,'zlabel'),'UserData');
elseif strcmp(how,'set_axes')
set(gca,props,data)
ViewData = [];
end
% -------------------------------------------------------------------------
% get some pointer shapes
function shape = pointershapes(arg)
if strcmp(arg,'zoom')
% -- zoom
shape=[ 2 2 2 2 2 2 2 2 2 2 NaN NaN NaN NaN NaN NaN ;
2 1 1 1 1 1 1 1 1 2 NaN NaN NaN NaN NaN NaN ;
2 1 2 2 2 2 2 2 2 2 NaN NaN NaN NaN NaN NaN ;
2 1 2 1 1 1 1 1 1 2 NaN NaN NaN NaN NaN NaN ;
2 1 2 1 1 1 1 1 2 NaN NaN NaN NaN NaN NaN NaN ;
2 1 2 1 1 1 1 2 NaN NaN NaN NaN NaN NaN NaN NaN ;
2 1 2 1 1 1 1 1 2 NaN NaN NaN 2 2 2 2 ;
2 1 2 1 1 2 1 1 1 2 NaN 2 1 2 1 2 ;
2 1 2 1 2 NaN 2 1 1 1 2 1 1 2 1 2 ;
2 2 2 2 NaN NaN NaN 2 1 1 1 1 1 2 1 2 ;
NaN NaN NaN NaN NaN NaN NaN NaN 2 1 1 1 1 2 1 2 ;
NaN NaN NaN NaN NaN NaN NaN 2 1 1 1 1 1 2 1 2 ;
NaN NaN NaN NaN NaN NaN 2 1 1 1 1 1 1 2 1 2 ;
NaN NaN NaN NaN NaN NaN 2 2 2 2 2 2 2 2 1 2 ;
NaN NaN NaN NaN NaN NaN 2 1 1 1 1 1 1 1 1 2 ;
NaN NaN NaN NaN NaN NaN 2 2 2 2 2 2 2 2 2 2 ];
elseif strcmp(arg,'pan')
% -- pan
shape=[ NaN NaN NaN NaN NaN NaN NaN 2 2 NaN NaN NaN NaN NaN NaN NaN ;
NaN NaN NaN NaN NaN NaN 2 1 1 2 NaN NaN NaN NaN NaN NaN ;
NaN NaN NaN NaN NaN 2 1 1 1 1 2 NaN NaN NaN NaN NaN ;
NaN NaN NaN NaN NaN 1 1 1 1 1 1 NaN NaN NaN NaN NaN ;
NaN NaN NaN NaN NaN NaN 2 1 1 2 NaN NaN NaN NaN NaN NaN ;
NaN NaN 2 1 NaN NaN 2 1 1 2 NaN NaN 1 2 NaN NaN ;
NaN 2 1 1 2 2 2 1 1 2 2 2 1 1 2 NaN ;
2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 ;
2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 ;
NaN 2 1 1 2 2 2 1 1 2 2 2 1 1 2 NaN ;
NaN NaN 2 1 NaN NaN 2 1 1 2 NaN NaN 1 2 NaN NaN ;
NaN NaN NaN NaN NaN NaN 2 1 1 2 NaN NaN NaN NaN NaN NaN ;
NaN NaN NaN NaN NaN 1 1 1 1 1 1 NaN NaN NaN NaN NaN ;
NaN NaN NaN NaN NaN 2 1 1 1 1 2 NaN NaN NaN NaN NaN ;
NaN NaN NaN NaN NaN NaN 2 1 1 2 NaN NaN NaN NaN NaN NaN ;
NaN NaN NaN NaN NaN NaN NaN 2 2 NaN NaN NaN NaN NaN NaN NaN ];
elseif strcmp(arg,'rot')
% -- rot
shape=[ NaN NaN NaN 2 2 2 2 2 NaN 2 2 NaN NaN NaN NaN NaN ;
NaN NaN NaN 1 1 1 1 1 2 1 1 2 NaN NaN NaN NaN ;
NaN NaN NaN 2 1 1 1 1 2 1 1 1 2 NaN NaN NaN ;
NaN NaN 2 1 1 1 1 1 2 2 1 1 1 2 NaN NaN ;
NaN 2 1 1 1 2 1 1 2 NaN NaN 2 1 1 2 NaN ;
NaN 2 1 1 2 NaN 2 1 2 NaN NaN 2 1 1 2 NaN ;
2 1 1 2 NaN NaN NaN NaN NaN NaN NaN NaN 2 1 1 2 ;
2 1 1 2 NaN NaN NaN NaN NaN NaN NaN NaN 2 1 1 2 ;
2 1 1 2 NaN NaN NaN NaN NaN NaN NaN NaN 2 1 1 2 ;
2 1 1 2 NaN NaN NaN NaN NaN NaN NaN NaN 2 1 1 2 ;
NaN 2 1 1 2 NaN NaN 2 1 2 NaN 2 1 1 2 NaN ;
NaN 2 1 1 2 NaN NaN 2 1 1 2 1 1 1 2 NaN ;
NaN NaN 2 1 1 1 2 2 1 1 1 1 1 2 NaN NaN ;
NaN NaN NaN 2 1 1 1 2 1 1 1 1 2 NaN NaN NaN ;
NaN NaN NaN NaN 2 1 1 2 1 1 1 1 1 NaN NaN NaN ;
NaN NaN NaN NaN NaN 2 2 NaN 2 2 2 2 2 NaN NaN NaN ];
end