
--VARIABLES
deg2rad = Pi / 180;
r_int = 0.04;
r_ext = 0.06;

--NODES
kp0    = [0.0, 0.0];
kp1    = [0.04, 0.0];
kp2    = [0.06, 0.0];
kp3    = [0.0, 0.06];
kp4    = [0.0, 0.04];
kp5    = [-0.04, 0.0];
kp6    = [-0.06, 0.0];
kp7    = [0.0, -0.04];
kp8    = [0.0, -0.06];


--LINES
ln1 = HyperLine(kp1, kp4, "Arc", kp0);
ln2 = HyperLine(kp1, kp2, "Line");
ln3 = HyperLine(kp2, kp3, "Arc", kp0);
ln4 = HyperLine(kp4, kp3, "Line");
ln5 = HyperLine(kp4, kp5, "Arc", kp0);
ln6 = HyperLine(kp5, kp6, "Line");
ln7 = HyperLine(kp3, kp6, "Arc", kp0);
ln8 = HyperLine(kp5, kp7, "Arc", kp0);
ln9 = HyperLine(kp7, kp8, "Line", kp0);
ln10 = HyperLine(kp6, kp8, "Arc", kp0);
ln11 = HyperLine(kp1, kp7, "Arc", kp0);
ln12 = HyperLine(kp2, kp8, "Arc", kp0);


--AREAS
ar1 = HyperArea(ln1,ln2,ln3,ln4, BHmqxa100);
ar2 = HyperArea(ln4,ln5,ln6,ln7, BHmqxa100);
ar3 = HyperArea(ln6,ln8,ln9,ln10, BHmqxa100);
ar4 = HyperArea(ln2,ln9,ln11,ln12, BHmqxa100);




