Index: /issm/trunk-jpl/src/m/exp/exptool.m
===================================================================
--- /issm/trunk-jpl/src/m/exp/exptool.m	(revision 13025)
+++ /issm/trunk-jpl/src/m/exp/exptool.m	(revision 13026)
@@ -162,23 +162,27 @@
 	%display menu
 	title('Main Menu','FontSize',14);
-	button=menu('Menu','add a profile (open)',...%1
-		'add a contour (closed)',...              %2
-		'remove a profile',...                    %3
-		'modify the position of a point',...      %4
-		'add points inside a profile',...         %5
-		'add points at the end of a profile',...  %6
-		'remove points',...                       %7
-		'remove several points',...               %8
-		'cut a segment',...                       %9
-		'cut a large area',...                    %10
-		'merge profiles',...                      %11
-		'close profile',...                       %12
-		'undo',...                                %13
-		'redo',...                                %14
-		'quit');                                  %15
-
+   UIControl_FontSize_bak = get(0, 'DefaultUIControlFontSize');
+   set(0, 'DefaultUIControlFontSize',10);
+   button=menu('exptool menu',...
+      'add a profile (open)',...                %1
+      'add a contour (closed)',...              %2
+      'remove a profile',...                    %3
+      'modify the position of a point',...      %4
+      'add points inside a profile',...         %5
+      'add points at the end of a profile',...  %6
+      'remove points',...                       %7
+      'remove several points',...               %8
+      'cut a segment',...                       %9
+      'cut a large area',...                    %10
+      'merge profiles',...                      %11
+      'close profile',...                       %12
+		'change orientation',...                  %13
+      'undo',...                                %14
+      'redo',...                                %15
+      'quit');                                  %16
+   set(0, 'DefaultUIControlFontSize', UIControl_FontSize_bak);
 
 	%UNDO??
-	if button==13;
+	if button==14;
 		if counter==1
 			disp('Already at oldest change');
@@ -190,8 +194,6 @@
 			closed=backup{counter,4};
 		end
-	end
-
 	%REDO??
-	if button==14
+	elseif button==15
 		if counter==size(backup,1)
 			disp('Already at newest change');
@@ -316,13 +318,20 @@
 			backup{counter,4}=closed;
 
+		case 13
+
+			[A,numprofiles,numpoints,closed]=orientprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
+			counter=counter+1;
+			backup{counter,1}=A;
+			backup{counter,2}=numprofiles;
+			backup{counter,3}=numpoints;
+			backup{counter,4}=closed;
+
 			%QUIT
-		case 15
+		case 16
 
 			loop=0;
 
 		otherwise
-
 			%do nothing
-
 	end
 
Index: /issm/trunk-jpl/src/m/exp/manipulation/orientprofile.m
===================================================================
--- /issm/trunk-jpl/src/m/exp/manipulation/orientprofile.m	(revision 13026)
+++ /issm/trunk-jpl/src/m/exp/manipulation/orientprofile.m	(revision 13026)
@@ -0,0 +1,54 @@
+function [A,numprofiles,numpoints,closed]=orientprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
+%ORIENTPROFILE - cahnge profile orientation
+%
+%   this script is used by exptool as an elementary operation
+%   on an ARGUS profile
+%
+%   Usage:
+%      [A,numprofiles,numpoints,closed]=orientprofile(A,numprofiles,numpoints,closed,prevplot,root,options)
+
+	title('click on the profiles to be reoriented, RETURN to exit','FontSize',14)
+	hold on
+
+	loop=1;
+	selection=[];
+
+	while loop
+
+		%some checks
+		if numprofiles==0
+			disp('no profile to be reoriented, exiting...')
+			return
+		end
+		   
+		[xi,yi] = ginput(1);
+					  
+		if ~isempty(xi)
+
+			%get closest profile
+			[profsel indsel]=closestpoint(A,numprofiles,xi,yi);
+
+			if ismember(profsel,selection)
+				%profile was in selection, remove it from list
+				selection(find(selection==profsel))=[];
+				%back to regular color
+				plot(A(profsel).x,A(profsel).y,...
+					'color',getfieldvalue(options,'color'),'LineStyle',getfieldvalue(options,'LineStyle'),'LineWidth',getfieldvalue(options,'LineWidth'));
+			else
+				%add the profile to the list to be removed
+				selection(end+1)=profsel;
+				%in selectioncolor
+				plot(A(profsel).x,A(profsel).y,...
+					'color',getfieldvalue(options,'selectioncolor'),'LineStyle',getfieldvalue(options,'LineStyle'),'LineWidth',getfieldvalue(options,'LineWidth'));
+			end
+		else
+			%reorient profiles
+			selection=sort(selection);
+			for i=1:length(selection),
+				A(selection(i)).x=flipud(A(selection(i)).x);
+				A(selection(i)).y=flipud(A(selection(i)).y);
+			end
+			loop=0;
+		end
+	end
+end