Changeset 21370

Timestamp:

11/12/16 19:33:52 (8 years ago)

Author:

Eric.Larour

Message:

CHG: added ability to invert profile.

File:

• issm/branches/trunk-larour-NatGeoScience2016/src/m/exp/expread.m (modified) (3 diffs)

issm/branches/trunk-larour-NatGeoScience2016/src/m/exp/expread.m

@@ -1 @@
-function Struct=expread(filename)
+function Struct=expread(filename,varargin)
 %EXPREAD - read a file exp and build a Structure
 %
@@ -17 +17 @@
 %
 %   See also EXPDOC, EXPWRITEASVERTICES
+
+%recover options
+options=pairoptions(varargin{:});
 
 %some checks
@@ -80 +83 @@
 %close file
 fclose(fid);
+        
+invert=getfieldvalue(options,'invert',0);
+if invert,
+        for i=1:length(Struct),
+                Struct(i).x=flipud(Struct(i).x);
+                Struct(i).y=flipud(Struct(i).y);
+        end
+end