// Gmsh project created on Sun May 14 19:45:42 2006
//
//-----------------------PARAMETRES-----------------------------
//
h=0.12;
a=0.055;
b=0.0175;
c=0.2;
msh=0.04;
//
Point(1) = {0,0,0,msh};
Point(2) = {b,0,0,msh};
Point(3) = {a,0,0,msh};
Point(4) = {c,0,0,msh};

Point(5) = {0,0,h,msh};
Point(6) = {b,0,h,msh};
Point(7) = {a,0,h,msh};
Point(8) = {0,0,c,msh};

Line(1) = {1,2};
Line(2) = {2,3};
Line(3) = {3,4};
Line(4) = {1,5};
Line(5) = {5,8};
Line(6) = {2,6};
Line(7) = {3,7};
Line(8) = {5,6};
Line(9) = {6,7};
Circle(10) = {4,1,8};

tmp[] = {1,1,2,2,3,3};
Line Loop(11) = {1,6,-8,-4};      Plane Surface(tmp[0]) = {11};
Line Loop(13) = {6,9,-7,-2};      Plane Surface(tmp[2]) = {13};
Line Loop(15) = {3,10,-5,8,9,-7}; Plane Surface(tmp[4]) = {15};

For i In {1:4}
tmp[] = Extrude {{0,0,1}, {0,0,0}, Pi/2} {
  Surface{tmp[0], tmp[2], tmp[4]}; Layers{6,1};
};
EndFor

