Changeset 1080 for trunk/src/mouse_motion.m

Timestamp:

Apr 17, 2020, 5:58:49 PM (4 years ago)

Author:

sommeria

Message:

ima2temperature.m added and various bug repairs

File:

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

trunk/src/mouse_motion.m

@@ -220 +220 @@
                 pos=[xy(1,1) xy(1,2) 0];%coordinates on the graph
                 if isfield(Field,'ProjObjectAngle')&&~isequal(Field.ProjObjectAngle,[0 0 0])
-                    norm_plane=angle2normal(Field.ProjObjectAngle);
+                    norm_plane=rotate_vector(Field.ProjObjectAngle,0,0,1);%angle2normal(Field.ProjObjectAngle);
                     pos(3)=-(norm_plane(1)*(pos(1)-Field.ProjObjectCoord(1))+norm_plane(2)*(pos(2)-Field.ProjObjectCoord(2)))/norm_plane(3);                               
                 end
@@ -390 +390 @@
     end
     XYData=AxeData.CurrentOrigin;
+ 
     if isequal(AxeData.Drawing,'create') && isfield(AxeData,'CurrentOrigin') && ~isempty(AxeData.CurrentOrigin)
         switch ObjectData.Type
             case {'line','polyline','polygon','points'}
                 ObjectData.Coord=[ObjectData.Coord ;xy(1,1:2)];
-                % ObjectData.Coord(end,:)=xy(1,:);
+                plot_object(ObjectData,ProjObject,AxeData.CurrentObject,'m');
             case {'rectangle','ellipse','volume'}
                 ObjectData.Coord=(AxeData.CurrentOrigin+xy(1,1:2))/2;% keep only the first point coordinate
                 ObjectData.RangeX=abs(ObjectData.Coord(1,1)-xy(1,1));%rectangle width
                 ObjectData.RangeY=abs(ObjectData.Coord(1,2)-xy(1,2));%rectangle height
+                plot_object(ObjectData,ProjObject,AxeData.CurrentObject,'m');
             case 'plane' %case of 'plane'
                 DX=(xy(1,1)-ObjectData.Coord(1,1));
@@ -409 +411 @@
                     end
                 end
-        end
-        plot_object(ObjectData,ProjObject,AxeData.CurrentObject,'m');
+                hline=findobj(hPlotAxes,'Tag','mouse_line');
+                if isempty(hline)
+                    hline=line([AxeData.CurrentOrigin(1) xy(1,1)],[AxeData.CurrentOrigin(2) xy(1,2)],'Tag','mouse_line');
+                else
+                    set(hline,'XData',[AxeData.CurrentOrigin(1) xy(1,1)])
+                    set(hline,'YData',[AxeData.CurrentOrigin(2) xy(1,2)])
+                end
+        end
+
         pointershape='crosshair';
     elseif test_edit_object && isequal(AxeData.Drawing,'translate')