// The simplest construction of Gmsh's scripting language is the
// `affectation'. The following command defines a new variable `lc':
// lc va etre la longueur caractéristique dans tout le maillage

lc = 0.1;
a = 0.5; b = 1.76776695296637;
// a = 0.5; b = 1.25;
//a = 0.3125; b = 1.39754248593736;
// a = 1.0; b = 2.5;
c = 0.5;
d = 0.5;

Point(1) = {0.0, b, 0.0, lc};
Point(2) = {a, 0.0, 0.0, 0.8*lc} ;
Point(3) = {0.0, 0.0, 0.0, lc};
Point(4) = {a+c, 0, 0.0, 0.8*lc};
Point(5) = {a+c, b+d, 0.0, lc} ;
Point(6) = {0, b+d, 0.0, lc} ;

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

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

e0[] = Symmetry{0.0,1.0,0.0,0.0}{ Duplicata{ Line{5}; } };
e1[] = Symmetry{0.0,1.0,0.0,0.0}{ Duplicata{ Line{2}; Line{3}; } };

Physical Line(1) = {5,e0[0]};
Physical Line(3) = {2,3,e1[0],e1[1]};

Plane Surface(1) = {1} ;
s0[] = Symmetry{0.0,1.0,0.0,0.0}{ Duplicata{ Surface{1}; } };

Recombine Surface {1,s0[0]} = 100;

Physical Surface(1) = {1,s0[0]};



