Merge "180AD02step2D.step";

nponts = 8;
nlines = 8;
Line Loop(1) = {1:nlines};

lpontcel = 1;

//Characteristic Length {1:nponts} = lpontcel;

xmin = General.MinX;
xmax = General.MaxX;
ymin = General.MinY;
ymax = General.MaxY;
zmax = General.MaxZ;

lc = 25;
lx = (xmax - xmin)*6;
ly = (ymax - ymin)*6;


Point(10001) = { (xmax + xmin)/2 - lx, (ymax + ymin)/2 - ly, 0, lc};
Point(10002) = { (xmax + xmin)/2 + lx, (ymax + ymin)/2 - ly, 0, lc};
Point(10003) = { (xmax + xmin)/2 + lx, (ymax + ymin)/2 + ly, 0, lc};
Point(10004) = { (xmax + xmin)/2 - lx, (ymax + ymin)/2 + ly, 0, lc};

Line(10001) = {10004, 10003};
Line(10002) = {10003, 10002};
Line(10003) = {10002, 10001};
Line(10004) = {10001, 10004};

Mesh.CharacteristicLengthFromCurvature = 1;
Line Loop(2) = {10001, 10002, 10003, 10004};
Plane Surface(2) = {2, 1};
