Changeset 18213

Timestamp:

07/01/14 18:00:34 (11 years ago)

Author:

schlegel

Message:

CHG: add geometry settings

File:

• issm/trunk-jpl/src/m/exp/exp2shp.m (modified) (2 diffs)

issm/trunk-jpl/src/m/exp/exp2shp.m ¶

@@ -1 @@
-function exp2shp(shapefilename,expfilename)
+function exp2shp(shapefilename,expfilename,geometry)
 %SHPWRITE - write a shape file from a contour structure
 %
 %   Usage:
-%      exp2shp(shapefilename,expfilename)
+%      exp2shp(shapefilename,expfilename,geometry)
 %
 %   Example:
 %      exp2shp('domainoutline.shp','domainoutline.exp')
+%      exp2shp('domainoutline.shp','domainoutline.exp','Polygon')
+%      exp2shp('massfluxgate.shp','massfluxgate.exp','Line')
 %
 %   See also SHPREAD, SHPWRITE, SHP2EXP
@@ -17 +19 @@
 contours=struct([]);
 for i=1:length(shp),
-        contours(i).Geometry='Polygon';
+        if nargin < 3
+                if length(shp(1).x) == 1
+                        geometry = 'Point';
+                elseif length(shp(1).x) < 3
+                        geometry = 'Line';
+                else
+                        geometry = 'Polygon';
+                end
+        end
+        contours(i).Geometry=geometry;
         contours(i).id=i;
         contours(i).X=shp(i).x;