factor = 1.e-3;
factor_2 = 2.e-2;
lc = .40*factor_2;
lc2 =.80*factor_2;
r1  = 14.0*factor;   // rayon tube interieur
lext = 52.50*factor;  // longueur porte tube

r2 = 120.0*factor;     // rayon flasque

z1 = 14.5*factor;
// le cercle interieur

Point(1) = {0.0,0.0,z1,lc2};
Point(2) = {r1,0.0,z1,lc2};
Point(3) = {0,r1,z1,lc2};
Circle(1) = {2,1,3};
Point(4) = {-r1,0,z1,lc2};
Point(5) = {0,-r1,z1,lc2};
Circle(2) = {3,1,4};
Circle(3) = {4,1,5};
Circle(4) = {5,1,2};
Line Loop(24) = {1,2,3,4};


// le cercle exterieur

xg = 119.58*factor;
yg = 10.0*factor;
zg = 12.5*factor;
xr = 120.0*factor;


Point(10) = {0.0,0.0,z1,lc};
Point(20) = {r2,0.0,z1,lc};
Point(30) = {0,r2,z1,lc};
Circle(10) = {20,10,30};
Point(40) = {-r2,0,z1,lc};
Point(50) = {0,-r2,z1,lc};
Circle(20) = {30,10,40};
Circle(30) = {40,10,50};
Circle(40) = {50,10,20};


Line Loop(26) = {10,20,30,40};

Plane Surface(28) = {24,26};

//extrusion du petit cercle

Plane Surface(25) = {24};
Extrude {0,0,lext} {
  Surface{25};
}



Point(70) = {r1,0.0,-z1,lc2};
Point(71) = {0.0,0.0,-z1,lc2};
Point(73) = {0,r1,-z1,lc2};
Circle(71) = {70,71,73};
Point(74) = {-r1,0,-z1,lc2};
Point(75) = {0,-r1,-z1,lc2};
Circle(72) = {73,71,74};
Circle(73) = {74,71,75};


Circle(74) = {75,71,70};

Line Loop(94) = {71,72,73,74};


// le cercle exterieur


Point(80) = {0.0,0.0,-z1,lc};
Point(81) = {r2,0.0,-z1,lc2};

Point(100) = {0,r2,-z1,lc};
Circle(80) = {81,80,100};
Point(110) = {-r2,0,-z1,lc};
Point(120) = {0,-r2,-z1,lc};
Circle(90) = {100,80,110};
Circle(100) = {110,80,120};
Circle(110) = {120,80,81};


Line Loop(96) = {80,90,100,110};

Plane Surface(98) = {94,96};

//extrusion du petit cercle

Plane Surface(95) = {94};
Extrude {0,0,-lext} {
  Surface{95};
}
Line(133) = {30,100};
Line(134) = {50,120};
Line(135) = {40,110};
Line(136) = {20,81};


Line Loop(137) = {133,-80,-136,10};
Ruled Surface(138) = {137};
Line Loop(139) = {40,136,-110,-134};
Ruled Surface(140) = {139};
Line Loop(141) = {134,-100,-135,30};
Ruled Surface(142) = {141};
Line Loop(143) = {90,-135,-20,133};
Ruled Surface(144) = {143};
Surface Loop(200) = {140,138,144,142,28,53,57,61,49,62,98,119,123,131,127,132};
Perf_conduc = 222;
Physical Surface(Perf_conduc) = {140,138,144,142,28,53,57,61,49,62,98,119,123,131,127,132};
Volume(250) = {200};
Physical Volume(300) = {250};
