Index: /issm/trunk/src/m/enum/SteadyAnalysisEnum.m
===================================================================
--- /issm/trunk/src/m/enum/SteadyAnalysisEnum.m	(revision 2317)
+++ /issm/trunk/src/m/enum/SteadyAnalysisEnum.m	(revision 2317)
@@ -0,0 +1,9 @@
+function macro=TransientAnalysisEnum()
+%TRANSIENTANALYSISENUM - Enum of TransientAnalysis
+%
+%   file generated by src/c/EnumDefinitions/SynchronizeMatlabEnum
+%
+%   Usage:
+%      macro=TransientAnalysisEnum()
+
+macro=231;
Index: /issm/trunk/src/m/utils/Exp/expcontract.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/expcontract.m	(revision 2317)
+++ /issm/trunk/src/m/utils/Exp/expcontract.m	(revision 2317)
@@ -0,0 +1,34 @@
+function normal_grid=expcontract(newfile,oldfile,distance)
+%EXPCONTRACT - contract or expand a profile, according to the normal.
+% 
+%   Usage:
+%      expcontract(newfile,oldfile,distance)
+%
+%   See also EXPMASTER, EXPDOC
+
+
+contour=expread(oldfile,1);
+num=numel(contour.x);
+
+normal=zeros(num-1,2);
+normal_grid=zeros(num-1,2);
+
+for i=1:num-1,
+	normal(i,:)=[ contour.y(i)-contour.y(i+1) contour.x(i+1)-contour.x(i)];
+	normal(i,:)=normal(i,:)/sqrt(normal(i,1)^2+normal(i,2)^2);
+end
+
+normal_grid(2:end,:)=[normal(1:end-1,:)+normal(2:end,:)];
+normal_grid(1,:)=normal(1,:)+normal(end,:);
+
+normal_grid_norm=sqrt(normal_grid(:,1).^2+normal_grid(:,2).^2);
+normal_grid(:,1)=normal_grid(:,1)./normal_grid_norm;
+normal_grid(:,2)=normal_grid(:,2)./normal_grid_norm;
+
+contour.x(1:end-1)=contour.x(1:end-1)+distance*normal_grid(:,1);
+contour.y(1:end-1)=contour.y(1:end-1)+distance*normal_grid(:,2);
+
+contour.x(end)=contour.x(1);
+contour.y(end)=contour.y(1);
+
+expwrite(contour,newfile);