Changeset 851 for trunk/src/geometry_calib.m

Timestamp:

Jan 19, 2015, 9:29:28 PM (10 years ago)

Author:

sommeria

Message:

various

File:

• trunk/src/geometry_calib.m (modified) (2 diffs)

trunk/src/geometry_calib.m

@@ -1273 +1273 @@
 iline=str2num(get(handles.CoordLine,'String'));
 xx=double(get(handles.geometry_calib,'CurrentCharacter'));%get the keyboard character
-if ismember(xx,[28 29 30 31])% directional arrow 
+if ismember(xx,[28 29 30 31])% directional arrow
     Coord=get(handles.ListCoord,'Data');
     switch xx
@@ -1287 +1287 @@
 else
     set(handles.APPLY,'BackgroundColor',[1 0 1])% paint APPLY in magenta to indicate that the table content has be modified
-end
-
+    if ismember(xx,[127 31])% delete, or downward
+        Coord=get(handles.ListCoord,'Data');
+        iline=str2double(get(handles.CoordLine,'String'));
+        if isequal(xx, 31)
+            if isequal(iline,size(Coord,1))% arrow downward
+                Coord=[Coord;zeros(1,size(Coord,2))];
+            end
+        else
+            Coord(iline,:)=[];% suppress the current line
+        end
+        set(handles.ListCoord,'Data',Coord);
+    end
+end
 
 %------------------------------------------------------------------------