Changeset 61 for trunk/src/mouse_motion.m

Timestamp:

Mar 24, 2010, 12:51:51 AM (15 years ago)

Author:

sommeria

Message:

gestion of projection objects improved. Implementation of view_field.fig
introduction of a circle to mark vectors with the mouse
various cleaning and debugging

File:

• trunk/src/mouse_motion.m (modified) (4 diffs)

trunk/src/mouse_motion.m

@@ -39 +39 @@
 test_create=0;%default
 test_edit=0;%default
-if isfield(handles,'VOLUME') % mouse_motion not applied to the uvmat figure, no object creation
-    test_create=get(handles.create,'Value');   
-end
+% if isfield(handles,'VOLUME') % mouse_motion not applied to the uvmat figure, no object creation
+%     test_create=get(handles.create,'Value');   
+% end
 test_edit=isfield(handles,'edit') & get(handles.edit,'Value');% edit test for mouse shap: an arrow
 test_zoom=isfield(handles,'zoom')& get(handles.zoom,'Value');% edit test for mouse shap: an arrow 
@@ -92 +92 @@
                         if ~test_create
                             pointershape='arrow'; %mouse indicates  the detection of a vector
+                            hhh=findobj(haxes,'Tag','vector_marker');
+                            if isempty(hhh)
+                                line(AxeData.X(ivec),AxeData.Y(ivec),'Color','m','Tag','vector_marker','LineStyle','.','Marker','o','MarkerSize',AxeData.Mesh);
+                            else
+                                set(hhh,'XData',AxeData.X(ivec))
+                                set(hhh,'YData',AxeData.Y(ivec))
+                            end
                         end
                         ivec=ivec(1);%choice the first selected vector if several are selected
@@ -194 +201 @@
 %%%%%%%%%%%%%%%%%
 %create or modify an object
-if isfield(AxeData,'CurrentObject') & ishandle(AxeData.CurrentObject) & isfield(AxeData,'Drawing') & ~isequal(AxeData.Drawing,'off')
+huvmat=findobj(allchild(0),'Name','uvmat');%find the uvmat interface handle
+if ~isempty(huvmat)
+    UvData=get(huvmat,'UserData');
+end
+if ~isempty(huvmat) & isfield(AxeData,'CurrentObject') & ishandle(AxeData.CurrentObject) & isfield(AxeData,'Drawing') & ~isequal(AxeData.Drawing,'off')
     PlotData=get(AxeData.CurrentObject,'UserData');
     huvmat=findobj(allchild(0),'Name','uvmat');%find the uvmat interface handle
@@ -268 +279 @@
 
 %draw ruler
-UvData=get(handles.uvmat,'UserData');
-if isfield(UvData,'MouseAction') && isequal(UvData.MouseAction,'ruler')
-       if isfield(UvData,'RulerHandle')
-            RulerCoord=[UvData.RulerCoord ;xy(1,1:2)];
-            set(UvData.RulerHandle,'XData',RulerCoord(:,1));
-            set(UvData.RulerHandle,'YData',RulerCoord(:,2));
-       end
+if ~isempty(huvmat)
+    UvData=get(huvmat,'UserData');
+    if isfield(UvData,'MouseAction') && isequal(UvData.MouseAction,'ruler')
+           if isfield(UvData,'RulerHandle')
+                RulerCoord=[UvData.RulerCoord ;xy(1,1:2)];
+                set(UvData.RulerHandle,'XData',RulerCoord(:,1));
+                set(UvData.RulerHandle,'YData',RulerCoord(:,2));
+           end
+    end
 end
 set(currentfig,'Pointer',pointershape);