lc = 5;
lcMasse = 1;
lcContact = 0.5;


Point(1) = {70.32,18.3,0.,lcMasse};
Point(2) = {67.77,7.32,0.,lcMasse};
Point(3) = {64.91,-5.25,0.,lc};
Point(4) = {63.32,-11.77,0.,lc};
Point(5) = {50.27,-16.07,0.,lcMasse};
Point(6) = {36.11,2.86,0.,lcMasse};
Point(7) = {66.34,1.03,0.,lc};

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


Point(8) = {60.06,2.47,0.,lcMasse};
Circle(5) = {2,7,8};
Circle(6) = {8,7,3};


Point(18) = {65.07,18.25,0.,lcMasse};
Point(10) = {59.5,17.66,0.,lcMasse};
Point(11) = {35.20,5.09,0.,lcContact};
Point(12) = {49,15.59,0.,lcMasse};
Point(13) = {37.86,11.61,0.,lcContact};
Point(14) = {35.20,9.50,0.,lcContact};
Point(15) = {34.84,7,0.,lcContact};

CatmullRom(7) = {6,11,15,14,13,12,10,18,1};


Point(17) = {43.19,-6.6,0.,lcMasse};

Line(8) = {5,17};
Line(9) = {17,6};


Line Loop(11) = {5,6,2,3,8,9,7,1};
Plane Surface(12) = {11};

Extrude Surface {12, {0,0,20}};

Extrude Surface {54, {0,0,100}};

Delete {
 Surface{54};
}


Characteristic Length {19, 51, 52, 53} = lcMasse*2;
Characteristic Length {54, 55, 56, 61, 65, 69, 73, 77, 81, 82, 83, 84, 85, 86, 87, 88} = lc*5;

Surface Loop(97) = {12,25,29,33,37,41,45,49,53,67,71,75,79,83,87,91,95,96};
Volume(218) = {97};

Bande = 100;
Physical Volume(Bande) = {218};

Mouve = 110;
Physical Surface(Mouve) = {49,45,41};

Fond = 120;
Physical Surface(Fond) = {37,79,33,75,29,71,25,67,53,95};

PlanSym = 130;
Physical Surface(PlanSym) = {12};


Rayon = 35;
Theta = 40*Pi/180;

Point(89) = {0,0,0,lc};
Point(90) = {Rayon,  0,  0,  lcContact} ;  
Point(91) = {Rayon*Cos(Theta),  Rayon*Sin(Theta),  0,  lcMasse} ;  

Circle(131) = {90,89,91};
Extrude Line {131, {1,0,0}, {0,0,0}, Pi/2};
Extrude Line {219, {1,0,0}, {0,0,0}, Pi/2};
Line(225) = {102,91};

Line Loop(226) = {-219,131,220};
Ruled Surface(227) = {226};
Line Loop(228) = {-223,-219,222};
Ruled Surface(229) = {228};

Line Loop(230) = {-131,222,225};
Line Loop(231) = {225,220,223};

Plane Surface(232) = {231};
Plane Surface(233) = {230};
Surface Loop(234) = {232,233,221,224};
Volume(235) = {234};


Bille = 210;
Physical Volume(Bille) = {235};

PeauBille = 200;
Physical Surface(PeauBille) = {221,224};