Geometry.ExactExtrusion=0;

Rd=2.54;
Hd=5.08;
Dd=2*Rd;
h=0.5;

Point(1) = {0,  0,  0, h};
Point(2) = {Rd,  0, 0, h};
Point(3) = {0,   Rd, 0, h};
Point(4) = {-Rd, 0,  0, h};
Point(5) = {0,  -Rd, 0, h};

Circle(1) = {2,1,3};
Circle(2) = {3,1,4};
Circle(3) = {4,1,5};
Circle(4) = {5,1,2};

// Circle :
Line Loop(1) = {1,2,3,4};
Plane Surface (1) = {1};
out[]=Extrude {0, 0, Hd}{ Line{1:4}; Layers{4}; };
TopCap[]=Translate {0, 0, Hd} { Duplicata{ Surface{1}; } };
Surface Loop (1) = { 1,out[1],out[5],out[9],out[13],TopCap[0]};
Volume (1) = {1};
Rotate { { 1,0,0 }, { 0,0,0 }, 2*Pi/3 } { Volume{1}; }

Physical Surface("Sd",1) = {1,out[1],out[5],out[9],out[13],TopCap[0]};
Physical Volume("Vd",1) = {1};


