Index: /issm/trunk/src/m/utils/Exp/expbox.m
===================================================================
--- /issm/trunk/src/m/utils/Exp/expbox.m	(revision 3291)
+++ /issm/trunk/src/m/utils/Exp/expbox.m	(revision 3292)
@@ -21,10 +21,24 @@
 [x,y]=ginput(2);
 
+xmiddle=mean(x);
+ymiddle=mean(y);
+
+x1=x(1); y1=y(1);
+x3=x(2); y3=y(2);
+
+Diag=[x1-xmiddle;y1-ymiddle];
+
+Vector=[xmiddle;ymiddle]+[-Diag(2);Diag(1)];
+x2=Vector(1); y2=Vector(2);
+
+Vector=[xmiddle;ymiddle]-[-Diag(2);Diag(1)];
+x4=Vector(1); y4=Vector(2);
+
 %Build Exp structure
 A=struct();
 A.nods=5;
 A.density=1;
-A.x=[x(1) x(2) x(2) x(1) x(1)]';
-A.y=[y(1) y(1) y(2) y(2) y(1)]';
+A.x=[x1 x2 x3 x4 x1]';
+A.y=[y1 y2 y3 y4 y1]';
 
 %Write structure