[37] | 1 | <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" |
---|
| 2 | "http://www.w3.org/TR/REC-html40/loose.dtd"> |
---|
| 3 | <html> |
---|
| 4 | <head> |
---|
| 5 | <title>Description of mouse_motion</title> |
---|
| 6 | <meta name="keywords" content="mouse_motion"> |
---|
| 7 | <meta name="description" content="'mouse_motion': permanently called by mouse motion over a figure (Callback for 'WindowButtonMotionFcn' of the figure)"> |
---|
| 8 | <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> |
---|
| 9 | <meta name="generator" content="m2html © 2003 Guillaume Flandin"> |
---|
| 10 | <meta name="robots" content="index, follow"> |
---|
| 11 | <link type="text/css" rel="stylesheet" href="../m2html.css"> |
---|
| 12 | </head> |
---|
| 13 | <body> |
---|
| 14 | <a name="_top"></a> |
---|
| 15 | <div><a href="../index.html">Home</a> > <a href="index.html">.</a> > mouse_motion.m</div> |
---|
| 16 | |
---|
| 17 | <!--<table width="100%"><tr><td align="left"><a href="../index.html"><img alt="<" border="0" src="../left.png"> Master index</a></td> |
---|
| 18 | <td align="right"><a href="index.html">Index for . <img alt=">" border="0" src="../right.png"></a></td></tr></table>--> |
---|
| 19 | |
---|
| 20 | <h1>mouse_motion |
---|
| 21 | </h1> |
---|
| 22 | |
---|
| 23 | <h2><a name="_name"></a>PURPOSE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2> |
---|
| 24 | <div class="box"><strong>'mouse_motion': permanently called by mouse motion over a figure (Callback for 'WindowButtonMotionFcn' of the figure)</strong></div> |
---|
| 25 | |
---|
| 26 | <h2><a name="_synopsis"></a>SYNOPSIS <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2> |
---|
| 27 | <div class="box"><strong>function mouse_motion(hObject,eventdata,handles) </strong></div> |
---|
| 28 | |
---|
| 29 | <h2><a name="_description"></a>DESCRIPTION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2> |
---|
| 30 | <div class="fragment"><pre class="comment">'mouse_motion': permanently called by mouse motion over a figure (Callback for 'WindowButtonMotionFcn' of the figure) |
---|
| 31 | ----------------------------------------------------------------------- |
---|
| 32 | |
---|
| 33 | function mouse_motion(hObject,eventdata,handles) |
---|
| 34 | activated by the command: |
---|
| 35 | set(hObject,'WindowButtonMotionFcn',{'mouse_motion',handles}) |
---|
| 36 | where hObject is the handle of the figure |
---|
| 37 | |
---|
| 38 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
---|
| 39 | Copyright Joel Sommeria, 2008, LEGI / CNRS-UJF-INPG, sommeria@coriolis-legi.org. |
---|
| 40 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA |
---|
| 41 | This file is part of the toolbox UVMAT. |
---|
| 42 | |
---|
| 43 | UVMAT is free software; you can redistribute it and/or modify |
---|
| 44 | it under the terms of the GNU General Public License as published by |
---|
| 45 | the Free Software Foundation; either version 2 of the License, or |
---|
| 46 | (at your option) any later version. |
---|
| 47 | |
---|
| 48 | UVMAT is distributed in the hope that it will be useful, |
---|
| 49 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
| 50 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
---|
| 51 | GNU General Public License (file UVMAT/COPYING.txt) for more details. |
---|
| 52 | AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</pre></div> |
---|
| 53 | |
---|
| 54 | <!-- crossreference --> |
---|
| 55 | <h2><a name="_cross"></a>CROSS-REFERENCE INFORMATION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2> |
---|
| 56 | This function calls: |
---|
| 57 | <ul style="list-style-image:url(../matlabicon.gif)"> |
---|
| 58 | <li><a href="plot_object.html" class="code" title="function [hh]=plot_object(ObjectDataIn,ProjObject,hplot,col)">plot_object</a> 'plot_object': draws a projection object (points, line, plane...)</li></ul> |
---|
| 59 | This function is called by: |
---|
| 60 | <ul style="list-style-image:url(../matlabicon.gif)"> |
---|
| 61 | <li><a href="mouse_up.html" class="code" title="function mouse_up(ggg,eventdata,handles)">mouse_up</a> 'mouse_up': function activated when the mouse button is released</li></ul> |
---|
| 62 | <!-- crossreference --> |
---|
| 63 | |
---|
| 64 | |
---|
| 65 | <h2><a name="_source"></a>SOURCE CODE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2> |
---|
| 66 | <div class="fragment"><pre>0001 <span class="comment">%'mouse_motion': permanently called by mouse motion over a figure (Callback for 'WindowButtonMotionFcn' of the figure)</span> |
---|
| 67 | 0002 <span class="comment">%-----------------------------------------------------------------------</span> |
---|
| 68 | 0003 <span class="comment">%</span> |
---|
| 69 | 0004 <span class="comment">% function mouse_motion(hObject,eventdata,handles)</span> |
---|
| 70 | 0005 <span class="comment">% activated by the command:</span> |
---|
| 71 | 0006 <span class="comment">% set(hObject,'WindowButtonMotionFcn',{'mouse_motion',handles})</span> |
---|
| 72 | 0007 <span class="comment">% where hObject is the handle of the figure</span> |
---|
| 73 | 0008 <span class="comment">%</span> |
---|
| 74 | 0009 <span class="comment">%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</span> |
---|
| 75 | 0010 <span class="comment">% Copyright Joel Sommeria, 2008, LEGI / CNRS-UJF-INPG, sommeria@coriolis-legi.org.</span> |
---|
| 76 | 0011 <span class="comment">%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</span> |
---|
| 77 | 0012 <span class="comment">% This file is part of the toolbox UVMAT.</span> |
---|
| 78 | 0013 <span class="comment">%</span> |
---|
| 79 | 0014 <span class="comment">% UVMAT is free software; you can redistribute it and/or modify</span> |
---|
| 80 | 0015 <span class="comment">% it under the terms of the GNU General Public License as published by</span> |
---|
| 81 | 0016 <span class="comment">% the Free Software Foundation; either version 2 of the License, or</span> |
---|
| 82 | 0017 <span class="comment">% (at your option) any later version.</span> |
---|
| 83 | 0018 <span class="comment">%</span> |
---|
| 84 | 0019 <span class="comment">% UVMAT is distributed in the hope that it will be useful,</span> |
---|
| 85 | 0020 <span class="comment">% but WITHOUT ANY WARRANTY; without even the implied warranty of</span> |
---|
| 86 | 0021 <span class="comment">% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</span> |
---|
| 87 | 0022 <span class="comment">% GNU General Public License (file UVMAT/COPYING.txt) for more details.</span> |
---|
| 88 | 0023 <span class="comment">%AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA</span> |
---|
| 89 | 0024 |
---|
| 90 | 0025 <a name="_sub0" href="#_subfunctions" class="code">function mouse_motion(hObject,eventdata,handles)</a> |
---|
| 91 | 0026 <span class="keyword">if</span> ~exist(<span class="string">'handles'</span>,<span class="string">'var'</span>) |
---|
| 92 | 0027 <span class="keyword">return</span> |
---|
| 93 | 0028 <span class="keyword">end</span> |
---|
| 94 | 0029 <span class="keyword">if</span> ~isfield(handles, <span class="string">'mouse_coord'</span>) |
---|
| 95 | 0030 <span class="keyword">return</span> |
---|
| 96 | 0031 <span class="keyword">end</span> |
---|
| 97 | 0032 <span class="keyword">if</span> ~ishandle(handles.mouse_coord) |
---|
| 98 | 0033 <span class="keyword">return</span> |
---|
| 99 | 0034 <span class="keyword">end</span> |
---|
| 100 | 0035 proj_coord=get(handles.mouse_coord,<span class="string">'String'</span>); |
---|
| 101 | 0036 choice=get(handles.mouse_coord,<span class="string">'Value'</span>); |
---|
| 102 | 0037 <span class="keyword">if</span> ~isempty(proj_coord); proj_coord=proj_coord{choice};<span class="keyword">else</span>;proj_coord=[];<span class="keyword">end</span>; |
---|
| 103 | 0038 test_create=0;<span class="comment">%default</span> |
---|
| 104 | 0039 test_edit=0;<span class="comment">%default</span> |
---|
| 105 | 0040 <span class="keyword">if</span> isfield(handles,<span class="string">'VOLUME'</span>) <span class="comment">% mouse_motion not applied to the uvmat figure, no object creation</span> |
---|
| 106 | 0041 test_create=get(handles.create,<span class="string">'Value'</span>); |
---|
| 107 | 0042 <span class="keyword">end</span> |
---|
| 108 | 0043 test_edit=isfield(handles,<span class="string">'edit'</span>) & get(handles.edit,<span class="string">'Value'</span>);<span class="comment">% edit test for mouse shap: an arrow</span> |
---|
| 109 | 0044 test_zoom=isfield(handles,<span class="string">'zoom'</span>)& get(handles.zoom,<span class="string">'Value'</span>);<span class="comment">% edit test for mouse shap: an arrow</span> |
---|
| 110 | 0045 |
---|
| 111 | 0046 <span class="comment">%find the current axe 'haxes' and display the current mouse position or uicontrol tag</span> |
---|
| 112 | 0047 text_displ_1=<span class="string">''</span>; |
---|
| 113 | 0048 text_displ_2=<span class="string">''</span>; |
---|
| 114 | 0049 text_displ_3=<span class="string">''</span>; |
---|
| 115 | 0050 text_displ_4=<span class="string">''</span>; |
---|
| 116 | 0051 |
---|
| 117 | 0052 haxes=[]; |
---|
| 118 | 0053 AxeData=[];<span class="comment">%default</span> |
---|
| 119 | 0054 mouse=[]; |
---|
| 120 | 0055 |
---|
| 121 | 0056 pointershape=<span class="string">'arrow'</span>;<span class="comment">% default pointer is an arrow</span> |
---|
| 122 | 0057 |
---|
| 123 | 0058 xy_fig=get(gcbo,<span class="string">'CurrentPoint'</span>);<span class="comment">% current point of the current figure (gcbo)</span> |
---|
| 124 | 0059 hchild=get(gcbo,<span class="string">'Children'</span>);<span class="comment">%handles of all objects in the current figure</span> |
---|
| 125 | 0060 currentfig=gcbo;<span class="comment">%store gcbo as variable currentfig</span> |
---|
| 126 | 0061 <span class="comment">% loop on all the objects in the current figure (selected by the last mouse click)</span> |
---|
| 127 | 0062 <span class="keyword">for</span> ichild=1:length(hchild) |
---|
| 128 | 0063 obj_pos=get(hchild(ichild),<span class="string">'Position'</span>);<span class="comment">%position of the object</span> |
---|
| 129 | 0064 <span class="keyword">if</span> xy_fig(1) >=obj_pos(1) & xy_fig(2) >= obj_pos(2)& xy_fig(1) <=obj_pos(1)+obj_pos(3) & xy_fig(2) <= obj_pos(2)+obj_pos(4); |
---|
| 130 | 0065 htype=get(hchild(ichild),<span class="string">'Type'</span>);<span class="comment">%type of the crrent child</span> |
---|
| 131 | 0066 <span class="comment">%if the mouse is over an axis, look at the data</span> |
---|
| 132 | 0067 <span class="keyword">if</span> isequal(htype,<span class="string">'axes'</span>) |
---|
| 133 | 0068 haxes=hchild(ichild); |
---|
| 134 | 0069 xy=get(haxes,<span class="string">'CurrentPoint'</span>);<span class="comment">%xy(1,1),xy(1,2): current x,y positions in axes coordinates</span> |
---|
| 135 | 0070 mouse.X=xy(1,1); |
---|
| 136 | 0071 mouse.Y=xy(1,2); |
---|
| 137 | 0072 u_mouse=[]; |
---|
| 138 | 0073 v_mouse=[]; |
---|
| 139 | 0074 w_mouse=[]; |
---|
| 140 | 0075 A_mouse=[]; |
---|
| 141 | 0076 c_text=[]; |
---|
| 142 | 0077 f_text=[]; |
---|
| 143 | 0078 ff_text=[]; |
---|
| 144 | 0079 ivec=[]; |
---|
| 145 | 0080 AxeData=get(haxes,<span class="string">'UserData'</span>);<span class="comment">% data attached to the axis</span> |
---|
| 146 | 0081 <span class="keyword">if</span> ~test_edit && ~test_zoom |
---|
| 147 | 0082 pointershape=<span class="string">'crosshair'</span>;<span class="comment">%set pointer with cross shape (default when mouse is over an axis)</span> |
---|
| 148 | 0083 <span class="comment">% % pointershape='crosshair';%set pointer with cross shape (default over axis)</span> |
---|
| 149 | 0084 <span class="keyword">end</span> |
---|
| 150 | 0085 <span class="keyword">if</span> isfield(AxeData,<span class="string">'X'</span>) & isfield(AxeData,<span class="string">'Y'</span>) & isfield(AxeData,<span class="string">'Mesh'</span>)<span class="comment">% test on the existence of a vector field in the current axis</span> |
---|
| 151 | 0086 <span class="keyword">if</span> ~isempty(AxeData.Mesh) |
---|
| 152 | 0087 flag_vec=(AxeData.X<(xy(1,1)+AxeData.Mesh/3) & AxeData.X>(xy(1,1)-AxeData.Mesh/3)) & <span class="keyword">...</span><span class="comment">%flagx=1 for the vectors with x position selected by the mouse</span> |
---|
| 153 | 0088 (AxeData.Y<(xy(1,2)+AxeData.Mesh/3) & AxeData.Y>(xy(1,2)-AxeData.Mesh/3));<span class="comment">%f</span> |
---|
| 154 | 0089 ivec=find(flag_vec);<span class="comment">% search the selected vector index ivec</span> |
---|
| 155 | 0090 <span class="keyword">if</span> length(ivec)>0 |
---|
| 156 | 0091 <span class="keyword">if</span> ~test_create |
---|
| 157 | 0092 pointershape=<span class="string">'arrow'</span>; <span class="comment">%mouse indicates the detection of a vector</span> |
---|
| 158 | 0093 <span class="keyword">end</span> |
---|
| 159 | 0094 ivec=ivec(1);<span class="comment">%choice the first selected vector if several are selected</span> |
---|
| 160 | 0095 mouse.X=AxeData.X(ivec); |
---|
| 161 | 0096 mouse.Y=AxeData.Y(ivec); |
---|
| 162 | 0097 u_mouse=AxeData.U(ivec);<span class="comment">%displacement</span> |
---|
| 163 | 0098 v_mouse=AxeData.V(ivec); |
---|
| 164 | 0099 w_mouse=0; <span class="comment">%default</span> |
---|
| 165 | 0100 <span class="keyword">if</span> isfield(AxeData,<span class="string">'W'</span>)&length(AxeData.W)>=ivec |
---|
| 166 | 0101 w_text=[<span class="string">', w='</span> num2str(AxeData.W(ivec),3)]; |
---|
| 167 | 0102 <span class="keyword">else</span> |
---|
| 168 | 0103 w_text=<span class="string">''</span>; |
---|
| 169 | 0104 <span class="keyword">end</span> |
---|
| 170 | 0105 <span class="keyword">if</span> ~isfield(AxeData,<span class="string">'CName'</span>) |
---|
| 171 | 0106 AxeData.CName=<span class="string">'C'</span>;<span class="comment">%REVOIR</span> |
---|
| 172 | 0107 <span class="keyword">end</span> |
---|
| 173 | 0108 c_text=[<span class="string">', '</span> AxeData.CName <span class="string">'='</span> num2str(AxeData.C(ivec),3)]; |
---|
| 174 | 0109 <span class="keyword">if</span> isfield(AxeData,<span class="string">'F'</span>)&length(AxeData.F)>=ivec |
---|
| 175 | 0110 f_text=[<span class="string">', f='</span> num2str(AxeData.F(ivec),3)]; |
---|
| 176 | 0111 <span class="keyword">else</span> |
---|
| 177 | 0112 f_text=<span class="string">''</span>; |
---|
| 178 | 0113 <span class="keyword">end</span> |
---|
| 179 | 0114 <span class="keyword">if</span> isfield(AxeData,<span class="string">'FF'</span>)&length(AxeData.FF)>=ivec |
---|
| 180 | 0115 ff_text=[<span class="string">', ff='</span> num2str(AxeData.FF(ivec),3)]; |
---|
| 181 | 0116 <span class="keyword">else</span> |
---|
| 182 | 0117 ff_text=<span class="string">''</span>; |
---|
| 183 | 0118 <span class="keyword">end</span> |
---|
| 184 | 0119 <span class="keyword">end</span> |
---|
| 185 | 0120 <span class="keyword">end</span> |
---|
| 186 | 0121 <span class="keyword">end</span> |
---|
| 187 | 0122 <span class="keyword">if</span> isfield(AxeData,<span class="string">'ZObject'</span>) |
---|
| 188 | 0123 mouse.Z=AxeData.ZObject(1); <span class="comment">%generaliser au cas avec angle</span> |
---|
| 189 | 0124 <span class="keyword">end</span> |
---|
| 190 | 0125 <span class="keyword">if</span> isfield(AxeData,<span class="string">'ObjectCoord'</span>) & size(AxeData.ObjectCoord,2)==3 |
---|
| 191 | 0126 mouse.Z=AxeData.ObjectCoord(1,3); <span class="comment">%generaliser au cas avec angle</span> |
---|
| 192 | 0127 <span class="keyword">end</span> |
---|
| 193 | 0128 testscal= isfield(AxeData,<span class="string">'A'</span>)& isfield(AxeData,<span class="string">'AX'</span>)& isfield(AxeData,<span class="string">'AY'</span>);<span class="comment">%test the existence of an image (or scalar represented by an image)</span> |
---|
| 194 | 0129 <span class="keyword">if</span> testscal |
---|
| 195 | 0130 testscal=~isempty(AxeData.A)&~isempty(AxeData.AX)& ~isempty(AxeData.AY); |
---|
| 196 | 0131 <span class="keyword">end</span> |
---|
| 197 | 0132 <span class="keyword">if</span> testscal<span class="comment">%test the existence of an image (or scalar represented by an image)</span> |
---|
| 198 | 0133 nxy=size(AxeData.A); |
---|
| 199 | 0134 MaxAY=max(AxeData.AY(1),AxeData.AY(end)); |
---|
| 200 | 0135 MinAY=min(AxeData.AY(1),AxeData.AY(end)); |
---|
| 201 | 0136 <span class="keyword">if</span> (xy(1,1)>AxeData.AX(1))&(xy(1,1)<AxeData.AX(end))&(xy(1,2)<MaxAY)&(xy(1,2)>MinAY) |
---|
| 202 | 0137 indx0=1+round((nxy(2)-1)*(xy(1,1)-AxeData.AX(1))/(AxeData.AX(end)-AxeData.AX(1)));<span class="comment">% index x of pixel</span> |
---|
| 203 | 0138 indy0=1+round((nxy(1)-1)*(xy(1,2)-AxeData.AY(1))/(AxeData.AY(end)-AxeData.AY(1)));<span class="comment">% index y of pixel</span> |
---|
| 204 | 0139 <span class="keyword">if</span> indx0>=1 & indx0<=nxy(2) & indy0>=1 & indy0<=nxy(1) |
---|
| 205 | 0140 A_mouse=AxeData.A(indy0,indx0,:); |
---|
| 206 | 0141 <span class="keyword">end</span> |
---|
| 207 | 0142 <span class="keyword">end</span> |
---|
| 208 | 0143 <span class="keyword">end</span> |
---|
| 209 | 0144 <span class="comment">%coordinate transform if proj_coord differs from menu_coord</span> |
---|
| 210 | 0145 <span class="keyword">if</span> isfield(AxeData,<span class="string">'CoordType'</span>) |
---|
| 211 | 0146 mouse.CoordType=AxeData.CoordType; |
---|
| 212 | 0147 <span class="keyword">end</span> |
---|
| 213 | 0148 <span class="keyword">if</span> isfield(AxeData,<span class="string">'CoordUnit'</span>) |
---|
| 214 | 0149 mouse.CoordUnit=AxeData.CoordUnit; |
---|
| 215 | 0150 <span class="keyword">end</span> |
---|
| 216 | 0151 <span class="keyword">if</span> isfield(mouse,<span class="string">'CoordType'</span>) &~isequal(mouse.CoordType,proj_coord) |
---|
| 217 | 0152 huvmat=findobj(allchild(0),<span class="string">'Tag'</span>,<span class="string">'uvmat'</span>);<span class="comment">%find the uvmat interface handle</span> |
---|
| 218 | 0153 UvData=get(huvmat,<span class="string">'UserData'</span>); <span class="comment">%coord transformed stored in the uvmat interface, updated by file input</span> |
---|
| 219 | 0154 <span class="keyword">if</span> isfield(AxeData,<span class="string">'CoordType'</span>) |
---|
| 220 | 0155 mouse.CoordType=AxeData.CoordType; |
---|
| 221 | 0156 <span class="keyword">end</span> |
---|
| 222 | 0157 <span class="keyword">if</span> isfield(AxeData,<span class="string">'dt'</span>) |
---|
| 223 | 0158 mouse.dt=AxeData.dt; |
---|
| 224 | 0159 <span class="keyword">end</span> |
---|
| 225 | 0160 <span class="comment">% if ~isempty(z_mouse)</span> |
---|
| 226 | 0161 <span class="comment">% mouse.Z=z_mouse;</span> |
---|
| 227 | 0162 <span class="comment">% end</span> |
---|
| 228 | 0163 <span class="keyword">if</span> length(ivec)>0 <span class="comment">%& isfield(AxeData,'dt')</span> |
---|
| 229 | 0164 mouse.U=u_mouse; |
---|
| 230 | 0165 mouse.V=v_mouse; |
---|
| 231 | 0166 <span class="keyword">end</span> |
---|
| 232 | 0167 mouse=feval(proj_coord,mouse,UvData);<span class="comment">%apply transform proj_coord to the position</span> |
---|
| 233 | 0168 <span class="keyword">if</span> length(ivec)>0<span class="comment">%& isfield(AxeData,'dt')</span> |
---|
| 234 | 0169 u_mouse=mouse.U; |
---|
| 235 | 0170 v_mouse=mouse.V; |
---|
| 236 | 0171 <span class="keyword">end</span> |
---|
| 237 | 0172 <span class="keyword">end</span> |
---|
| 238 | 0173 <span class="keyword">if</span> isfield(mouse,<span class="string">'CoordType'</span>) |
---|
| 239 | 0174 <span class="keyword">if</span> isequal(mouse.CoordType,<span class="string">'px'</span>) |
---|
| 240 | 0175 mouse.CoordUnit=<span class="string">'px'</span>; |
---|
| 241 | 0176 <span class="keyword">end</span> |
---|
| 242 | 0177 <span class="keyword">else</span> |
---|
| 243 | 0178 mouse.CoordUnit=<span class="string">''</span>;<span class="comment">%default</span> |
---|
| 244 | 0179 <span class="keyword">end</span> |
---|
| 245 | 0180 text_displ_1=[<span class="string">'x='</span> num2str(mouse.X,4) <span class="string">',y='</span> num2str(mouse.Y,4)]; |
---|
| 246 | 0181 <span class="keyword">if</span> isfield(mouse,<span class="string">'Z'</span>)&~isempty(mouse.Z) |
---|
| 247 | 0182 text_displ_1=[text_displ_1 <span class="string">',z='</span> num2str(mouse.Z,3)]; |
---|
| 248 | 0183 <span class="keyword">end</span> |
---|
| 249 | 0184 <span class="keyword">if</span> isfield(mouse,<span class="string">'CoordUnit'</span>) |
---|
| 250 | 0185 text_displ_1=[text_displ_1 <span class="string">' '</span> mouse.CoordUnit]; |
---|
| 251 | 0186 <span class="keyword">end</span> |
---|
| 252 | 0187 <span class="keyword">if</span> ~isempty(ivec) |
---|
| 253 | 0188 text_displ_4=[<span class="string">'vec#='</span> num2str(ivec)]; |
---|
| 254 | 0189 <span class="keyword">end</span> |
---|
| 255 | 0190 <span class="keyword">if</span> ~isempty(u_mouse) |
---|
| 256 | 0191 text_displ_3=[<span class="string">'u='</span> num2str(u_mouse,3) <span class="string">',v='</span> num2str(v_mouse,3) w_text ]; |
---|
| 257 | 0192 <span class="keyword">if</span> isfield(mouse,<span class="string">'CoordUnit'</span>) |
---|
| 258 | 0193 <span class="keyword">if</span> isequal(mouse.CoordUnit,<span class="string">'px'</span>) |
---|
| 259 | 0194 text_displ_3=[text_displ_3 <span class="string">' '</span> mouse.CoordUnit]; |
---|
| 260 | 0195 <span class="keyword">elseif</span> isfield(AxeData,<span class="string">'TimeUnit'</span>) |
---|
| 261 | 0196 text_displ_3=[text_displ_3 <span class="string">' '</span> mouse.CoordUnit <span class="string">'/'</span> AxeData.TimeUnit]; |
---|
| 262 | 0197 <span class="keyword">end</span> |
---|
| 263 | 0198 <span class="keyword">end</span> |
---|
| 264 | 0199 text_displ_4=[text_displ_4 c_text f_text ff_text]; |
---|
| 265 | 0200 <span class="keyword">end</span> |
---|
| 266 | 0201 |
---|
| 267 | 0202 <span class="keyword">if</span> ~isempty(A_mouse) |
---|
| 268 | 0203 text_displ_2=[<span class="string">'A='</span> num2str(double(A_mouse)) <span class="string">',i='</span> num2str(indx0) <span class="string">',j='</span> num2str(indy0)]; |
---|
| 269 | 0204 <span class="keyword">end</span> |
---|
| 270 | 0205 <span class="keyword">elseif</span> isequal(get(hchild(ichild),<span class="string">'Visible'</span>),<span class="string">'on'</span>)& ~isequal(get(hchild(ichild),<span class="string">'Style'</span>),<span class="string">'frame'</span>) |
---|
| 271 | 0206 text_displ_1=get(hchild(ichild),<span class="string">'Tag'</span>); |
---|
| 272 | 0207 <span class="keyword">end</span> |
---|
| 273 | 0208 <span class="keyword">end</span> |
---|
| 274 | 0209 <span class="keyword">end</span> |
---|
| 275 | 0210 set(handles.text_display_1,<span class="string">'String'</span>,text_displ_1); |
---|
| 276 | 0211 set(handles.text_display_2,<span class="string">'String'</span>,text_displ_2); |
---|
| 277 | 0212 set(handles.text_display_3,<span class="string">'String'</span>,text_displ_3); |
---|
| 278 | 0213 set(handles.text_display_4,<span class="string">'String'</span>,text_displ_4); |
---|
| 279 | 0214 |
---|
| 280 | 0215 <span class="comment">%%%%%%%%%%%%%%%%%</span> |
---|
| 281 | 0216 <span class="comment">%create or modify an object</span> |
---|
| 282 | 0217 <span class="keyword">if</span> isfield(AxeData,<span class="string">'CurrentObject'</span>) & ishandle(AxeData.CurrentObject) & isfield(AxeData,<span class="string">'Drawing'</span>) & ~isequal(AxeData.Drawing,<span class="string">'off'</span>) |
---|
| 283 | 0218 PlotData=get(AxeData.CurrentObject,<span class="string">'UserData'</span>); |
---|
| 284 | 0219 huvmat=findobj(allchild(0),<span class="string">'Name'</span>,<span class="string">'uvmat'</span>);<span class="comment">%find the uvmat interface handle</span> |
---|
| 285 | 0220 <span class="keyword">if</span> ~isempty(huvmat) |
---|
| 286 | 0221 UvData=get(huvmat,<span class="string">'UserData'</span>); |
---|
| 287 | 0222 <span class="keyword">if</span> ~isfield(PlotData,<span class="string">'IndexObj'</span>) |
---|
| 288 | 0223 <span class="keyword">return</span> |
---|
| 289 | 0224 <span class="keyword">end</span> |
---|
| 290 | 0225 ObjectData=UvData.Object{PlotData.IndexObj}; |
---|
| 291 | 0226 XYData=AxeData.CurrentOrigin; |
---|
| 292 | 0227 <span class="keyword">if</span> isequal(AxeData.Drawing,<span class="string">'create'</span>) && isfield(AxeData,<span class="string">'CurrentOrigin'</span>) && ~isempty(AxeData.CurrentOrigin) |
---|
| 293 | 0228 <span class="keyword">if</span> isequal(ObjectData.Style,<span class="string">'line'</span>)|isequal(ObjectData.Style,<span class="string">'polyline'</span>)|isequal(ObjectData.Style,<span class="string">'polygon'</span>)|isequal(ObjectData.Style,<span class="string">'points'</span>) |
---|
| 294 | 0229 xy(1,3)=0; |
---|
| 295 | 0230 ObjectData.Coord=[ObjectData.Coord ;xy(1,:)]; |
---|
| 296 | 0231 <span class="comment">% ObjectData.Coord(end,:)=xy(1,:);</span> |
---|
| 297 | 0232 <span class="keyword">elseif</span> isequal(ObjectData.Style,<span class="string">'rectangle'</span>)|isequal(ObjectData.Style,<span class="string">'ellipse'</span>)|isequal(ObjectData.Style,<span class="string">'volume'</span>) |
---|
| 298 | 0233 ObjectData.Coord(1,1)=(xy(1,1)+XYData(1))/2;<span class="comment">%origin rectangle, x coordinate</span> |
---|
| 299 | 0234 ObjectData.Coord(1,2)=(xy(1,2)+XYData(2))/2; |
---|
| 300 | 0235 ObjectData.RangeX=abs(xy(1,1)-XYData(1))/2;<span class="comment">%rectangle width</span> |
---|
| 301 | 0236 ObjectData.RangeY=abs(xy(1,2)-XYData(2))/2;<span class="comment">%rectangle height</span> |
---|
| 302 | 0237 <span class="keyword">elseif</span> isequal(ObjectData.Style,<span class="string">'plane'</span>) <span class="comment">%case of 'plane'</span> |
---|
| 303 | 0238 DX=(xy(1,1)-ObjectData.Coord(1,1)); |
---|
| 304 | 0239 DY=(xy(1,2)-ObjectData.Coord(1,2)); |
---|
| 305 | 0240 ObjectData.Phi=(angle(DX+i*DY))*180/pi;<span class="comment">%rectangle widt</span> |
---|
| 306 | 0241 <span class="keyword">if</span> isfield(ObjectData,<span class="string">'RangeX'</span>) |
---|
| 307 | 0242 XMax=sqrt(DX*DX+DY*DY); |
---|
| 308 | 0243 <span class="keyword">if</span> XMax>max(ObjectData.RangeX) |
---|
| 309 | 0244 ObjectData.RangeX=[min(ObjectData.RangeX) XMax]; |
---|
| 310 | 0245 <span class="keyword">end</span> |
---|
| 311 | 0246 <span class="keyword">end</span> |
---|
| 312 | 0247 <span class="keyword">end</span> |
---|
| 313 | 0248 <a href="plot_object.html" class="code" title="function [hh]=plot_object(ObjectDataIn,ProjObject,hplot,col)">plot_object</a>(ObjectData,[],AxeData.CurrentObject,<span class="string">'m'</span>); |
---|
| 314 | 0249 pointershape=<span class="string">'crosshair'</span>; |
---|
| 315 | 0250 <span class="keyword">elseif</span> isequal(AxeData.Drawing,<span class="string">'translate'</span>) |
---|
| 316 | 0251 DX=xy(1,1)-XYData(1);<span class="comment">%translation from initial position</span> |
---|
| 317 | 0252 DY=xy(1,2)-XYData(2); |
---|
| 318 | 0253 ObjectData.Coord(:,1)=ObjectData.Coord(:,1)+DX; |
---|
| 319 | 0254 ObjectData.Coord(:,2)=ObjectData.Coord(:,2)+DY; |
---|
| 320 | 0255 <a href="plot_object.html" class="code" title="function [hh]=plot_object(ObjectDataIn,ProjObject,hplot,col)">plot_object</a>(ObjectData,[],AxeData.CurrentObject,<span class="string">'m'</span>); |
---|
| 321 | 0256 pointershape=<span class="string">'fleur'</span>; |
---|
| 322 | 0257 <span class="keyword">elseif</span> isequal(AxeData.Drawing,<span class="string">'deform'</span>) |
---|
| 323 | 0258 ind_move=AxeData.CurrentIndex; |
---|
| 324 | 0259 ObjectData.Coord(ind_move,1)=xy(1,1); |
---|
| 325 | 0260 ObjectData.Coord(ind_move,2)=xy(1,2); |
---|
| 326 | 0261 <a href="plot_object.html" class="code" title="function [hh]=plot_object(ObjectDataIn,ProjObject,hplot,col)">plot_object</a>(ObjectData,[],AxeData.CurrentObject,<span class="string">'m'</span>); |
---|
| 327 | 0262 pointershape=<span class="string">'circle'</span>; |
---|
| 328 | 0263 <span class="keyword">end</span> |
---|
| 329 | 0264 <span class="keyword">end</span> |
---|
| 330 | 0265 <span class="keyword">end</span> |
---|
| 331 | 0266 <span class="comment">%%%%%%%%%%%%%</span> |
---|
| 332 | 0267 <span class="comment">%draw a rectangle if no object creation is selected</span> |
---|
| 333 | 0268 <span class="keyword">if</span> ~isempty(haxes) & isfield(AxeData,<span class="string">'Drawing'</span>)& isequal(AxeData.Drawing,<span class="string">'zoom'</span>)& isfield(AxeData,<span class="string">'CurrentOrigin'</span>)<span class="keyword">...</span> |
---|
| 334 | 0269 & isequal(get(gcf,<span class="string">'SelectionType'</span>),<span class="string">'normal'</span>)<span class="comment">%</span> |
---|
| 335 | 0270 xy_rect=AxeData.CurrentOrigin; |
---|
| 336 | 0271 <span class="keyword">if</span> ~isempty(xy_rect) |
---|
| 337 | 0272 rect(1)=min(xy(1,1),xy_rect(1));<span class="comment">%origin rectangle, x coordinate</span> |
---|
| 338 | 0273 rect(2)=min(xy(1,2),xy_rect(2));<span class="comment">%origin rectangle, y coordinate</span> |
---|
| 339 | 0274 rect(3)=abs(xy(1,1)-xy_rect(1));<span class="comment">%rectangle width</span> |
---|
| 340 | 0275 rect(4)=abs(xy(1,2)-xy_rect(2));<span class="comment">%rectangle height</span> |
---|
| 341 | 0276 <span class="keyword">if</span> rect(3)>0 & rect(4)>0 |
---|
| 342 | 0277 <span class="keyword">if</span> isfield(AxeData,<span class="string">'CurrentRectZoom'</span>)& ishandle(AxeData.CurrentRectZoom) |
---|
| 343 | 0278 set(AxeData.CurrentRectZoom,<span class="string">'Position'</span>,rect);<span class="comment">%update the rectangle position</span> |
---|
| 344 | 0279 <span class="keyword">else</span> |
---|
| 345 | 0280 AxeData.CurrentRectZoom=rectangle(<span class="string">'Position'</span>,rect,<span class="string">'LineStyle'</span>,<span class="string">':'</span>,<span class="string">'Tag'</span>,<span class="string">'rect_zoom'</span>); |
---|
| 346 | 0281 set(haxes,<span class="string">'UserData'</span>,AxeData) |
---|
| 347 | 0282 <span class="keyword">end</span> |
---|
| 348 | 0283 <span class="keyword">end</span> |
---|
| 349 | 0284 <span class="keyword">end</span> |
---|
| 350 | 0285 <span class="keyword">end</span> |
---|
| 351 | 0286 <span class="keyword">if</span> test_zoom |
---|
| 352 | 0287 pointershape=<span class="string">'arrow'</span>; |
---|
| 353 | 0288 <span class="keyword">end</span> |
---|
| 354 | 0289 set(currentfig,<span class="string">'Pointer'</span>,pointershape);</pre></div> |
---|
| 355 | <hr><address>Generated on Fri 13-Nov-2009 11:17:03 by <strong><a href="http://www.artefact.tk/software/matlab/m2html/">m2html</a></strong> © 2003</address> |
---|
| 356 | </body> |
---|
| 357 | </html> |
---|