Index: ../trunk-jpl/src/m/mesh/MeshToShp.m
===================================================================
--- ../trunk-jpl/src/m/mesh/MeshToShp.m	(revision 0)
+++ ../trunk-jpl/src/m/mesh/MeshToShp.m	(revision 18910)
@@ -0,0 +1,14 @@
+function MeshToShp(md,shapefilename)
+%MESHTOSHP - export mesh to shp file
+%
+%   Usage:
+%      MeshToShp(md,'Greenland.shp');
+
+	contours= struct([]);
+	for i=1:md.mesh.numberofvertices,
+		contours(i).x = md.mesh.x(i);
+		contours(i).y = md.mesh.y(i);
+		contours(i).id = i;
+		contours(i).Geometry = 'Point';
+	end
+	shpwrite(contours,shapefilename);

Property changes on: ../trunk-jpl/src/m/mesh/MeshToShp.m
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
