
xmin=-0.05;
xmax=1.50;
r1=0.0525;
r2=0.0735;
r3=0.10;
r4=3.00;
r5 = 0.2;

xschermo = 0.25;
rschermo = 0.25;

Point(1) = {0.0,0.0,0.0,0.0045};

Point(2) = {0.0,r1,0.0,0.01};
Point(3) = {0.0,r2,0.0,0.01};
Point(4) = {0.0,r3,0.0,0.01};

Point(5) = {0.0,0.0,r1,0.01};
Point(6) = {0.0,0.0,r2,0.01};
Point(7) = {0.0,0.0,r3,0.01};

Point(8)  = {0.0,-r1,0.0,0.01};
Point(9)  = {0.0,-r2,0.0,0.01};
Point(10) = {0.0,-r3,0.0,0.01};

Point(11) = {0.0,0.0,-r1,0.01};
Point(12) = {0.0,0.0,-r2,0.01};
Point(13) = {0.0,0.0,-r3,0.01};

Point(14) = {xmin,0.00,0.00,0.1};

Point(15) = {xmin,r3,0.00,0.1};
Point(16) = {xmin,0.00,r3,0.1};
Point(17) = {xmin,-r3,0.00,0.1};
Point(18) = {xmin,0.00,-r3,0.1};

Point(19) = {xmin,r4,0.00,0.2};
Point(20) = {xmin,0.00,r4,0.2};
Point(21) = {xmin,-r4,0.00,0.2};
Point(22) = {xmin,0.00,-r4,0.2};

Point(23) = {xmax,0.00,0.00,0.06};

Point(24) = {xmax,r4,0.00,0.2};
Point(25) = {xmax,0.00,r4,0.2};
Point(26) = {xmax,-r4,0.00,0.2};
Point(27) = {xmax,0.00,-r4,0.2};

Point(28) = {xmax,r3,0.00,0.08};
Point(29) = {xmax,0.00,r3,0.08};
Point(30) = {xmax,-r3,0.00,0.08};
Point(31) = {xmax,0.00,-r3,0.08};

Point(32) = {1.0,r5,0,0.12};
Point(33) = {1.0,0.0,r5,0.12};
Point(34) = {1.0,-r5,0,0.12};
Point(35) = {1.0,0.0,-r5,0.12};
Point(36) = {1.0,0.0,0.0,0.12};


Point(40) = {xschermo,0,0,0.12};
Point(41) = {xschermo,0,rschermo,0.12};
Point(42) = {xschermo,rschermo,0,0.12};
Point(43) = {xschermo,0,-rschermo,0.12};
Point(44) = {xschermo,-rschermo,0,0.12};

Circle(1) = {4,1,13};
Circle(2) = {13,1,10};
Circle(3) = {10,1,7};
Circle(4) = {7,1,4};

Circle(5) = {3,1,12};
Circle(6) = {12,1,9};
Circle(7) = {9,1,6};
Circle(8) = {6,1,3};

Circle(9) = {2,1,11};
Circle(10) = {11,1,8};
Circle(11) = {8,1,5};
Circle(12) = {5,1,2};

Circle(13) = {15,14,18};
Circle(14) = {18,14,17};
Circle(15) = {17,14,16};
Circle(16) = {16,14,15};
Circle(17) = {19,14,22};
Circle(18) = {22,14,21};
Circle(19) = {21,14,20};
Circle(20) = {20,14,19};

Line(21) = {15,4};
Line(22) = {16,7};
Line(23) = {17,10};
Line(24) = {18,13};

Circle(25) = {24,23,27};
Circle(26) = {27,23,26};
Circle(27) = {26,23,25};
Circle(28) = {25,23,24};

Line(29) = {24,19};
Line(30) = {20,25};
Line(31) = {21,26};
Line(32) = {22,27};


Line Loop(35) = {20,17,18,19};
Line Loop(36) = {16,13,14,15};
Plane Surface(37) = {35,36};
Line Loop(38) = {29,-20,30,28};
Ruled Surface(39) = {38};
Line Loop(40) = {30,-27,-31,19};
Ruled Surface(41) = {40};
Line Loop(42) = {26,-31,-18,32};
Ruled Surface(43) = {42};
Line Loop(44) = {25,-32,-17,-29};
Ruled Surface(45) = {44};
Line Loop(46) = {4,-21,-16,22};
Ruled Surface(47) = {46};
Line Loop(48) = {1,-24,-13,21};
Ruled Surface(49) = {48};
Line Loop(50) = {2,-23,-14,24};
Ruled Surface(51) = {50};
Line Loop(52) = {3,-22,-15,23};
Ruled Surface(53) = {52};

Line Loop(54) = {9,10,11,12};


Circle(56) = {3,1,12};
Circle(57) = {12,1,9};
Circle(58) = {9,1,6};
Circle(59) = {6,1,3};

Line Loop(60) = {56,57,58,59};
Plane Surface(61) = {60,54};

Line Loop(62) = {1,2,3,4};
Plane Surface(63) = {62,60};

Transfinite Line {30, 31, 32, 29} = 13 Using Progression 1;

Circle(68) = {28, 23, 31};
Circle(69) = {31, 23, 30};
Circle(70) = {30, 23, 29};
Circle(71) = {29, 23, 28};
Line Loop(72) = {12, 64, -71, -65};

Line Loop(80) = {71, 68, 69, 70};
Plane Surface(81) = {80};
Line Loop(82) = {25, 26, 27, 28};
Plane Surface(83) = {80, 82};



Transfinite Line {30, 29, 31, 32} = 31 Using Progression 1;
Transfinite Line {27, 28, 25, 26} = 17 Using Progression 1;
Transfinite Line {19, 18, 17, 20} = 13 Using Progression 1;
Transfinite Line {70, 71, 68, 69} = 5 Using Progression 1;
Transfinite Line {12, 11, 10, 9} = 7 Using Progression 1;
Show "*";
Hide {
Point{20,21,25,26};
Line{19,27,30,31};
Surface{41};
}

Transfinite Line {7, 8, 5, 6} = 7 Using Progression 1;
Transfinite Line {3, 4, 2, 1} = 12 Using Progression 1;
Show "*";
Hide {
Point{19,20,21,22,24,25,26,27,28,29,30,31};
Line{17,18,19,20,25,26,27,28,29,30,31,32,68,69,70,71};
Surface{39,41,43,45,81,83};
}

Transfinite Line {16, 13, 15, 14} = 4 Using Progression 1;

Line(93) = {5, 33};
Line(94) = {2, 32};
Line(95) = {11, 35};
Line(101) = {8, 34};



//Surface {98} In Volume {88};
//Surface {100} In Volume {88};
//Surface {103} In Volume {88};
//Surface {105} In Volume {88};


Line(102) = {35, 36};
Line(103) = {36, 33};
Line(104) = {34, 36};
Line(105) = {32, 36};

Line(106) = {36, 1};
Line(107) = {11, 1};
Line(108) = {5, 1};
Line(109) = {2, 1};
Line(110) = {8, 1};

Line Loop(111) = {107, -110, -10};
Plane Surface(112) = {111};
Line Loop(113) = {110, -108, -11};
Plane Surface(114) = {113};
Line Loop(115) = {108, -109, -12};
Plane Surface(116) = {115};
Line Loop(117) = {109, -107, -9};
Plane Surface(118) = {117};
Line Loop(119) = {95, 102, 106, -107};
Plane Surface(120) = {119};
Line Loop(121) = {106, -108, 93, -103};
Plane Surface(122) = {121};
Line Loop(123) = {94, 105, 106, -109};
Plane Surface(124) = {123};
Line Loop(125) = {-101, 110, -106, -104};
Plane Surface(126) = {125};
Transfinite Line {95, 94, -106, 101, 93} = 41 Using Progression 1.05;
Transfinite Line {102, 105, 104, 103} = 11 Using Progression 1.00;
Transfinite Line {107, 110, 108, 109} = 7 Using Progression 1.00;
Transfinite Line {102, 103, 105, 104} = 7 Using Progression 1.00;
Transfinite Surface {124} = {32, 36, 2, 1};
Transfinite Surface {126} = {34, 36, 8, 1};
Transfinite Surface {122} = {33, 36, 5, 1};
Transfinite Surface {120} = {35, 36, 11, 1};



Circle(133) = {42, 40, 43};
Circle(134) = {43, 40, 44};
Circle(135) = {44, 40, 41};
Circle(136) = {41, 40, 42};
Line Loop(137) = {133, 134, 135, 136};
Plane Surface(138) = {137};




Surface Loop(127) = {39, 45, 83, 81, 41, 43, 37, 53, 63, 49, 51, 47, 61, 116, 114, 112, 118};
Volume(128) = {127};

Surface {124} In Volume {128};
Surface {126} In Volume {128};
Surface {122} In Volume {128};
Surface {120} In Volume {128};


Surface {138} In Volume {128};


Show "*";

Coherence;

Show "*";
Hide {
Point{1,2,5,8,11,32,33,34,35,36};
Line{93,94,95,101,102,103,104,105,106,107,108,109,110};
Surface{120,122,124,126};
}

Coherence;

Physical Surface(129) = {37, 41, 43, 45, 39};
Physical Surface(130) = {81, 83};
Physical Surface(131) = {53, 51, 49, 47, 63, 112, 114, 116, 118};
Physical Surface(132) = {61};
Transfinite Surface {39} = {19, 24, 25, 20};
Transfinite Line {20, 19, 17, 18} = 17 Using Progression 1;
Transfinite Line {29, 32, 31, 30} = 17 Using Progression 1;
Transfinite Line {28, 20, 25, 17, 27, 19, 26, 18} = 15 Using Progression 1;
Transfinite Surface {45} = {19, 24, 27, 22};
Transfinite Surface {43} = {27, 22, 21, 26};
Transfinite Surface {41} = {20, 25, 26, 21};
Transfinite Line {27, 19, 28, 20, 17, 25, 26, 18} = 19 Using Progression 1;
Transfinite Line {31, 30, 29, 32} = 21 Using Progression 1;
Transfinite Line {31, 30, 29, 32} = 25 Using Progression 1;
Transfinite Line {19, 27, 28, 20, 17, 25, 26, 18} = 23 Using Progression 1;


