diff --git a/benchmarks/2d/SFR.geo b/benchmarks/2d/SFR.geo
new file mode 100644
index 0000000000000000000000000000000000000000..dc7a2253d6158db15d344e9067e937f063edc2f6
--- /dev/null
+++ b/benchmarks/2d/SFR.geo
@@ -0,0 +1,5078 @@
+M_0=30 ;
+M0[0]=30 ; N0[0]=30 ;
+M0[1]=32 ; N0[1]=28 ;
+M0[2]=28 ; N0[2]=30 ;
+M0[3]=30 ; N0[3]=32 ;
+M0[4]=32 ; N0[4]=26 ;
+M0[5]=26 ; N0[5]=32 ;
+M0[6]=32 ; N0[6]=32 ;
+M0[7]=34 ; N0[7]=28 ;
+M0[8]=28 ; N0[8]=34 ;
+M0[9]=28 ; N0[9]=28 ;
+M0[10]=35 ; N0[10]=30 ;
+M0[11]=25 ; N0[11]=35 ;
+M0[12]=30 ; N0[12]=25 ;
+M0[13]=35 ; N0[13]=25 ;
+M0[14]=25 ; N0[14]=30 ;
+M0[15]=30 ; N0[15]=35 ;
+M1[0]=24 ; N1[0]=30 ;
+M1[1]=36 ; N1[1]=24 ;
+M1[2]=30 ; N1[2]=36 ;
+M1[3]=24 ; N1[3]=31 ;
+M1[4]=35 ; N1[4]=24 ;
+M1[5]=31 ; N1[5]=35 ;
+M1[6]=24 ; N1[6]=32 ;
+M1[7]=34 ; N1[7]=24 ;
+M1[8]=32 ; N1[8]=34 ;
+M1[9]=24 ; N1[9]=33 ;
+M1[10]=33 ; N1[10]=24 ;
+M1[11]=33 ; N1[11]=33 ;
+M1[12]=24 ; N1[12]=34 ;
+M1[13]=32 ; N1[13]=24 ;
+M1[14]=34 ; N1[14]=32 ;
+M1[15]=24 ; N1[15]=35 ;
+M1[16]=31 ; N1[16]=24 ;
+M1[17]=35 ; N1[17]=31 ;
+M1[18]=24 ; N1[18]=36 ;
+M1[19]=30 ; N1[19]=24 ;
+M1[20]=36 ; N1[20]=30 ;
+M1[21]=25 ; N1[21]=29 ;
+M1[22]=29 ; N1[22]=36 ;
+M1[23]=36 ; N1[23]=25 ;
+M1[24]=25 ; N1[24]=31 ;
+M1[25]=34 ; N1[25]=25 ;
+M1[26]=31 ; N1[26]=34 ;
+M1[27]=25 ; N1[27]=32 ;
+M1[28]=33 ; N1[28]=25 ;
+M1[29]=32 ; N1[29]=33 ;
+M1[30]=25 ; N1[30]=33 ;
+M1[31]=32 ; N1[31]=25 ;
+M1[32]=33 ; N1[32]=32 ;
+M1[33]=25 ; N1[33]=34 ;
+M1[34]=31 ; N1[34]=25 ;
+M1[35]=34 ; N1[35]=31 ;
+M1[36]=25 ; N1[36]=36 ;
+M1[37]=29 ; N1[37]=25 ;
+M1[38]=36 ; N1[38]=29 ;
+M1[39]=26 ; N1[39]=28 ;
+M1[40]=28 ; N1[40]=36 ;
+M1[41]=36 ; N1[41]=26 ;
+M1[42]=26 ; N1[42]=29 ;
+M1[43]=29 ; N1[43]=35 ;
+M1[44]=35 ; N1[44]=26 ;
+M1[45]=26 ; N1[45]=30 ;
+M1[46]=34 ; N1[46]=26 ;
+M1[47]=30 ; N1[47]=34 ;
+M1[48]=26 ; N1[48]=31 ;
+M1[49]=33 ; N1[49]=26 ;
+M1[50]=31 ; N1[50]=33 ;
+M1[51]=26 ; N1[51]=33 ;
+M1[52]=31 ; N1[52]=26 ;
+M1[53]=33 ; N1[53]=31 ;
+M1[54]=26 ; N1[54]=34 ;
+M1[55]=30 ; N1[55]=26 ;
+M1[56]=34 ; N1[56]=30 ;
+M1[57]=26 ; N1[57]=35 ;
+M1[58]=29 ; N1[58]=26 ;
+M1[59]=35 ; N1[59]=29 ;
+M1[60]=26 ; N1[60]=36 ;
+M1[61]=28 ; N1[61]=26 ;
+M1[62]=36 ; N1[62]=28 ;
+M1[63]=27 ; N1[63]=27 ;
+M1[64]=27 ; N1[64]=36 ;
+M1[65]=36 ; N1[65]=27 ;
+M1[66]=27 ; N1[66]=28 ;
+M1[67]=28 ; N1[67]=35 ;
+M1[68]=35 ; N1[68]=27 ;
+M1[69]=27 ; N1[69]=29 ;
+M1[70]=29 ; N1[70]=34 ;
+M1[71]=34 ; N1[71]=27 ;
+M1[72]=27 ; N1[72]=30 ;
+M1[73]=33 ; N1[73]=27 ;
+M1[74]=30 ; N1[74]=33 ;
+M1[75]=27 ; N1[75]=31 ;
+M1[76]=32 ; N1[76]=27 ;
+M1[77]=31 ; N1[77]=32 ;
+M1[78]=27 ; N1[78]=32 ;
+M1[79]=31 ; N1[79]=27 ;
+M1[80]=32 ; N1[80]=31 ;
+M1[81]=27 ; N1[81]=33 ;
+M1[82]=30 ; N1[82]=27 ;
+M1[83]=33 ; N1[83]=30 ;
+M1[84]=27 ; N1[84]=34 ;
+M1[85]=29 ; N1[85]=27 ;
+M1[86]=34 ; N1[86]=29 ;
+M1[87]=27 ; N1[87]=35 ;
+M1[88]=28 ; N1[88]=27 ;
+M1[89]=35 ; N1[89]=28 ;
+M1[90]=28 ; N1[90]=29 ;
+M1[91]=29 ; N1[91]=33 ;
+M1[92]=33 ; N1[92]=28 ;
+M1[93]=28 ; N1[93]=31 ;
+M1[94]=31 ; N1[94]=28 ;
+M1[95]=31 ; N1[95]=31 ;
+M1[96]=28 ; N1[96]=32 ;
+M1[97]=30 ; N1[97]=28 ;
+M1[98]=32 ; N1[98]=30 ;
+M1[99]=28 ; N1[99]=33 ;
+M1[100]=29 ; N1[100]=28 ;
+M1[101]=33 ; N1[101]=29 ;
+M1[102]=29 ; N1[102]=29 ;
+M1[103]=29 ; N1[103]=32 ;
+M1[104]=32 ; N1[104]=29 ;
+M1[105]=29 ; N1[105]=30 ;
+M1[106]=31 ; N1[106]=29 ;
+M1[107]=30 ; N1[107]=31 ;
+M1[108]=29 ; N1[108]=31 ;
+M1[109]=30 ; N1[109]=29 ;
+M2[0]=31 ; N2[0]=30 ;
+NbAss_0=16 ;
+NbAss_1=110 ;
+NbAss_2=1 ;
+NbAss_3=0;
+ 
+ep_ass=206.3 ;
+pas_ass=210.3 ;
+diam_pnl=206.3 ;
+ 
+r1=4400 ;
+r2=7900 ;
+r3=2450 ;
+r4=5980 ;
+r5=1080 ;
+h1b=0 ;
+h2=6640 ;
+h3=420 ;
+h4=4000 ;
+h5=1000 ;
+
+
+
+
+
+
+
+
+
+
+//////////////////////////////////
+//				//
+//	 COEUR TYPE PHX-SFR	//
+//				//
+//////////////////////////////////
+
+rap1=0.4; 
+r1=rap1*4400 ;
+r2=rap1*7900 ;
+r3=1.5*rap1*2450 ;
+r4=rap1*5980 ;
+r5=rap1*1080 ;
+
+
+i_mesh = 2;
+// 0 : maillage sortie coeur uniquement
+// 1 : maillage sortie coeur + collecteur chaud
+// 2 : maillage interassemblage uniquement
+
+i_conf = 0;
+// Utile si imesh vaut 0 ou 1
+// 0 : non conforme aux assemblages & reflecteurs
+// 1 : conforme aux assemblages & reflecteurs
+
+itype_PNL = 0;		// geometrie des P.N.L : 0 : hexagonale - 1 : Circulaire - 2 : Octogonale
+
+
+/////////////////////////////// 
+// paramčtres de discrétisation
+///////////////////////////////
+
+nbpt_ssbcc = 5;		// nombre de couche entre la sortie coeur et le bcc
+ 
+lcar  = pas_ass;	// longeur caracteristique associee aux assemblages - reflecteurs - P.N.L.
+lcar2 = 3.*lcar;	// longeur caracteristique associee a la partie inferieure de la virole du Collecteur Chaud (en-dessous de l'epaulement)
+lcar3 = 8.*lcar;	// longeur caracteristique associee a la partie superieure de la virole du Collecteur Chaud (au-dessus de l'epaulement)
+
+Mesh.Algorithm    = 1;  // 2D mesh algorithm (1=MeshAdapt+Delaunay, 4=MeshAdapt, 5=Delaunay, 6=Frontal)
+Mesh.Algorithm3D  = 4;  // 3D mesh algorithm (1=Tetgen+Delaunay, 4=Netgen)
+Mesh.OptimizeNetgen = 1;
+
+
+//**********************************************************
+//**********************************************************
+
+x0=0.;
+y0=0.;
+rac3= 1.732050807568877294;
+rac2= 1.414213562373095049;
+nbarre=-1;
+nbarre_lat=-1;
+nassemblage=-1;
+nreflecteur=-1;
+npnl=-1;
+indice0=-1;
+indice1=-1;
+indice2=-1;
+indice3=-1;
+indice4=-1;
+indice0lat=-1;
+
+barre_lat[ ] = { } ;
+ass[ ] = { } ;
+refl[] = { } ;
+pnl[] = { } ;
+
+lbord0b[ ] = { } ;
+lbord0h[ ] = { } ;
+lbord[ ] = { } ;
+lbord2[ ] = { } ;
+lbord3[ ] = { } ;
+
+
+///////////////////
+Function outerLoops
+///////////////////
+this_point=-1 ;
+first_point=-1 ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,-734.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,-736.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-839.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-839.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,-841.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-944.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-944.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,-946.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-1049.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-1049.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,-1051.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-1154.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-1154.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,-1156.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-1259.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-1259.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,-1261.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-1364.95,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-1364.95,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,-1261.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-1259.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-1259.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,-1156.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-1154.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-1154.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,-1051.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-1049.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-1049.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,-946.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-944.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-944.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,-841.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-839.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-839.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,-736.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,-734.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-734.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,-630.9,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-527.75,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-523.75,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,-420.6,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-317.45,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-313.45,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,-210.3,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-107.15,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-103.15,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,0,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,103.15,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,107.15,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,210.3,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,313.45,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,317.45,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,420.6,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,523.75,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,527.75,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,630.9,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,734.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,734.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,736.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,839.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,839.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,841.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,944.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,944.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,946.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,1049.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,1049.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,1051.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,1154.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,1154.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,1156.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,1259.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,1259.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,1261.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,1364.95,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,1364.95,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,1261.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,1259.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,1259.8,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,1156.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,1154.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,1154.65,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,1051.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,1049.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,1049.5,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,946.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,944.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,944.35,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,841.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,839.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,839.2,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,736.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,734.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,734.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,630.9,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,527.75,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,523.75,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,420.6,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,317.45,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,313.45,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,210.3,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,107.15,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,103.15,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,0,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-103.15,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-107.15,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,-210.3,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-313.45,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-317.45,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,-420.6,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-523.75,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-527.75,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,-630.9,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-734.05,0,lcar } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { old_point, this_point } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { this_point, first_point } ;
+nassemblage++; lbord[nassemblage]=newreg ;
+Line Loop(lbord[nassemblage]) = { c[{indice1-113:indice1 }] } ;
+
+Return
+////////////////////
+// End outerLoops //
+////////////////////
+
+
+///////////////////
+Function innerLoops
+///////////////////
+lbordia[ ] = { } ;
+nbordia=-1;
+nlinia=-1;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-1158.65,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,-1261.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-1259.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,-1156.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-1053.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-1053.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,-1156.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-1259.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,-1261.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,-1261.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-1259.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,-1156.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-1053.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-1053.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,-1156.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-1259.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,-1261.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,-1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,-1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,-946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,-946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,-841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,-841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,-946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,-736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,-736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-973.643,-630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-973.643,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1215.32,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1155.77,-315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1215.32,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-973.643,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-973.643,0,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-973.643,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1215.32,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1155.77,315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1215.32,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1211.86,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-973.643,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1152.3,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-973.643,630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1033.2,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,1261.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,1259.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,1156.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,1053.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,1053.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,1156.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,1259.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,1261.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,1261.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,1259.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,1156.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,1053.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,1053.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,1156.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,1259.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,1261.8,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {973.643,630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {973.643,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1215.32,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1155.77,315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1215.32,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {973.643,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {973.643,0,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {973.643,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1215.32,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1155.77,-315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1215.32,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1211.86,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {973.643,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1152.3,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {973.643,-630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1033.2,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,-736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,-736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,-946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,-841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,-841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,-946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,-946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,-1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,-1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-1158.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+lbordext22=newreg;
+Line Loop(lbordext22) = { linia[{nlinia-233:nlinia }] } ;
+/*
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,0,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,0,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,-210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,-210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,-630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,-630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,0,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,0,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,0,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,0,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,-630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,-630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,-1051.5,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,-1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,-525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,-525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,-525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,-525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,1051.5,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,1154.65,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,1051.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,948.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,-315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,-315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,-630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,-630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,946.35,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,-105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,-105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,-736.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,-736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,841.2,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,-841.2,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,-841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,736.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-791.518,315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-1029.73,315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-970.179,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-851.072,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,-946.35,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,-946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,-630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,-630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,946.35,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,-315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,-315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,-420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,-420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,841.2,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,-210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,-525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,-525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,736.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,-736.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,-736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,-841.2,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,-841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-609.393,630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-847.608,630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-788.054,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-668.947,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,-946.35,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-843.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,-946.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-1049.5,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,-736.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,-736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,841.2,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,-105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,-105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,-525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,-525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,736.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,-210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,-315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,-315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,-315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,-315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,-105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,-105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,-420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,-525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,-525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,-630.9,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-527.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,-630.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-734.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,-736.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,-736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {847.608,210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {609.393,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {668.947,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {788.054,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-427.268,736.05,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,839.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-665.483,736.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-605.929,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-486.822,632.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,-841.2,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-738.05,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,-841.2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-944.35,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {1029.73,105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {791.518,105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {851.072,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {970.179,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,-420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,-105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,-105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,0,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,0,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,-315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,-315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,-420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,-420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-245.143,420.6,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,523.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-483.358,420.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-423.804,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-304.697,317.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,-525.75,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-422.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,-525.75,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-628.9,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {665.483,105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {427.268,105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {486.822,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {605.929,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,-315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,-315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,315.45,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,418.6,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,315.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,212.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {483.358,0,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {245.143,0,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {304.697,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {423.804,-103.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,-105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,-105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,-105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,-105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,-208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-63.0178,105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-301.233,105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-241.679,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-122.571,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {119.107,-210.3,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-107.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-119.107,-210.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {-59.5537,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {59.5537,-313.45,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+
+this_point=-1;
+first_point=-1;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {301.233,105.15,0,lcar } ;
+first_point=this_point ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,208.3,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {63.0178,105.15,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {122.571,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+old_point=this_point;
+this_point=newp;
+Point(this_point) = {241.679,2,0,lcar } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { old_point, this_point } ;
+nlinia++; linia[nlinia]=newreg; Line(linia[nlinia]) = { this_point, first_point } ;
+nbordia++; lbordia[nbordia]=newreg ;
+Line Loop(lbordia[nbordia]) = { linia[{nlinia-5:nlinia }] } ;
+*/
+Return
+////////////////////
+// End innerLoops //
+////////////////////
+
+
+/////////////////////
+Function assemblage
+/////////////////////
+
+pc=newp; Point(pc) = { xc  , yc  , 0., lcar } ;
+
+p1=newp; Point(p1) = { xc+ep_ass/rac3      , yc          , 0., lcar } ;
+p2=newp; Point(p2) = { xc+ep_ass/(2.*rac3) , yc+ep_ass/2., 0., lcar } ;
+p3=newp; Point(p3) = { xc-ep_ass/(2.*rac3) , yc+ep_ass/2., 0., lcar } ;
+p4=newp; Point(p4) = { xc-ep_ass/rac3      , yc          , 0., lcar } ;
+p5=newp; Point(p5) = { xc-ep_ass/(2.*rac3) , yc-ep_ass/2., 0., lcar } ;
+p6=newp; Point(p6) = { xc+ep_ass/(2.*rac3) , yc-ep_ass/2., 0., lcar } ;
+
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { p1, p2 } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { p2, p3 } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { p3, p4 } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { p4, p5 } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { p5, p6 } ;
+indice1++; c[indice1]=newreg; Line(c[indice1]) = { p6, p1 } ;
+
+nassemblage++; lbord[nassemblage]=newreg; 
+Line Loop(lbord[nassemblage]) = { c[{ indice1-5:indice1 }] } ;
+ass[nassemblage]=newreg; Plane Surface(ass[nassemblage]) = { lbord[nassemblage] } ;
+Point { pc } In Surface { ass[nassemblage] } ;
+
+
+Return
+
+//////////////
+Function barre
+//////////////
+
+pc=newp; Point(pc) = { xc  , yc  , 0., lcar } ;
+
+p1=newp; Point(p1) = { xc+ep_ass/rac3      , yc          , 0., lcar } ;
+p2=newp; Point(p2) = { xc+ep_ass/(2.*rac3) , yc+ep_ass/2., 0., lcar } ;
+p3=newp; Point(p3) = { xc-ep_ass/(2.*rac3) , yc+ep_ass/2., 0., lcar } ;
+p4=newp; Point(p4) = { xc-ep_ass/rac3      , yc          , 0., lcar } ;
+p5=newp; Point(p5) = { xc-ep_ass/(2.*rac3) , yc-ep_ass/2., 0., lcar } ;
+p6=newp; Point(p6) = { xc+ep_ass/(2.*rac3) , yc-ep_ass/2., 0., lcar } ;
+
+p1h=newp; Point(p1h) = { xc+ep_ass/rac3      , yc          , h3, lcar } ;
+p2h=newp; Point(p2h) = { xc+ep_ass/(2.*rac3) , yc+ep_ass/2., h3, lcar } ;
+p3h=newp; Point(p3h) = { xc-ep_ass/(2.*rac3) , yc+ep_ass/2., h3, lcar } ;
+p4h=newp; Point(p4h) = { xc-ep_ass/rac3      , yc          , h3, lcar } ;
+p5h=newp; Point(p5h) = { xc-ep_ass/(2.*rac3) , yc-ep_ass/2., h3, lcar } ;
+p6h=newp; Point(p6h) = { xc+ep_ass/(2.*rac3) , yc-ep_ass/2., h3, lcar } ;
+
+indice0++; c0b[indice0]=newreg; Line(c0b[indice0]) = { p1, p2 } ; c0h[indice0]=newreg; Line(c0h[indice0]) = { p1h, p2h } ;
+indice0++; c0b[indice0]=newreg; Line(c0b[indice0]) = { p2, p3 } ; c0h[indice0]=newreg; Line(c0h[indice0]) = { p2h, p3h } ;
+indice0++; c0b[indice0]=newreg; Line(c0b[indice0]) = { p3, p4 } ; c0h[indice0]=newreg; Line(c0h[indice0]) = { p3h, p4h } ;
+indice0++; c0b[indice0]=newreg; Line(c0b[indice0]) = { p4, p5 } ; c0h[indice0]=newreg; Line(c0h[indice0]) = { p4h, p5h } ;
+indice0++; c0b[indice0]=newreg; Line(c0b[indice0]) = { p5, p6 } ; c0h[indice0]=newreg; Line(c0h[indice0]) = { p5h, p6h } ;
+indice0++; c0b[indice0]=newreg; Line(c0b[indice0]) = { p6, p1 } ; c0h[indice0]=newreg; Line(c0h[indice0]) = { p6h, p1h } ;
+
+l11=newreg; Line(l11) = { p1, p1h } ;
+l22=newreg; Line(l22) = { p2, p2h } ;
+l33=newreg; Line(l33) = { p3, p3h } ;
+l44=newreg; Line(l44) = { p4, p4h } ;
+l55=newreg; Line(l55) = { p5, p5h } ;
+l66=newreg; Line(l66) = { p6, p6h } ;
+
+Transfinite Line { l11 , l22 , l33 , l44 , l55 , l66 } = nbpt_ssbcc ;
+
+surf_lat1 = newreg; Line Loop(surf_lat1) = { c0b[indice0-5], l22 , -c0h[indice0-5] , -l11 } ; 
+surf_lat2 = newreg; Line Loop(surf_lat2) = { c0b[indice0-4], l33 , -c0h[indice0-4] , -l22 } ; 
+surf_lat3 = newreg; Line Loop(surf_lat3) = { c0b[indice0-3], l44 , -c0h[indice0-3] , -l33 } ; 
+surf_lat4 = newreg; Line Loop(surf_lat4) = { c0b[indice0-2], l55 , -c0h[indice0-2] , -l44 } ; 
+surf_lat5 = newreg; Line Loop(surf_lat5) = { c0b[indice0-1], l66 , -c0h[indice0-1] , -l55 } ; 
+surf_lat6 = newreg; Line Loop(surf_lat6) = { c0b[indice0  ], l11 , -c0h[indice0  ] , -l66 } ; 
+
+nbarre_lat++ ; barre_lat[nbarre_lat]=newreg; Ruled Surface(barre_lat[nbarre_lat]) = { surf_lat1 } ;
+nbarre_lat++ ; barre_lat[nbarre_lat]=newreg; Ruled Surface(barre_lat[nbarre_lat]) = { surf_lat2 } ;
+nbarre_lat++ ; barre_lat[nbarre_lat]=newreg; Ruled Surface(barre_lat[nbarre_lat]) = { surf_lat3 } ;
+nbarre_lat++ ; barre_lat[nbarre_lat]=newreg; Ruled Surface(barre_lat[nbarre_lat]) = { surf_lat4 } ;
+nbarre_lat++ ; barre_lat[nbarre_lat]=newreg; Ruled Surface(barre_lat[nbarre_lat]) = { surf_lat5 } ;
+nbarre_lat++ ; barre_lat[nbarre_lat]=newreg; Ruled Surface(barre_lat[nbarre_lat]) = { surf_lat6 } ;
+
+nbarre++; 
+lbord0b[nbarre]=newreg; Line Loop(lbord0b[nbarre]) = { c0b[{ indice0-5:indice0 }] } ;
+lbord0h[nbarre]=newreg; Line Loop(lbord0h[nbarre]) = { c0h[{ indice0-5:indice0 }] } ;
+barre[nbarre]=newreg; Plane Surface(barre[nbarre]) = { lbord0b[nbarre] } ;
+Point { pc } In Surface { barre[nbarre] } ;
+
+
+//nassemblage++; lbord[nassemblage]=newreg; 
+//Line Loop(lbord[nassemblage]) = { c[{ indice1-5:indice1 }] } ;
+//ass[nassemblage]=newreg; Plane Surface(ass[nassemblage]) = { lbord[nassemblage] } ;
+//Point { pc } In Surface { ass[nassemblage] } ;
+
+
+Return
+
+/////////////////////
+Function reflecteur
+/////////////////////
+
+ep_ass2=ep_ass;
+
+pc=newp; Point(pc) = { xc  , yc  , 0., lcar } ;
+
+p1=newp; Point(p1) = { xc+ep_ass2/rac3      , yc          , 0., lcar } ;
+p2=newp; Point(p2) = { xc+ep_ass2/(2.*rac3) , yc+ep_ass2/2., 0., lcar } ;
+p3=newp; Point(p3) = { xc-ep_ass2/(2.*rac3) , yc+ep_ass2/2., 0., lcar } ;
+p4=newp; Point(p4) = { xc-ep_ass2/rac3      , yc          , 0., lcar } ;
+p5=newp; Point(p5) = { xc-ep_ass2/(2.*rac3) , yc-ep_ass2/2., 0., lcar } ;
+p6=newp; Point(p6) = { xc+ep_ass2/(2.*rac3) , yc-ep_ass2/2., 0., lcar } ;
+
+indice2++; c2[indice2]=newreg; Line(c2[indice2]) = { p1, p2 } ;
+indice2++; c2[indice2]=newreg; Line(c2[indice2]) = { p2, p3 } ;
+indice2++; c2[indice2]=newreg; Line(c2[indice2]) = { p3, p4 } ;
+indice2++; c2[indice2]=newreg; Line(c2[indice2]) = { p4, p5 } ;
+indice2++; c2[indice2]=newreg; Line(c2[indice2]) = { p5, p6 } ;
+indice2++; c2[indice2]=newreg; Line(c2[indice2]) = { p6, p1 } ;
+
+nreflecteur++; lbord2[nreflecteur]=newreg; 
+Line Loop(lbord2[nreflecteur]) = { c2[{ indice2-5:indice2 }] } ;
+refl[nreflecteur]=newreg; Plane Surface(refl[nreflecteur]) = { lbord2[nreflecteur] } ;
+Point { pc } In Surface { refl[nreflecteur] } ;
+
+Return
+
+/////////////////////
+Function pnl
+/////////////////////
+
+
+//*********
+// Hexagone
+//*********
+
+
+If(itype_PNL==0)
+
+lcar_pnl = lcar;
+
+pc=newp; Point(pc) = { xc  , yc  , 0., lcar_pnl } ;
+
+p1=newp; Point(p1) = { xc+diam_pnl/rac3      , yc            , 0., lcar_pnl } ;
+p2=newp; Point(p2) = { xc+diam_pnl/(2.*rac3) , yc+diam_pnl/2., 0., lcar_pnl } ;
+p3=newp; Point(p3) = { xc-diam_pnl/(2.*rac3) , yc+diam_pnl/2., 0., lcar_pnl } ;
+p4=newp; Point(p4) = { xc-diam_pnl/rac3      , yc            , 0., lcar_pnl } ;
+p5=newp; Point(p5) = { xc-diam_pnl/(2.*rac3) , yc-diam_pnl/2., 0., lcar_pnl } ;
+p6=newp; Point(p6) = { xc+diam_pnl/(2.*rac3) , yc-diam_pnl/2., 0., lcar_pnl } ;
+
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p1, p2 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p2, p3 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p3, p4 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p4, p5 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p5, p6 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p6, p1 } ;
+
+npnl++; lbord3[npnl]=newreg; 
+Line Loop(lbord3[npnl]) = { c4[{ indice4-5:indice4 }] } ;
+pnl[npnl]=newreg; Plane Surface(pnl[npnl]) = { lbord3[npnl] } ;
+Point { pc } In Surface { pnl[npnl] } ;
+
+EndIf
+
+
+//*******
+// Cercle
+//*******
+
+If(itype_PNL==1)
+
+lcar_pnl = 0.5*diam_pnl;
+
+pc=newp; Point(pc) = { xc  , yc  , 0., lcar_pnl } ;
+
+p1=newp; Point(p1) = { xc+diam_pnl/2.	, yc,		  0.,	 lcar_pnl } ;
+p2=newp; Point(p2) = { xc		, yc+diam_pnl/2., 0.,	 lcar_pnl } ;
+p3=newp; Point(p3) = { xc-diam_pnl/2.	, yc,		  0.,	 lcar_pnl } ;
+p4=newp; Point(p4) = { xc		, yc-diam_pnl/2., 0.,	 lcar_pnl } ;
+
+indice4++; c4[indice4]=newreg; Circle(c4[indice4]) = { p1, pc, p2 } ;
+indice4++; c4[indice4]=newreg; Circle(c4[indice4]) = { p2, pc, p3 } ;
+indice4++; c4[indice4]=newreg; Circle(c4[indice4]) = { p3, pc, p4 } ;
+indice4++; c4[indice4]=newreg; Circle(c4[indice4]) = { p4, pc, p1 } ;
+
+npnl++; lbord3[npnl]=newreg; 
+Line Loop(lbord3[npnl]) = { c4[{ indice4-3:indice4 }] } ;
+pnl[npnl]=newreg; Plane Surface(pnl[npnl]) = { lbord3[npnl] } ;
+Point { pc } In Surface { pnl[npnl] } ;
+
+EndIf
+
+
+//*********
+// Octogone
+//*********
+
+If(itype_PNL==2)
+
+lcar_pnl = 0.5*diam_pnl;
+
+pc=newp; Point(pc) = { xc  , yc  , 0., lcar_pnl } ;
+
+p1=newp; Point(p1) = { xc+diam_pnl/2.	     , yc,		  	0.,  lcar_pnl } ;
+p2=newp; Point(p2) = { xc+diam_pnl/(2.*rac2) , yc+diam_pnl/(2.*rac2),   0.,  lcar_pnl } ;
+p3=newp; Point(p3) = { xc		     , yc+diam_pnl/2.,		0.,  lcar_pnl } ;
+p4=newp; Point(p4) = { xc-diam_pnl/(2.*rac2) , yc+diam_pnl/(2.*rac2),   0.,  lcar_pnl } ;
+p5=newp; Point(p5) = { xc-diam_pnl/2.	     , yc,		  	0.,  lcar_pnl } ;
+p6=newp; Point(p6) = { xc-diam_pnl/(2.*rac2) , yc-diam_pnl/(2.*rac2),   0.,  lcar_pnl } ;
+p7=newp; Point(p7) = { xc		     , yc-diam_pnl/2.,		0.,  lcar_pnl } ;
+p8=newp; Point(p8) = { xc+diam_pnl/(2.*rac2) , yc-diam_pnl/(2.*rac2),   0.,  lcar_pnl } ;
+
+
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p1, p2 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p2, p3 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p3, p4 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p4, p5 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p5, p6 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p6, p7 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p7, p8 } ;
+indice4++; c4[indice4]=newreg; Line(c4[indice4]) = { p8, p1 } ;
+
+
+npnl++; lbord3[npnl]=newreg; 
+Line Loop(lbord3[npnl]) = { c4[{ indice4-7:indice4 }] } ;
+pnl[npnl]=newreg; Plane Surface(pnl[npnl]) = { lbord3[npnl] } ;
+Point { pc } In Surface { pnl[npnl] } ;
+
+EndIf
+
+
+Return
+
+////////////////////////
+Function pompe_echangeur
+////////////////////////
+
+indice3++;
+
+centre4=newp; Point(centre4) = { xc, yc, h1b, lcar2 } ;
+
+p61=newp; Point(p61) = { xc+r5  , yc    , h1b, lcar2 } ;
+p62=newp; Point(p62) = { xc     , yc+r5 , h1b, lcar2 } ;
+p63=newp; Point(p63) = { xc-r5  , yc    , h1b, lcar2 } ;
+p64=newp; Point(p64) = { xc     , yc-r5 , h1b, lcar2 } ;
+
+c61=newreg; Circle(c61) = { p61, centre4, p62 } ;
+c62=newreg; Circle(c62) = { p62, centre4, p63 } ;
+c63=newreg; Circle(c63) = { p63, centre4, p64 } ;
+c64=newreg; Circle(c64) = { p64, centre4, p61 } ;
+
+pompeb[indice3]=newreg; Line Loop(pompeb[indice3]) = { c61 , c62 , c63 , c64  } ;
+surf5[indice3] =newreg; Plane Surface(surf5[indice3])  = { pompeb[indice3] } ;
+
+centre5=newp; Point(centre5) = { xc, yc, h1b+h4, lcar2 } ;
+
+p71=newp; Point(p71) = { xc+r5  , yc    , h1b+h4, lcar2 } ;
+p72=newp; Point(p72) = { xc     , yc+r5 , h1b+h4, lcar2 } ;
+p73=newp; Point(p73) = { xc-r5  , yc    , h1b+h4, lcar2 } ;
+p74=newp; Point(p74) = { xc     , yc-r5 , h1b+h4, lcar2 } ;
+
+c71=newreg; Circle(c71) = { p71, centre5, p72 } ;
+c72=newreg; Circle(c72) = { p72, centre5, p73 } ;
+c73=newreg; Circle(c73) = { p73, centre5, p74 } ;
+c74=newreg; Circle(c74) = { p74, centre5, p71 } ;
+
+l9 = newreg; Line(l9)   = { p61 , p71 } ;
+l10 = newreg; Line(l10) = { p62 , p72 } ;
+l11 = newreg; Line(l11) = { p63 , p73 } ;
+l12 = newreg; Line(l12) = { p64 , p74 } ;
+
+surf_lat9 = newreg; Line Loop(surf_lat9)   = { l9 , c71 , -l10 , -c61 } ; sl9[indice3]  = newreg; Ruled Surface(sl9[indice3])  = { surf_lat9  } ;
+surf_lat10 = newreg; Line Loop(surf_lat10) = { l10, c72 , -l11 , -c62 } ; sl10[indice3] = newreg; Ruled Surface(sl10[indice3]) = { surf_lat10 } ;
+surf_lat11 = newreg; Line Loop(surf_lat11) = { l11, c73 , -l12 , -c63 } ; sl11[indice3] = newreg; Ruled Surface(sl11[indice3]) = { surf_lat11 } ;
+surf_lat12 = newreg; Line Loop(surf_lat12) = { l12, c74 , -l9  , -c64 } ; sl12[indice3] = newreg; Ruled Surface(sl12[indice3]) = { surf_lat12 } ;
+
+
+centre6=newp; Point(centre6) = { xc, yc, h1b+h4+h5, lcar2 } ;
+
+p91=newp; Point(p91) = { xc+r5  , yc    , h1b+h4+h5, lcar2 } ;
+p92=newp; Point(p92) = { xc     , yc+r5 , h1b+h4+h5, lcar2 } ;
+p93=newp; Point(p93) = { xc-r5  , yc    , h1b+h4+h5, lcar2 } ;
+p94=newp; Point(p94) = { xc     , yc-r5 , h1b+h4+h5, lcar2 } ;
+
+c91=newreg; Circle(c91) = { p91, centre6, p92 } ;
+c92=newreg; Circle(c92) = { p92, centre6, p93 } ;
+c93=newreg; Circle(c93) = { p93, centre6, p94 } ;
+c94=newreg; Circle(c94) = { p94, centre6, p91 } ;
+
+l9b  = newreg; Line(l9b)  = { p71 , p91 } ;
+l10b = newreg; Line(l10b) = { p72 , p92 } ;
+l11b = newreg; Line(l11b) = { p73 , p93 } ;
+l12b = newreg; Line(l12b) = { p74 , p94 } ;
+
+surf_lat9b = newreg; Line Loop(surf_lat9b)   = { l9b , c91 , -l10b , -c71 } ; sl9b[indice3]  = newreg; Ruled Surface(sl9b[indice3])  = { surf_lat9b  } ;
+surf_lat10b = newreg; Line Loop(surf_lat10b) = { l10b, c92 , -l11b , -c72 } ; sl10b[indice3] = newreg; Ruled Surface(sl10b[indice3]) = { surf_lat10b } ;
+surf_lat11b = newreg; Line Loop(surf_lat11b) = { l11b, c93 , -l12b , -c73 } ; sl11b[indice3] = newreg; Ruled Surface(sl11b[indice3]) = { surf_lat11b } ;
+surf_lat12b = newreg; Line Loop(surf_lat12b) = { l12b, c94 , -l9b  , -c74 } ; sl12b[indice3] = newreg; Ruled Surface(sl12b[indice3]) = { surf_lat12b } ;
+
+
+centre7=newp; Point(centre7) = { xc, yc, h1b+h2, lcar3 } ;
+
+p81=newp; Point(p81) = { xc+r5  , yc    , h1b+h2, lcar3 } ;
+p82=newp; Point(p82) = { xc     , yc+r5 , h1b+h2, lcar3 } ;
+p83=newp; Point(p83) = { xc-r5  , yc    , h1b+h2, lcar3 } ;
+p84=newp; Point(p84) = { xc     , yc-r5 , h1b+h2, lcar3 } ;
+
+c81=newreg; Circle(c81) = { p81, centre7, p82 } ;
+c82=newreg; Circle(c82) = { p82, centre7, p83 } ;
+c83=newreg; Circle(c83) = { p83, centre7, p84 } ;
+c84=newreg; Circle(c84) = { p84, centre7, p81 } ;
+
+pompeh[indice3]=newreg; Line Loop(pompeh[indice3]) = { c81 , c82 , c83 , c84  } ;
+surf6[indice3] =newreg; Plane Surface(surf6[indice3])  = { pompeh[indice3] } ;
+
+l13 = newreg; Line(l13) = { p91 , p81 } ;
+l14 = newreg; Line(l14) = { p92 , p82 } ;
+l15 = newreg; Line(l15) = { p93 , p83 } ;
+l16 = newreg; Line(l16) = { p94 , p84 } ;
+
+surf_lat13 = newreg; Line Loop(surf_lat13) = { l13, c81 , -l14 , -c91 } ; sl13[indice3] = newreg; Ruled Surface(sl13[indice3]) = { surf_lat13 } ;
+surf_lat14 = newreg; Line Loop(surf_lat14) = { l14, c82 , -l15 , -c92 } ; sl14[indice3] = newreg; Ruled Surface(sl14[indice3]) = { surf_lat14 } ;
+surf_lat15 = newreg; Line Loop(surf_lat15) = { l15, c83 , -l16 , -c93 } ; sl15[indice3] = newreg; Ruled Surface(sl15[indice3]) = { surf_lat15 } ;
+surf_lat16 = newreg; Line Loop(surf_lat16) = { l16, c84 , -l13 , -c94 } ; sl16[indice3] = newreg; Ruled Surface(sl16[indice3]) = { surf_lat16 } ;
+
+Return
+
+/////////////////////////////////////
+// Generation des interassemblages //
+/////////////////////////////////////
+
+If (i_mesh==2)
+  Call innerLoops;
+  inter_ass =newreg; Plane Surface(inter_ass)  = { lbordext22 } ;
+  Physical Surface("inter_ass") = { inter_ass } ;
+EndIf
+If (i_mesh!=2)
+
+////////////////////////////////////
+// Generation des barres de commande 
+////////////////////////////////////
+
+  nbbarre=0;
+  For k In { 0:NbAss_0-1 }
+   
+   i=M0[k]-M_0;
+   j=N0[k]-M_0;
+
+   xc = x0+i*0.5*rac3*pas_ass;
+   yc = y0+i*0.5*pas_ass+j*pas_ass;
+
+   Call barre;
+   
+   nbbarre++;
+
+  EndFor
+Printf(" %g barres créés " , nbbarre ) ;
+
+/////////////////////////////
+// Generation des assemblages 
+/////////////////////////////
+
+If (i_conf==1)
+
+ nbass=0;
+
+ For k In { 0:NbAss_1-1 }
+
+   i=M1[k]-M_0;
+   j=N1[k]-M_0;
+
+   xc = x0+i*0.5*rac3*pas_ass;
+   yc = y0+i*0.5*pas_ass+j*pas_ass;
+
+   Call assemblage;
+   
+   nbass++;
+
+ EndFor
+
+
+Printf(" %g assemblages créés " , nbass ) ;
+
+EndIf
+
+If (i_conf==0)
+   Call outerLoops;
+   ass[0]=newreg ;
+   Plane Surface(ass[0]) = { lbord[], lbord0b[] } ;
+
+EndIf
+
+/////////////////////////////
+// Generation des reflecteurs 
+/////////////////////////////
+
+If (i_conf==1)
+
+   nbrefl=0;
+
+ For k In { 0:NbAss_2-1 }
+
+   i=M2[k]-M_0;
+   j=N2[k]-M_0;
+
+   xc = x0+i*0.5*rac3*pas_ass;
+   yc = y0+i*0.5*pas_ass+j*pas_ass;
+
+   Call reflecteur;
+   
+   nbrefl++;
+
+ EndFor
+
+Printf(" %g reflecteurs créés " , nbrefl ) ;
+
+EndIf
+
+/////////////////////////////
+// Generation des P.N.L. 
+/////////////////////////////
+
+   nbpnl=0;
+
+ For k In { 0:NbAss_3-1 }
+
+   i=M3[k]-M_0;
+   j=N3[k]-M_0;
+
+   xc = x0+i*0.5*rac3*pas_ass;
+   yc = y0+i*0.5*pas_ass+j*pas_ass;
+
+   Call pnl;
+   
+   nbpnl++;
+
+ EndFor
+
+Printf(" %g P.N.L créés " , nbpnl ) ;
+
+
+//////////////////////////////////////////
+// Generation de la cuve primaire (virole)
+//////////////////////////////////////////
+
+centre=newp; Point(centre) = { x0, y0, 0., lcar2 } ;
+
+p11=newp; Point(p11) = { x0+r1 , y0    , 0., lcar2 } ;
+p12=newp; Point(p12) = { x0    , y0+r1 , 0., lcar2 } ;
+p13=newp; Point(p13) = { x0-r1 , y0    , 0., lcar2 } ;
+p14=newp; Point(p14) = { x0    , y0-r1 , 0., lcar2 } ;
+
+c11=newreg; Circle(c11) = { p11, centre, p12 } ;
+c12=newreg; Circle(c12) = { p12, centre, p13 } ;
+c13=newreg; Circle(c13) = { p13, centre, p14 } ;
+c14=newreg; Circle(c14) = { p14, centre, p11 } ;
+
+virole=newreg; Line Loop(virole) = { c11 , c12 , c13 , c14  } ;
+
+/////////////////////////////////
+// Generation de la partie coeur
+/////////////////////////////////
+
+
+inter_ass =newreg; Plane Surface(inter_ass)  = { virole , lbord0b[] , lbord[], lbord2[], lbord3[] } ;
+
+Physical Surface("inter_ass") = { inter_ass } ;
+
+
+
+If (i_mesh==0)
+
+Physical Line ("cuve_primaire_bas")  = { c11 , c12 , c13 , c14  } ;
+
+	      Physical Line ("ass")   = { c[] } ;
+If(NbAss_0>0) Physical Line ("barre") = { c0b[] } ; EndIf
+If(NbAss_2>0 && i_conf==1) Physical Line ("refl")  = { c2[] } ; EndIf
+If(NbAss_3>0) Physical Line ("pnl")   = { c4[] } ; EndIf
+
+EndIf
+
+
+
+
+If (i_mesh==1)
+
+	      Physical Surface("ass") = { ass[] } ;
+If(NbAss_0>0) Physical Surface("barre") = { barre_lat[] } ; EndIf
+If(NbAss_2>0 && i_conf==1) Physical Surface("refl") = { refl[] } ; EndIf
+If(NbAss_3>0) Physical Surface("pnl") = { pnl[] } ; EndIf
+
+
+/////////////////////////////////
+// Génération du collecteur chaud
+/////////////////////////////////
+
+
+//*******************************************************************************
+// extension de la cuve primaire jusqu'a l'epaulement collecteur chaud (virole1)
+//*******************************************************************************
+
+centreb=newp; Point(centreb) = { x0, y0, h1b, lcar2 } ;
+
+p11b=newp; Point(p11b) = { x0+r1 , y0    , h1b, lcar2 } ;
+p12b=newp; Point(p12b) = { x0    , y0+r1 , h1b, lcar2 } ;
+p13b=newp; Point(p13b) = { x0-r1 , y0    , h1b, lcar2 } ;
+p14b=newp; Point(p14b) = { x0    , y0-r1 , h1b, lcar2 } ;
+
+c11b=newreg; Circle(c11b) = { p11b, centreb, p12b } ;
+c12b=newreg; Circle(c12b) = { p12b, centreb, p13b } ;
+c13b=newreg; Circle(c13b) = { p13b, centreb, p14b } ;
+c14b=newreg; Circle(c14b) = { p14b, centreb, p11b } ;
+
+virole1=newreg; Line Loop(virole1) = { c11b , c12b , c13b , c14b  } ;
+
+//********************************************
+// cuve du collecteur chaud (virole2b-virole2h)
+//********************************************
+
+p21=newp; Point(p21) = { x0+r2 , y0    , h1b, lcar3 } ;
+p22=newp; Point(p22) = { x0    , y0+r2 , h1b, lcar3 } ;
+p23=newp; Point(p23) = { x0-r2 , y0    , h1b, lcar3 } ;
+p24=newp; Point(p24) = { x0    , y0-r2 , h1b, lcar3 } ;
+
+c21=newreg; Circle(c21) = { p21, centreb, p22 } ;
+c22=newreg; Circle(c22) = { p22, centreb, p23 } ;
+c23=newreg; Circle(c23) = { p23, centreb, p24 } ;
+c24=newreg; Circle(c24) = { p24, centreb, p21 } ;
+
+virole2b=newreg; Line Loop(virole2b) = { c21 , c22 , c23 , c24  } ;
+
+centre3=newp; Point(centre3) = { x0, y0, h2+h1b, lcar3 } ;
+
+p31=newp; Point(p31) = { x0+r2 , y0    , h2+h1b, lcar3 } ;
+p32=newp; Point(p32) = { x0    , y0+r2 , h2+h1b, lcar3 } ;
+p33=newp; Point(p33) = { x0-r2 , y0    , h2+h1b, lcar3 } ;
+p34=newp; Point(p34) = { x0    , y0-r2 , h2+h1b, lcar3 } ;
+
+c31=newreg; Circle(c31) = { p31, centre3, p32 } ;
+c32=newreg; Circle(c32) = { p32, centre3, p33 } ;
+c33=newreg; Circle(c33) = { p33, centre3, p34 } ;
+c34=newreg; Circle(c34) = { p34, centre3, p31 } ;
+
+virole2h=newreg; Line Loop(virole2h) = { c31 , c32 , c33 , c34  } ;
+
+
+//********************************************
+// Generation du bcc (bccb-bcch)
+//********************************************
+
+centre2=newp; Point(centre2) = { x0, y0, h3, lcar } ;
+
+p41=newp; Point(p41) = { x0+r3  , y0    , h3, lcar } ;
+p42=newp; Point(p42) = { x0     , y0+r3 , h3, lcar } ;
+p43=newp; Point(p43) = { x0-r3  , y0    , h3, lcar } ;
+p44=newp; Point(p44) = { x0     , y0-r3 , h3, lcar } ;
+
+c41=newreg; Circle(c41) = { p41, centre2, p42 } ;
+c42=newreg; Circle(c42) = { p42, centre2, p43 } ;
+c43=newreg; Circle(c43) = { p43, centre2, p44 } ;
+c44=newreg; Circle(c44) = { p44, centre2, p41 } ;
+
+bccb=newreg; Line Loop(bccb) = { c41 , c42 , c43 , c44  } ;
+
+p51=newp; Point(p51) = { x0+r3  , y0     , h2+h1b, lcar3 } ;
+p52=newp; Point(p52) = { x0     , y0+r3  , h2+h1b, lcar3 } ;
+p53=newp; Point(p53) = { x0-r3  , y0     , h2+h1b, lcar3 } ;
+p54=newp; Point(p54) = { x0     , y0-r3  , h2+h1b, lcar3 } ;
+
+c51=newreg; Circle(c51) = { p51, centre3, p52 } ;
+c52=newreg; Circle(c52) = { p52, centre3, p53 } ;
+c53=newreg; Circle(c53) = { p53, centre3, p54 } ;
+c54=newreg; Circle(c54) = { p54, centre3, p51 } ;
+
+bcch=newreg; Line Loop(bcch) = { c51 , c52 , c53 , c54  } ;
+
+
+//********************************************
+// Generation des 6 echangeurs et des 3 pompes
+//********************************************
+
+For i In { 0:2 }  // Pompes
+
+  xc = (x0+r4)*Cos(i*2*Pi/3);
+  yc = (y0+r4)*Sin(i*2*Pi/3);
+
+Call pompe_echangeur ;
+ 
+EndFor
+
+
+alpha = Pi/6;
+
+For i In { 0:2 }  // Echangeurs_gauche
+
+  xc = (x0+r4)*Cos(i*2*Pi/3+alpha);
+  yc = (y0+r4)*Sin(i*2*Pi/3+alpha);
+
+Call pompe_echangeur ;
+ 
+EndFor
+
+For i In { 0:2 }  // Echangeurs_droite
+
+  xc = (x0+r4)*Cos(i*2*Pi/3-alpha);
+  yc = (y0+r4)*Sin(i*2*Pi/3-alpha);
+
+Call pompe_echangeur ;
+ 
+EndFor
+
+
+///////////////////////////////////////////////////////
+// Generation des surfaces et des volumes du collecteur
+///////////////////////////////////////////////////////
+
+l1 = newreg; Line(l1) = { p21 , p31 } ;  l5 = newreg; Line(l5) = { p41 , p51 } ; 
+l2 = newreg; Line(l2) = { p22 , p32 } ;  l6 = newreg; Line(l6) = { p42 , p52 } ; 
+l3 = newreg; Line(l3) = { p23 , p33 } ;  l7 = newreg; Line(l7) = { p43 , p53 } ; 
+l4 = newreg; Line(l4) = { p24 , p34 } ;  l8 = newreg; Line(l8) = { p44 , p54 } ; 
+
+l1b = newreg; Line(l1b) = { p11 , p11b } ;
+l2b = newreg; Line(l2b) = { p12 , p12b } ;
+l3b = newreg; Line(l3b) = { p13 , p13b } ;
+l4b = newreg; Line(l4b) = { p14 , p14b } ;
+
+surf_lat1 = newreg; Line Loop(surf_lat1) = { l1, c31 , -l2 , -c21 } ; sl1 = newreg; Ruled Surface(sl1) = { surf_lat1 } ;
+surf_lat2 = newreg; Line Loop(surf_lat2) = { l2, c32 , -l3 , -c22 } ; sl2 = newreg; Ruled Surface(sl2) = { surf_lat2 } ;
+surf_lat3 = newreg; Line Loop(surf_lat3) = { l3, c33 , -l4 , -c23 } ; sl3 = newreg; Ruled Surface(sl3) = { surf_lat3 } ;
+surf_lat4 = newreg; Line Loop(surf_lat4) = { l4, c34 , -l1 , -c24 } ; sl4 = newreg; Ruled Surface(sl4) = { surf_lat4 } ;
+
+If(h1b>0.)
+surf_lat1b = newreg; Line Loop(surf_lat1b) = { l1b, c11b , -l2b , -c11 } ; sl1b = newreg; Ruled Surface(sl1b) = { surf_lat1b } ;
+surf_lat2b = newreg; Line Loop(surf_lat2b) = { l2b, c12b , -l3b , -c12 } ; sl2b = newreg; Ruled Surface(sl2b) = { surf_lat2b } ;
+surf_lat3b = newreg; Line Loop(surf_lat3b) = { l3b, c13b , -l4b , -c13 } ; sl3b = newreg; Ruled Surface(sl3b) = { surf_lat3b } ;
+surf_lat4b = newreg; Line Loop(surf_lat4b) = { l4b, c14b , -l1b , -c14 } ; sl4b = newreg; Ruled Surface(sl4b) = { surf_lat4b } ;
+EndIf
+
+surf_lat5 = newreg; Line Loop(surf_lat5) = { l5, c51 , -l6 , -c41 } ; sl5 = newreg; Ruled Surface(sl5) = { surf_lat5 } ;
+surf_lat6 = newreg; Line Loop(surf_lat6) = { l6, c52 , -l7 , -c42 } ; sl6 = newreg; Ruled Surface(sl6) = { surf_lat6 } ;
+surf_lat7 = newreg; Line Loop(surf_lat7) = { l7, c53 , -l8 , -c43 } ; sl7 = newreg; Ruled Surface(sl7) = { surf_lat7 } ;
+surf_lat8 = newreg; Line Loop(surf_lat8) = { l8, c54 , -l5 , -c44 } ; sl8 = newreg; Ruled Surface(sl8) = { surf_lat8 } ;
+
+If(h1b>0.)
+surf1 =newreg; Plane Surface(surf1)  = { virole2b , pompeb[], virole1 } ;
+EndIf
+If(h1b==0.)
+surf1 =newreg; Plane Surface(surf1)  = { virole2b , pompeb[], virole } ;
+EndIf
+surf3 =newreg; Plane Surface(surf3)  = { virole2h , pompeh[], bcch } ;
+surf4 =newreg; Plane Surface(surf4)  = { bccb , lbord0h[] } ;
+
+collecteur[0] = newreg ;
+
+
+If(h1b==0.)
+Surface Loop(collecteur[0]) = { surf1, surf3, surf4, inter_ass,
+ 				barre_lat[], ass[], refl[], pnl[], 
+				sl1, sl2, sl3, sl4, sl5, sl6, sl7, sl8 ,
+				sl9[], sl10[], sl11[], sl12[],
+				sl9b[], sl10b[], sl11b[], sl12b[],
+				sl13[], sl14[],	sl15[], sl16[]  } ;
+EndIf
+
+If(h1b>0.)
+Surface Loop(collecteur[0]) = { surf1, surf3, surf4, inter_ass,
+ 				barre_lat[], ass[], refl[], pnl[], 
+				sl1, sl2, sl3, sl4, sl1b, sl2b, sl3b, sl4b, sl5, sl6, sl7, sl8 ,
+				sl9[], sl10[], sl11[], sl12[],
+				sl9b[], sl10b[], sl11b[], sl12b[],
+				sl13[], sl14[],	sl15[], sl16[]  } ;
+EndIf
+
+vol = newreg ; Volume(vol) = { collecteur[] } ;
+
+
+Physical Surface("surf") = { surf1, surf3, surf4,
+			     sl1, sl2, sl3, sl4, sl5, sl6, sl7, sl8,
+			     sl9[], sl10[], sl11[], sl12[],
+			     sl9b[ { 0:2 } ], sl10b[ { 0:2 } ], sl11b[ { 0:2 } ], sl12b[ { 0:2 } ],
+			     sl13[], sl14[], sl15[], sl16[]  } ;
+
+If(h1b>0.)
+Physical Surface("cuve_primaire_bas") = { sl1b, sl2b, sl3b, sl4b } ;
+EndIf
+
+Physical Surface("echg1") = { sl9b[ { 3,6 } ], sl10b[ { 3,6 } ], sl11b[ { 3,6 } ], sl12b[ { 3,6 } ]  } ;
+Physical Surface("echg2") = { sl9b[ { 4,7 } ], sl10b[ { 4,7 } ], sl11b[ { 4,7 } ], sl12b[ { 4,7 } ]  } ;
+Physical Surface("echg3") = { sl9b[ { 5,8 } ], sl10b[ { 5,8 } ], sl11b[ { 5,8 } ], sl12b[ { 5,8 } ]  } ;
+
+Physical Volume("dom") = { vol } ;
+
+EndIf
+
+EndIf
+
+Show "*";
diff --git a/benchmarks/extrude/Process_FSWLocal.geo b/benchmarks/extrude/Process_FSWLocal.geo
new file mode 100644
index 0000000000000000000000000000000000000000..b25589ef4e2eed0fabe24d2239564e4018359e64
--- /dev/null
+++ b/benchmarks/extrude/Process_FSWLocal.geo
@@ -0,0 +1,702 @@
+// ===========================================================================//
+//                                                                            //
+//  Parametrised Model for 3D Thermo-Fluid Modelling of FSW                   //
+//                                                                            //
+//  Description:                                                              //
+//  ...                                                                       //
+//                                                                            //
+// ===========================================================================//
+// -- GMSH parameters ----------------------------------------------------------
+Geometry.ScalingFactor = 1.0;
+Mesh.Smoothing = 1;
+Mesh.CharacteristicLengthExtendFromBoundary = 1;
+Mesh.MshFileVersion = 1;
+Mesh.ScalingFactor = 1.0;
+// ---------------------------------------------------------------------------//
+//   Model parameters                                                         //
+// ---------------------------------------------------------------------------//
+tool_diameter               = 0.024;
+tool_length1                = 0.03;
+tool_length2                = 0.005;
+shoulder_diameter           = 0.02;
+probe_thread_inner_diameter_top = 0.008;
+probe_thread_outer_diameter_top = 0.01;
+probe_thread_inner_diameter_bottom = 0.008;
+probe_thread_outer_diameter_bottom = 0.01;
+probe_length                = 0.005;
+shoulder_scroll_depth       = 0.003;
+layer_thickness1            = shoulder_scroll_depth;
+layer_thickness2            = 0.001;
+layer_thickness3            = 0.0005;
+layer_thickness4            = 0.0005;
+layer_thickness5            = 0.0008;
+workpiece_thickness         = 0.006;
+workpiece_diameter          = 0.06;
+refined_mesh_extension      = 0.005;
+refined_mesh_extension2     = 0.01;
+contact_layer_thickness     = 0.0001;
+backplate_thickness         = 0.0189;
+backplate_refinement1       = 0.001;
+backplate_refinement2       = 0.005;
+tool_temperature1           = 0.15 * (0.03 + 0.005 );
+tool_temperature2           = 0.5 * (0.03 + 0.005 );
+//
+tool_radius               = tool_diameter/2.0; 
+shoulder_radius           = shoulder_diameter/2.0;
+probe_thread_inner_radius_top = probe_thread_inner_diameter_top/2.0;
+probe_thread_outer_radius_top = probe_thread_outer_diameter_top/2.0;
+probe_thread_inner_radius_bottom = probe_thread_inner_diameter_bottom/2.0;
+probe_thread_outer_radius_bottom = probe_thread_outer_diameter_bottom/2.0;
+workpiece_radius          = workpiece_diameter/2.0;
+//
+// ---------------------------------------------------------------------------//
+//   Offset factors                                                           //
+// ---------------------------------------------------------------------------//
+offset_factor1 = 0.2;
+offset1        = offset_factor1 * layer_thickness2;
+offset_factor2 = 0.6;
+offset2        = offset_factor2 * layer_thickness3;
+offset_factor3 = 0.2;
+offset3        = offset_factor3 * layer_thickness3;
+offset_factor4 = 0.2;
+offset4        = offset_factor4 * layer_thickness4;
+offset_on_axis_factor = 0.2;
+offset_on_axis = probe_thread_inner_radius_top * offset_on_axis_factor;
+//
+// ---------------------------------------------------------------------------//
+//   Mesh Parameters                                                          //
+// ---------------------------------------------------------------------------//
+// -- Number of elements along edges -------------------------------------------
+number_of_elements_through_thickness_of_boundary_layer   = 10;
+number_of_elements_through_thickness_of_transition_layer = 3;
+number_of_elements_along_shoulder_radius                 = 16;
+number_of_elements_along_probe                           = 16;
+number_of_elements_along_probe_radius                    = 10;
+number_of_elements_along_small_blocks                    = 4;
+number_of_elements_through_workpiece_thickness           = 15;
+number_of_elements_along_workpiece_width                 = 10;
+number_of_elements_through_contact_thickness             = 1;
+number_of_elements_through_backplate_thickness           = 10;
+number_of_elements_along_backplate_width                 = 25;
+number_of_elements_along_shoulder_shaft                  = 40;
+number_of_elements_along_tool_top_shaft                  = 15;
+number_of_elements_along_tool_top_radius                 = 15;
+number_of_elements_along_top_refinement_zone             = 25;
+number_of_elements_between_probe_bottom_bl_and_wp_bottom = 6;
+number_of_elements_along_central_cylinder_radius         = 3;
+number_of_elements_along_one_third_circumference         = 12;
+number_of_elements_along_backplate_edges                 = 20;
+number_of_elements_along_backplate_refinement1           = 5;
+number_of_elements_along_backplate_refinement2           = 10;
+number_of_elements_through_outer_workpiece_thickness     = 5;
+number_of_elements_along_lower_tool_section              = 5;
+number_of_elements_along_middle_tool_radius              = 5;
+number_of_elements_along_middle_tool_section             = 5;
+number_of_elements_along_upper_tool_section              = 8;
+//
+// -- convert to number of nodes -----------------------------------------------
+bl1 = number_of_elements_through_thickness_of_boundary_layer + 1;
+bl2 = number_of_elements_through_thickness_of_transition_layer + 1;
+n1  = number_of_elements_along_shoulder_radius + 1;
+n1b = n1 - number_of_elements_along_small_blocks;
+n2  = number_of_elements_along_probe + 1;
+n2b = n2 - number_of_elements_along_small_blocks;
+n3  = number_of_elements_along_probe_radius + 1;
+n3b = n3 - number_of_elements_along_small_blocks;
+n4  = number_of_elements_along_small_blocks + 1;
+n5  = number_of_elements_through_workpiece_thickness + 1;
+n6  = number_of_elements_along_workpiece_width + 1;
+n7  = number_of_elements_through_contact_thickness + 1;
+n8  = number_of_elements_through_backplate_thickness + 1;
+n9  = number_of_elements_along_backplate_width + 1;
+n10 = number_of_elements_along_shoulder_shaft + 1;
+n11 = number_of_elements_along_tool_top_shaft + 1;
+n12 = n10 + n11 + 2;
+n13 = number_of_elements_along_tool_top_radius + 1;
+n14 = n9 - n6 + 1  ;
+n15 = number_of_elements_along_top_refinement_zone + 1;
+n16 = number_of_elements_between_probe_bottom_bl_and_wp_bottom + 1;
+n17 = number_of_elements_along_central_cylinder_radius + 1;
+n18 = number_of_elements_along_one_third_circumference;
+n19 = number_of_elements_along_backplate_edges + 1;
+n20 = number_of_elements_along_backplate_refinement1 + 1;
+n21 = number_of_elements_along_backplate_refinement2 + 1;
+n22 = number_of_elements_through_outer_workpiece_thickness + 1;
+n23 = number_of_elements_along_lower_tool_section + 1;
+n24 = number_of_elements_along_middle_tool_radius + 1;
+n25 = number_of_elements_along_middle_tool_section + 1;
+n26 = number_of_elements_along_upper_tool_section + 1;
+//
+// -- Bias factors -------------------------------------------------------------
+no_bias = 1.0;
+bl1_bias = 0.8;
+bl_trans_bias = 0.9;
+bl2_bias = 0.8;
+bp_cl_bias = 0.8;
+bp_h_bias = 0.95;
+bp_v_bias = 0.7;
+wp_h_bias = 0.6;
+tool_v_bias = 0.95;
+tool_top_v_bias = tool_v_bias;
+tool_axis_v_bias = tool_v_bias;
+
+// -- Other --------------------------------------------------------------------
+h = 0.00001;
+//
+// ---------------------------------------------------------------------------//
+//   Coordinates                                                              //
+// ---------------------------------------------------------------------------//
+// -- X ------------------------------------------------------------------------
+x0  = 0.0;
+xa =  x0 + offset_on_axis;
+x1  = x0 + probe_thread_inner_radius_top;
+x2  = x0 + probe_thread_outer_radius_top;
+x3  = x1 + layer_thickness3;
+x4  = x0 + probe_thread_inner_radius_bottom - layer_thickness3;
+x5  = x0 + shoulder_radius;
+x6  = tool_radius;
+x7  = workpiece_radius;
+x8  = x5 + layer_thickness1;
+x9  = x5 + layer_thickness2;
+x10 = x5 - layer_thickness2;
+x11 = shoulder_radius + refined_mesh_extension;
+x12 = probe_thread_outer_radius_top + refined_mesh_extension;
+x13 = x3 + offset2;
+x14 = x9 - offset1;
+x15 = x3 - offset3;
+x16 = x0 + probe_thread_inner_radius_bottom;
+x17 = x0 + probe_thread_outer_radius_bottom;
+// - intermediate -
+d1 = probe_thread_inner_radius_top;
+d3 = probe_thread_inner_radius_bottom;
+d2 = probe_thread_outer_radius_top;
+d4 = probe_thread_outer_radius_bottom;
+p  = probe_length;
+//
+//
+// -- Y ------------------------------------------------------------------------
+y0  = 0.0;
+y1  = y0  - workpiece_thickness;
+y2  = y0  - probe_length;
+y3  = y1  - contact_layer_thickness;
+y4  = y3  - backplate_thickness;
+y5  = y0  + tool_length1;
+y6  = y5  + tool_length2;
+y7  = y0  - layer_thickness2;
+y8  = y0  - layer_thickness1;
+y9  = y2  + layer_thickness4;
+y10 = y2  - layer_thickness4;
+y11 = y2  - layer_thickness5;
+y12 = y7  + offset1;
+y13 = y10 + offset4;
+y14 = y3  - backplate_refinement1; 
+y15 = y3  - backplate_refinement2; 
+y16 = y0  + tool_temperature1;
+y17 = y0  + tool_temperature2;
+//
+x18 = d3*(-y8)/p+d1*(p-(-y8))/p;  
+x19 = d3*(-y9)/p+d1*(p-(-y9))/p;  
+x20 = d4*(-y7)/p+d2*(p-(-y7))/p;  
+x21 = d4*(-y8)/p+d2*(p-(-y8))/p;  
+x22 = x18 + layer_thickness3;
+x23 = x19 + layer_thickness3;  
+x24 = x16 + layer_thickness3; 
+x25 = d3*(-y7)/p+d1*(p-(-y7))/p + layer_thickness3 + offset2;  
+x26 = d3*(-y10)/p+d1*(p-(-y10))/p; // p38
+x27 = d3*(-y13)/p+d1*(p-(-y13))/p + layer_thickness3 - offset3; // p37
+x28 = d3*(-y11)/p+d1*(p-(-y11))/p; // p22
+x29 = shoulder_radius + refined_mesh_extension2;
+//
+// -- Z ------------------------------------------------------------------------
+z0  = 0.0;
+//
+// ---------------------------------------------------------------------------//
+//   Points                                                                   //
+// ---------------------------------------------------------------------------//
+Point(1)  = { xa,  y6,  z0, h };
+Point(2)  = { x6,  y6,  z0, h };
+Point(3)  = { x6,  y5,  z0, h };
+Point(4)  = { x5,  y5,  z0, h };
+Point(5)  = { x5,  y0,  z0, h };
+Point(6)  = { x1,  y0,  z0, h };
+Point(7)  = { x16, y2,  z0, h };
+Point(8)  = { xa,  y2,  z0, h };
+Point(9)  = { x7,  y0,  z0, h };
+Point(10) = { x7,  y1,  z0, h };
+Point(11) = { xa,  y1,  z0, h };
+Point(12) = { x7,  y3,  z0, h };
+Point(13) = { xa,  y3,  z0, h };
+Point(14) = { x7,  y4,  z0, h };
+Point(15) = { xa,  y4,  z0, h };
+Point(16) = { x5,  y8,  z0, h };
+Point(17) = { x8,  y0,  z0, h };
+Point(18) = { x2,  y0,  z0, h };
+Point(19) = { x21, y8,  z0, h };
+Point(20) = { x18, y8,  z0, h };
+Point(21) = { x17, y2,  z0, h };
+Point(22) = { x28, y11, z0, h };
+Point(23) = { xa,  y11, z0, h };
+Point(24) = { x11, y0,  z0, h };
+Point(25) = { x12, y1,  z0, h };
+Point(26) = { x9,  y0,  z0, h };
+Point(27) = { x14, y12, z0, h };
+Point(28) = { x5,  y7,  z0, h };
+Point(29) = { x10, y7,  z0, h };
+Point(30) = { x10, y0,  z0, h };
+Point(31) = { x20, y7,  z0, h };
+Point(32) = { x25, y7,  z0, h };
+Point(33) = { x22, y8,  z0, h };
+Point(34) = { x24, y2,  z0, h };
+Point(35) = { x23, y9,  z0, h };
+Point(36) = { x19, y9,  z0, h };
+Point(37) = { x27, y13, z0, h };
+Point(38) = { x26, y10, z0, h };
+Point(39) = { x4,  y10, z0, h };
+Point(40) = { x4,  y2,  z0, h };
+Point(41) = { xa,  y10, z0, h };
+
+Point(42)  = { x0,  y6,  z0, h };
+Point(43)  = { x0,  y2,  z0, h };
+Point(44)  = { x0,  y1,  z0, h };
+Point(45)  = { x0,  y3,  z0, h };
+Point(46)  = { x0,  y4,  z0, h };
+Point(47)  = { x0,  y11, z0, h };
+Point(48)  = { x0,  y10, z0, h };
+//
+// ---------------------------------------------------------------------------//
+//   Lines                                                                    //
+// ---------------------------------------------------------------------------//
+Line(1)     = {  1,  2 };
+Line(2)     = {  2,  3 };
+Line(3)     = {  3,  4 };
+Line(5)     = {  5, 26 };
+Line(6)     = { 26, 17 };
+Line(7)     = { 17, 24 };
+Line(9)     = {  9, 10 };
+Line(10)    = { 10, 12 };
+Line(14)    = { 13, 11 };
+Line(15)    = { 11, 25 };
+Line(18)    = {  8, 41 };
+Line(19)    = { 41, 23 };
+Line(20)    = { 23, 11 };
+Line(21)    = { 26, 27 };
+Line(22)    = { 27, 28 };
+Line(23)    = { 28,  5 };
+Line(24)    = { 28, 16 };
+Line(25)    = { 28, 29 };
+Line(26)    = {  5, 30 };
+Line(27)    = { 30, 18 };
+Line(28)    = { 18,  6 };
+Line(29)    = {  6, 20 };
+Line(30)    = { 20, 36 };
+Line(31)    = { 36,  7 };
+Line(32)    = {  7, 40 };
+Line(33)    = { 40,  8 };
+Line(34)    = { 39, 41 };
+Line(35)    = { 39, 38 };
+Line(36)    = {  7, 38 };
+Line(37)    = { 38, 22 };
+Line(38)    = { 29, 30 };
+Line(39)    = { 16, 19 };
+Line(40)    = { 19, 31 };
+Line(41)    = { 31, 18 };
+Line(42)    = { 31, 32 };
+Line(43)    = { 32, 33 };
+Line(44)    = { 33, 19 };
+Line(45)    = { 33, 20 };
+Line(46)    = { 33, 35 };
+Line(47)    = { 35, 36 };
+Line(48)    = {  7, 34 };
+Line(49)    = { 34, 35 };
+Line(50)    = { 34, 37 };
+Line(51)    = { 37, 38 };
+Line(52)    = { 19, 21 };
+Line(53)    = { 22, 23 };
+Line(54)    = { 24, 25 };
+Circle(55)  = { 17,  5, 16 };
+Ellipse(56) = { 21,  40, 34, 22 };
+Line(57)    = { 29, 31 };
+Line(59)    = { 40, 39 };
+Line(60)    = { 34, 21 };
+//
+Line(101) = {1,42};
+Line(103) = {43,48};
+Line(104) = {48,47};
+Line(105) = {47,44};
+Line(106) = {44,45};
+Line(108) = {46,15};
+Line(109) = {45,13};
+Line(110) = {44,11};
+Line(111) = {47,23};
+Line(112) = {48,41};
+Line(113) = {43,8};
+//
+// ---------------------------------------------------------------------------//
+//   Surfaces                                                                 //
+// ---------------------------------------------------------------------------//
+Line Loop(63)      = { 7, 54, -15, -20, -53, -56, -52, -39, -55 };
+Plane Surface(64)  = { 63 };
+Line Loop(71)      = { 53, -19, -34, 35, 37 };
+Plane Surface(72)  = { 71 };
+Line Loop(73)      = { 34, -18, -33, 59 };
+Plane Surface(74)  = { 73 };
+Line Loop(75)      = { 35, -36, 32, 59 };
+Plane Surface(76)  = { 75 };
+Line Loop(77)      = { 37, -56, -60, 50, 51 };
+Plane Surface(78)  = { 77 };
+Line Loop(79)      = { 50, 51, -36, 48 };
+Plane Surface(80)  = { 79 };
+Line Loop(81)      = { 49, 47, 31, 48 };
+Plane Surface(82)  = { 81 };
+Line Loop(83)      = { 60, -52, -44, 46, -49 };
+Plane Surface(84)  = { 83 };
+Line Loop(85)      = { 46, 47, -30, -45 };
+Plane Surface(86)  = { 85 };
+Line Loop(87)      = { 45, -29, -28, -41, 42, 43 };
+Plane Surface(88)  = { 87 };
+Line Loop(89)      = { 44, 40, 42, 43 };
+Plane Surface(90)  = { 89 };
+Line Loop(91)      = { 39, 40, -57, -25, 24 };
+Plane Surface(92)  = { 91 };
+Line Loop(93)      = { 57, 41, -27, -38 };
+Plane Surface(94)  = { 93 };
+Line Loop(95)      = { 25, 38, -26, -23 };
+Plane Surface(96)  = { 95 };
+Line Loop(97)      = { 22, 23, 5, 21 };
+Plane Surface(98)  = { 97 };
+Line Loop(99)      = { 55, -24, -22, -21, 6 };
+Plane Surface(100) = { 99 };
+//
+Line Loop(116) = {113,18,-112,-103};
+Plane Surface(117) = {116};
+Line Loop(118) = {112,19,-111,-104};
+Plane Surface(119) = {118};
+Line Loop(120) = {111,20,-110,-105};
+Plane Surface(121) = {120};
+Line Loop(122) = {110,-14,-109,-106};
+Plane Surface(123) = {122};
+// -- Modified Contact and Backing plate ----------------
+Point(49) = { x29, y0,  z0, h};
+Point(50) = { x29, y1,  z0, h};
+Point(51) = { x29, y3,  z0, h};
+Point(52) = { x12, y3,  z0, h};
+Point(53) = { x0,  y14, z0, h};
+Point(54) = { xa,  y14, z0, h};
+Point(55) = { x12, y14, z0, h};
+Point(56) = { x29, y15, z0, h};
+Point(57) = { x0,  y15, z0, h};
+Point(58) = { xa,  y15, z0, h};
+Line(125) = {24, 49};
+Line(126) = {49, 9};
+Line(127) = {45, 53};
+Line(128) = {53, 57};
+Line(129) = {13, 54};
+Line(130) = {54, 58};
+Line(131) = {13, 52};
+Line(132) = {52, 51};
+Line(133) = {25, 50};
+Line(134) = {50, 49};
+Line(135) = {50, 51};
+Line(136) = {25, 52};
+Line(137) = {52, 55};
+Line(138) = {55, 54};
+Line(139) = {54, 53};
+Line(140) = {55, 56};
+Line(141) = {51, 56};
+Line(142) = {56, 58};
+Line(143) = {58, 57};
+Line(144) = {57, 46};
+Line(145) = {58, 15};
+Line(146) = {56, 14};
+Line(147) = {14, 15};
+Line(148) = {14, 12};
+Line(149) = {10, 50};
+Line(150) = {51, 12};
+Line Loop(151) = {15, 136, -131, 14};
+Plane Surface(152) = {151};
+Line Loop(153) = {136, 132, -135, -133};
+Plane Surface(154) = {153};
+Line Loop(155) = {133, 134, -125, 54};
+Plane Surface(156) = {155};
+Line Loop(157) = {131, 137, 138, -129};
+Plane Surface(158) = {157};
+Line Loop(159) = {109, 129, 139, -127};
+Plane Surface(160) = {159};
+Line Loop(161) = {128, -143, -130, 139};
+Plane Surface(162) = {161};
+Line Loop(163) = {142, -130, -138, 140};
+Plane Surface(164) = {163};
+Line Loop(165) = {140, -141, -132, 137};
+Plane Surface(166) = {165};
+Line Loop(167) = {135, 150, -10, 149};
+Plane Surface(168) = {167};
+Line Loop(169) = {143, 144, 108, -145};
+Plane Surface(170) = {169};
+Line Loop(173) = {146, 148, -150, 141};
+Plane Surface(174) = {173};
+Line Loop(175) = {126, 9, 149, 134};
+Plane Surface(176) = {175};
+Line Loop(177) = {147, -145, -142, 146};
+Plane Surface(178) = {177};
+// -- modified TOOL --------------------------
+Point(60) = {x0, y16, z0, h};
+Point(61) = {xa, y16, z0, h};
+Point(62) = {x5, y16, z0, h};
+Point(63) = {x5, y17, z0, h};
+Point(64) = {xa, y17, z0, h};
+Point(65) = {x0, y17, z0, h};
+Line(179) = {43, 60};
+Line(180) = {8, 61};
+Line(181) = {5, 62};
+Line(182) = {62, 63};
+Line(183) = {61, 64};
+Line(184) = {60, 65};
+Line(185) = {63, 4};
+Line(186) = {64, 1};
+Line(187) = {65, 42};
+Line(188) = {65, 64};
+Line(189) = {64, 63};
+Line(190) = {60, 61};
+Line(191) = {61, 62};
+Line Loop(192) = {179, 190, -180, -113};
+Plane Surface(193) = {192};
+Line Loop(194) = {180, 191, -181, 26, 27, 28, 29, 30, 31, 32, 33};
+Plane Surface(195) = {194};
+Line Loop(196) = {190, 183, -188, -184};
+Plane Surface(197) = {196};
+Line Loop(198) = {189, -182, -191, 183};
+Plane Surface(199) = {198};
+Line Loop(200) = {189, 185, -3, -2, -1, -186};
+Plane Surface(201) = {200};
+Line Loop(202) = {188, 186, 101, -187};
+Plane Surface(203) = {202};
+// ---------------------------------------------------------------------------//
+//   Mapped Mesh Definition                                                   //
+// ---------------------------------------------------------------------------//
+// -- across boundary layer ----------------------------------------------------
+Transfinite Line { -5, 23, 38, 41, 45, 47, -48, -36, -59, -18 } = bl1 Using Progression bl1_bias;
+Transfinite Line {-21, 22 }  = bl1       Using Progression bl1_bias;
+Transfinite Line { 55 }      = 2*bl1 - 1 Using Progression no_bias;
+Transfinite Line { 51,-50 }  = bl1       Using Progression bl1_bias;
+Transfinite Line { 56 }      = 2*bl1 - 1 Using Progression no_bias;
+// -- across transition layer --------------------------------------------------
+Transfinite Line { -6, -24, 40, -44, -60, -37, -19 } = bl2 Using Progression bl2_bias; 
+Transfinite Line { 42, 43 }  = bl2 Using Progression no_bias;
+Transfinite Line { 29, 28 }  = bl2 Using Progression no_bias;
+Transfinite Line { 42, 43 }  = bl2 Using Progression no_bias;
+// -- probe --------------------------------------------------------------------
+Transfinite Line { 52 }      = n2  Using Progression no_bias;
+Transfinite Line { 30, 46 }  = n2b Using Progression no_bias;
+Transfinite Line { 31, 49 }  = n4  Using Progression no_bias;
+// -- shoulder -----------------------------------------------------------------
+Transfinite Line {-39 }      = n1  Using Progression bl_trans_bias;
+Transfinite Line { 27, 57 }  = n1b Using Progression no_bias;
+Transfinite Line {-25,-26 }  = n4  Using Progression bl1_bias;
+// -- probe bottom -------------------------------------------------------------
+Transfinite Line { 53 }      = n3  Using Progression no_bias;
+Transfinite Line { 34, 33 }  = n3b Using Progression no_bias;
+Transfinite Line {-32, 35 }  = n4  Using Progression bl1_bias;
+// -- wp -----------------------------------------------------------------------
+Transfinite Line {  54 }     = n5  Using Progression no_bias;
+// -- contact ------------------------------------------------------------------
+Transfinite Line { 10, 14 }  = n7  Using Progression no_bias;
+// -- bp -----------------------------------------------------------------------
+
+// -- tool ---------------------------------------------------------------------
+Transfinite Line {  2 }      = n11 Using Progression tool_top_v_bias;
+Transfinite Line { 1, 3 }    = n13 Using Progression no_bias;
+// -- refinement zone ----------------------------------------------------------
+Transfinite Line { 15, 131, 138, 142 } = n15 Using Progression no_bias;
+Transfinite Line {  7 }      = n15 Using Progression no_bias;
+// -- remaining elements under tool --------------------------------------------
+Transfinite Line { 20 }      = n16 Using Progression no_bias;
+//
+Transfinite Line { 101, 113, 112, 111, 110, 109, 108, 139, 143 } = n17 Using Progression no_bias;
+Transfinite Line { 106, 136, 135 }     = n7  Using Progression no_bias;
+Transfinite Line { 105 }     = n16 Using Progression no_bias;
+Transfinite Line {-104 }     = bl2 Using Progression bl2_bias;
+Transfinite Line {-103 }     = bl1 Using Progression bl1_bias;
+//
+Transfinite Line {127, 129, 137, 141} = n20 Using Progression no_bias;
+Transfinite Line {128, 130, 140, 132, 133, 125 } = n21 Using Progression no_bias;
+Transfinite Line {144, 145}  = n19 Using Progression no_bias;
+Transfinite Line {-146, 147, 148} = n19 Using Progression bp_v_bias;
+Transfinite Line {134, 9}    = n22 Using Progression no_bias;
+Transfinite Line {-126, 149, -150} = n19 Using Progression bp_h_bias;
+//
+Transfinite Line {190, 188}      = n17 Using Progression no_bias;
+Transfinite Line {180, 179, 181} = n23 Using Progression no_bias;
+Transfinite Line {182, 183, 184} = n25 Using Progression no_bias;
+Transfinite Line {191, 189}      = n24 Using Progression no_bias;
+Transfinite Line {185, 186, 187} = n26 Using Progression no_bias;
+//
+// -- Mapped Mesh Surfaces -----------------------------------------------------
+Transfinite Surface {  74 }  = { 39, 40,  8, 41 };
+Transfinite Surface {  72 }  = { 22, 38, 41, 23 };
+Transfinite Surface {  76 }  = { 38,  7, 40, 39 };
+Transfinite Surface {  80 }  = {  7, 38, 37, 34 };
+Transfinite Surface {  78 }  = { 21, 34, 38, 22 };
+Transfinite Surface {  82 }  = { 34, 35, 36,  7 };
+Transfinite Surface {  86 }  = { 35, 33, 20, 36 };
+Transfinite Surface {  84 }  = { 21, 19, 33, 34 };
+Transfinite Surface {  90 }  = { 19, 31, 32, 33 };
+Transfinite Surface {  88 }  = { 31, 18, 20, 33 };
+Transfinite Surface {  94 }  = { 29, 30, 18, 31 };
+Transfinite Surface {  92 }  = { 28, 31, 19, 16 };
+Transfinite Surface {  96 }  = { 28,  5, 30, 29 };
+Transfinite Surface {  98 }  = { 26,  5, 28, 27 };
+Transfinite Surface { 100 }  = { 17, 26, 28, 16 };
+//
+Transfinite Surface { 117 } = {  8, 43, 48, 41 };
+Transfinite Surface { 119 } = { 41, 48, 47, 23 };
+Transfinite Surface { 121 } = { 23, 47, 44, 11 };
+Transfinite Surface { 123 } = { 11, 44, 45, 13 };
+
+Transfinite Surface {176} = {9, 49, 50, 10};
+Transfinite Surface {168} = {12, 10, 50, 51};
+Transfinite Surface {154} = {52, 51, 50, 25};
+Transfinite Surface {152} = {13, 52, 25, 11};
+Transfinite Surface {160} = {13, 45, 53, 54};
+Transfinite Surface {158} = {54, 55, 52, 13};
+Transfinite Surface {166} = {52, 55, 56, 51};
+Transfinite Surface {164} = {55, 54, 58, 56};
+Transfinite Surface {162} = {54, 53, 57, 58};
+Transfinite Surface {170} = {57, 46, 15, 58};
+ 
+Transfinite Surface {203} = {65, 64, 1, 42};
+Transfinite Surface {197} = {60, 61, 64, 65};
+Transfinite Surface {199} = {61, 62, 63, 64};
+Transfinite Surface {193} = {43, 8, 61, 60};
+
+
+//
+// -- Recombine Surface (Quadrilateral Elements) -------------------------------
+Recombine Surface { 64, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100 };
+Recombine Surface { 117, 119, 121, 123 };
+Recombine Surface {170, 162, 164, 166, 158, 160, 154, 156, 176, 168, 174, 178, 152};
+Recombine Surface {193, 197, 199, 203};
+
+// // -- Extrude (Revolve around Y-axis) ------------------------------------------
+// -- BP
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{178, 174, 170, 162, 164, 166, 158, 160}; Layers{ n18 }; Recombine;
+}
+// -- Contact
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{123, 152, 154, 168}; Layers{ n18 }; Recombine;
+}
+// -- WP
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{176, 156, 64, 100, 98, 78, 72, 74, 76, 80, 90, 88,117,119,121}; Layers{ n18 }; Recombine;
+}
+// -- Probe
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{86, 84, 82}; Layers{ n18 }; Recombine;
+}
+// -- Shoulder
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{94, 96, 92}; Layers{ n18 }; Recombine;
+}
+// -- Tool
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{195, 193, 199, 197, 203, 201}; Layers{ n18 }; Recombine;
+}
+// -- BP
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{247, 225, 264, 281, 303, 325, 347, 364}; Layers{ n18 }; Recombine;
+}
+// -- Contact --
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{381, 403, 425, 447}; Layers{ n18 }; Recombine;
+}
+// -- WP
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{469, 491, 538, 565, 587, 812, 795, 778, 663, 641, 614, 707, 685, 761, 729}; Layers{ n18 }; Recombine;
+}
+// -- Probe
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{861, 883, 834}; Layers{ n18 }; Recombine;
+}
+// -- Shoulder
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{905, 954, 927}; Layers{ n18 }; Recombine;
+}
+// Tool
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{1011, 1028, 1067, 1050, 1084, 1116}; Layers{ n18 }; Recombine;
+}
+// -- BP
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{1138, 1160, 1177, 1194, 1216, 1238, 1260, 1277}; Layers{ n18 }; Recombine;
+}
+// -- Contact
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{1294, 1316, 1338, 1360}; Layers{ n18 }; Recombine;
+}
+// -- WP
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{1382, 1404, 1451, 1478, 1500, 1725, 1703, 1627, 1600, 1517, 1534, 1551, 1573, 1671, 1649}; Layers{ n18 }; Recombine;
+}
+// -- Probe
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{1796, 1752, 1774}; Layers{ n18 }; Recombine;
+}
+// -- Shoulder
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{1818, 1845, 1867}; Layers{ n18 }; Recombine;
+}
+// -- Tool
+Extrude {{0, 1, 0}, {0, 0, 0}, 2*Pi/3} {
+  Surface{1924, 1941, 1958, 1980, 1997, 2029}; Layers{ n18 }; Recombine;
+}
+//
+// ---------------------------------------------------------------------------//
+//   Physical Geometry                                                        //
+// ---------------------------------------------------------------------------//
+// -- VOLUMES ------------------------------------------------------------------
+// -- Backplate ----------------------------------------------------------------
+Physical Volume(1000) = {79, 80, 3, 41, 40, 2, 1, 81, 42, 45, 44, 5, 6, 46, 7, 86, 47, 43, 82, 85, 84, 83, 8, 4};
+// -- Contact ------------------------------------------------------------------
+Physical Volume(2000) = {11, 10, 51, 89, 88, 50, 49, 87, 48, 9, 90, 51, 12};
+// -- Tool ---------------------------------------------------------------------
+Physical Volume(3000) = {39, 77, 78, 117, 36, 76, 115, 75, 38, 114, 37, 116, 112, 113, 74, 35, 73, 34};
+// -- Workpiece ----------------------------------------------------------------
+Physical Volume(4000) = {91, 52, 13, 53, 92, 14, 93, 15, 54, 27, 100, 57, 98, 99, 101, 58, 61, 62,18, 19, 26, 63, 64, 60, 59, 102, 25, 103, 104, 105, 20, 21, 22,66, 65, 23, 24, 97, 96, 55, 56, 94, 95, 16, 17};
+// -- Probe Thread -------------------------------------------------------------
+Physical Volume(5000) = {68, 108, 30, 29, 28, 106, 107, 69, 67};
+// -- Shoulder Scroll ----------------------------------------------------------
+Physical Volume(6000) = {32, 31, 33, 111, 109, 110, 72, 70, 71};
+//
+// -- SURFACES -----------------------------------------------------------------
+// -- Probe Bottom Surface -----------------------------------------------------
+Physical Surface(3100) = {1568, 2501, 658, 769, 1542, 2480, 1666, 2522, 680};
+// -- Tool Top -----------------------------------------------------------------
+Physical Surface(3200) = {1111, 2766, 2024, 1082, 2739, 1995};
+// -- Tool Lower Section -------------------------------------------------------
+Physical Surface(3220) = {2683, 974, 1887, 1020, 2696, 1933};
+// -- Tool Upper Section -------------------------------------------------------
+Physical Surface(3240) = {2720, 1037, 1967, 1956, 1065, 2711};
+// -- Probe Exit Surface -------------------------------------------------------
+Physical Surface(3300) = {1618, 1648, 2426, 2543, 605, 706};
+// -- Shoulder Scroll Top Surface ----------------------------------------------
+Physical Surface(3400) = {922, 900, 1813, 1862, 2663, 2620};
+// -- Shoulder Scroll Link Surface ---------------------------------------------
+Physical Surface(3700) = {1690, 2404, 748};
+// -- Probe Link Surface -------------------------------------------------------
+Physical Surface(3800) = {744, 1686, 2400};
+// -- Probe Side Surface -------------------------------------------------------
+Physical Surface(3900) = {2560, 1791, 829, 878, 2603, 1769};
+// -- InletOutlet (WP) ---------------------------------------------------------
+Physical Surface(4100) = {2246, 1373, 460};
+// -- WP Top -------------------------------------------------------------------
+Physical Surface(4300) = {2242, 456, 1369, 1399, 486, 2271, 2289, 505, 1418};
+Physical Surface(4350) = {582, 564, 1495, 1477, 2347, 2364};
+// -- Shoulder Scroll Bottom Surface -------------------------------------------
+Physical Surface(4500) = {533, 1446, 2317};
+// -- Shoulder Scroll Outside Surface ------------------------------------------
+Physical Surface(4600) = {1465, 1491, 578, 552, 2360, 2335};
+//
+//
+// ===========================================================================//
+//   End of File                                                              //
+// ===========================================================================/
diff --git a/benchmarks/levelset/level.med b/benchmarks/levelset/level.med
new file mode 100644
index 0000000000000000000000000000000000000000..5e390c051b693f55a2c7578b478832bb285b99bf
Binary files /dev/null and b/benchmarks/levelset/level.med differ