Index: /issm/trunk/src/m/utils/Exp/exporientation.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/exporientation.m	(revision 5562)
+++ /issm/trunk/src/m/utils/Exp/exporientation.m	(revision 5562)
@@ -0,0 +1,12 @@
+function exporientation(filename)
+
+a=expread(filename);
+
+dx=diff(a.x);
+dx=[dx;dx(end)];
+
+dy=diff(a.y);
+dy=[dy;dy(end)];
+
+quiver(a.x,a.y,dx,dy);
+