//Cercle+Rectangle , Cylindre + Cube
//29 Novembre 2017
// Bassem Khaddour          &&    Loic Chevalier 
//bassem.khaddour@emse.fr   &&    loic.chevalier@emse.fr


lc=0.5;
Translation_Z=1.2;
Rayon=3;
Xdistance=6;
Ydistance=6;
NombreDeCouch=4;
Point(1) = {0,0,0,lc};

Point(2) = {Xdistance,-Ydistance,0,lc};
Point(3) = {Xdistance,Ydistance,0,lc};
Point(4) = {-Xdistance,Ydistance,0,lc};
Point(5) = {-Xdistance,-Ydistance,0,lc};

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



Point(60) = {Rayon,0,0,lc};
Point(70) = {0,Rayon,0,lc};
Point(80) = {-Rayon,0,0,lc};
Point(90) = {0,-Rayon,0,lc};

Circle(500) = {60,1,70};
Circle(600) = {70,1,80};
Circle(700) = {80,1,90};
Circle(800) = {90,1,60};

Line Loop(6) = {500,600,700,800,1,2,3,4};
Plane Surface(7) = {6};



Extrude {0,0,Translation_Z} {
  Surface{7};
Layers{NombreDeCouch};
Recombine;
}

Line Loop(5) = {500,600,700,800};
Plane Surface(6) = {5};


Extrude {0,0,Translation_Z} {
Surface{6};
Layers{NombreDeCouch};
Recombine;
}