Changeset 65 for trunk/src/mouse_motion.m

Timestamp:

Mar 24, 2010, 8:47:23 PM (15 years ago)

Author:

sommeria

Message:

name_generator: remove unneeded indices at output
civ.m: & introduced at the end of system command lines (beginning by !) to allow matlab operations during civ in run mode
uvmat.m: debugging in dealing with projections
prove image pair movies superposed to velocity vectors
mouse: put circles along detected vectors

File:

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

trunk/src/mouse_motion.m

@@ -89 +89 @@
                           (AxeData.Y<(xy(1,2)+AxeData.Mesh/3) & AxeData.Y>(xy(1,2)-AxeData.Mesh/3));%f
                     ivec=find(flag_vec);% search the selected vector index ivec
+                    hhh=findobj(haxes,'Tag','vector_marker');
                     if length(ivec)>0 
+                        %ivec=ivec(1);%choice the first selected vector if several are selected
                         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);
+                                set(currentfig,'CurrentAxes',haxes)
+                                rectangle('Curvature',[1 1],...
+                  'Position',[AxeData.X(ivec)-AxeData.Mesh AxeData.Y(ivec)/2-AxeData.Mesh/2 AxeData.Mesh AxeData.Mesh],'EdgeColor','m',...
+                  'LineStyle','-','Tag','vector_marker');
+%                                 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))
+                                set(hhh,'Position',[AxeData.X(ivec)-AxeData.Mesh/2 AxeData.Y(ivec)-AxeData.Mesh/2 AxeData.Mesh AxeData.Mesh])
                             end
-                        end
-                        ivec=ivec(1);%choice the first selected vector if several are selected
+                        end                 
                         mouse.X=AxeData.X(ivec);
                         mouse.Y=AxeData.Y(ivec);
@@ -106 +110 @@
                         v_mouse=AxeData.V(ivec);
                         w_mouse=0; %default
-                        if isfield(AxeData,'W')&length(AxeData.W)>=ivec
+                        if isfield(AxeData,'W') & length(AxeData.W)>=ivec
                             w_text=[',  w=' num2str(AxeData.W(ivec),3)];
                         else
@@ -124 +128 @@
                         else
                             ff_text='';
+                        end
+                    else
+                        if ~isempty(hhh)
+                            delete(hhh)
                         end
                     end