--file generated by Xhermes 10.0
HyperMesh;
--COMMENTS
--''

--VARIABLES
dv rcoll = 100;
dv yoke  = 90;
ro       = rcoll+yoke;
pi       = 3.14159265;
degr     = pi/180;

--NODES
kp1 = [0,rcoll];
kp2 = [rcoll @ 45.*degr];
kp3 = [rcoll,0];
kp4 = [ro,0];
kp5 = [ro @ 45.*degr];
kp6 = [0,ro];

--LINES
ln1 = HyperLine(kp6,kp1,"Line");
ln2 = HyperLine(kp1,kp3,"Arc",kp2);
ln3 = HyperLine(kp3,kp4,"Line");
ln4 = HyperLine(kp6,kp4,"Arc",kp5);

--AREAS
ar1 = HyperArea(ln1,ln2,ln3,ln4,BHiron2);

--HOLES

--MESH
Lmesh(ln2,25);

