
cl1=50;

zr0=-2000.0;
y10=377.96;
z10=-357.13;
y20=498.27;
z20=-148.76;

hz=863;


Point(101)={0, -y10, zr0+z10, cl1};
Point(102)={0, -360, zr0+z10, cl1};
Point(103)={0, -200, zr0+z10, cl1};
Point(104)={0, 0, zr0+z10, cl1};
Point(105)={0, 200, zr0+z10, cl1};
Point(106)={0, 360, zr0+z10, cl1};
Point(107)={0, y10, zr0+z10, cl1};
Point(108)={0, (y10+y20)/2, (zr0+z10+zr0+z20)/2, cl1};
Point(109)={0, y20, zr0+z20, cl1};

Point(111)={0, -294.45, zr0-170, cl1};
Point(112)={0, 294.45, zr0-170, cl1};

For i In {1:8}
 	Line(100+i)={100+i, 100+i+1};
 	b0[]+=100+i;
EndFor

For i In {1:2}
	b0[]+={ Rotate {{1, 0, 0}, {0, 0, -2000}, Pi*2/3*i} { Duplicata { Line{b0[]}; } } };
EndFor

Line(131)={111, 112};
For i In {1:2}
	Rotate {{1, 0, 0}, {0, 0, -2000}, Pi*2/3*i} { Duplicata { Line{131}; } }
EndFor

Line Loop(101) = {
	104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 
	118, 119, 120, 121, 122, 123, 124, 101, 102, 103};
Line Loop(102) = {133, 134, 131};
Plane Surface(121) = {101, 102};
s0[]+={121};

//fist operation
ty=-360.0;
tz=2357.0;
ry=-10.0/180*Pi;
rz=20.0/180*Pi;
s1[]={ Translate {0, ty, tz} { Duplicata { Surface{s0[]}; } } };
c1[]=Point{262};
s1[]={ Rotate {{0, 1, 0}, {c1[0],c1[1],c1[2]}, ry} { Surface{s1[]}; } };
s1[]={ Rotate {{0, 0, 1}, {c1[0],c1[1],c1[2]}, rz} { Surface{s1[]}; } };

//second operation
ty=360.0;
tz=2357.0;
ry=-10.0/180*Pi;
rz=20.0/180*Pi;
s2[]={ Translate {0, ty, tz} { Duplicata { Surface{s0[]}; } } };
c1[]=Point{370};
s2[]={ Rotate {{0, 1, 0}, {c1[0],c1[1],c1[2]}, ry} { Surface{s2[]}; } };
s2[]={ Rotate {{0, 0, 1}, {c1[0],c1[1],c1[2]}, rz} { Surface{s2[]}; } };

	
	
	




