[Gmsh] Mesh

Jose Aguilar Cano alfonsojac7 at gmail.com
Sat Jan 31 18:26:04 CET 2015


To whom it may concern,

I am an student of the Université Libre Bruxelles and Vrije Univerteit
Bruxelles and I am doing my Master Thesis there. As I am using gmsh for
meshing in 3D my projects, I have faced some issues that I would like to
ask to you in order to find a possible solution.

My project concerns about placing randomly particles inside a volume with
different radius. This is done by MATLAB. Further, I have created a code in
MATLAB in order to obtain automatically the gmsh code. My issue comes when
I tried to mesh the result in Gmsh it takes too much time and blocked my
computer. I attached hereunder the code that I open with Gmsh in order to
mesh in 3D. I am open to any suggestion, please let me now.

Mesh.Algorithm3D=1;
lc=1e-2;
a=1;
L=100e-6;
H=100e-6;
D=100e-6;
Point(1)={0,0,0,lc};
Point(2)={L,0,0,lc};
Point(3)={L,H,0,lc};
Point(4)={0,H,0,lc};
Point(5)={0,0,D,lc};
Point(6)={L,0,D,lc};
Point(7)={L,H,D,lc};
Point(8)={0,H,D,lc};
Line(1)={1,2};
Line(2)={2,3};
Line(3)={3,4};
Line(4)={4,1};
Line(5)={5,6};
Line(6)={6,7};
Line(7)={7,8};
Line(8)={8,5};
Line(9)={1,5};
Line(10)={4,8};
Line(11)={2,6};
Line(12)={3,7};
Point(newp)={0.00007203-0.00001500, 0.00007841, 0.00002389,lc};
extr[]+=Extrude {{0,0,1},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007203, 0.00007841, 0.00002389,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00003421-0.00001435, 0.00005334, 0.00008262,lc};
extr[]+=Extrude {{0,0,1},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003421, 0.00005334, 0.00008262,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008375-0.00001370, 0.00002514, 0.00008417,lc};
extr[]+=Extrude {{0,0,1},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008375, 0.00002514, 0.00008417,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00007121-0.00001370, 0.00008336, 0.00006131,lc};
extr[]+=Extrude {{0,0,1},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007121, 0.00008336, 0.00006131,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004204-0.00001305, 0.00006149, 0.00002570,lc};
extr[]+=Extrude {{0,0,1},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004204, 0.00006149, 0.00002570,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00006523-0.00001305, 0.00001540, 0.00003351,lc};
extr[]+=Extrude {{0,0,1},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006523, 0.00001540, 0.00003351,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00001646-0.00001305, 0.00002023, 0.00007390,lc};
extr[]+=Extrude {{0,0,1},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001646, 0.00002023, 0.00007390,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00001560-0.00001305, 0.00004547, 0.00004125,lc};
extr[]+=Extrude {{0,0,1},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001560, 0.00004547, 0.00004125,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00003872-0.00001240, 0.00002718, 0.00003128,lc};
extr[]+=Extrude {{0,0,1},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003872, 0.00002718, 0.00003128,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00006908-0.00001240, 0.00004101, 0.00005510,lc};
extr[]+=Extrude {{0,0,1},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006908, 0.00004101, 0.00005510,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00002386-0.00001240, 0.00007450, 0.00005288,lc};
extr[]+=Extrude {{0,0,1},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002386, 0.00007450, 0.00005288,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00002042-0.00001240, 0.00008473, 0.00001275,lc};
extr[]+=Extrude {{0,0,1},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002042, 0.00008473, 0.00001275,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00005375-0.00001240, 0.00002330, 0.00007655,lc};
extr[]+=Extrude {{0,0,1},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005375, 0.00002330, 0.00007655,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00002232-0.00001240, 0.00008324, 0.00008430,lc};
extr[]+=Extrude {{0,0,1},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00002232, 0.00008324, 0.00008430,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008670-0.00001175, 0.00004532, 0.00002025,lc};
extr[]+=Extrude {{0,0,1},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008670, 0.00004532, 0.00002025,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008618-0.00001175, 0.00006140, 0.00007298,lc};
extr[]+=Extrude {{0,0,1},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008618, 0.00006140, 0.00007298,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004371-0.00001175, 0.00008695, 0.00003481,lc};
extr[]+=Extrude {{0,0,1},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004371, 0.00008695, 0.00003481,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00006758-0.00001175, 0.00007989, 0.00008690,lc};
extr[]+=Extrude {{0,0,1},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006758, 0.00007989, 0.00008690,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00001568-0.00001175, 0.00001733, 0.00001852,lc};
extr[]+=Extrude {{0,0,1},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001568, 0.00001733, 0.00001852,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00001742-0.00001175, 0.00004188, 0.00001201,lc};
extr[]+=Extrude {{0,0,1},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001742, 0.00004188, 0.00001201,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008632-0.00001175, 0.00001756, 0.00005666,lc};
extr[]+=Extrude {{0,0,1},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008632, 0.00001756, 0.00005666,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00006174-0.00001175, 0.00004921, 0.00008617,lc};
extr[]+=Extrude {{0,0,1},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006174, 0.00004921, 0.00008617,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004214-0.00001175, 0.00004843, 0.00005497,lc};
extr[]+=Extrude {{0,0,1},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004214, 0.00004843, 0.00005497,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00005974-0.00001110, 0.00004170, 0.00001170,lc};
extr[]+=Extrude {{0,0,1},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005974, 0.00004170, 0.00001170,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00001322-0.00001110, 0.00001393, 0.00004518,lc};
extr[]+=Extrude {{0,0,1},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001322, 0.00001393, 0.00004518,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00003668-0.00001110, 0.00001120, 0.00005497,lc};
extr[]+=Extrude {{0,0,1},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003668, 0.00001120, 0.00005497,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008818-0.00001045, 0.00005762, 0.00004606,lc};
extr[]+=Extrude {{0,0,1},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008818, 0.00005762, 0.00004606,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004663-0.00001045, 0.00007527, 0.00006573,lc};
extr[]+=Extrude {{0,0,1},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004663, 0.00007527, 0.00006573,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008561-0.00001045, 0.00001713, 0.00001175,lc};
extr[]+=Extrude {{0,0,1},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008561, 0.00001713, 0.00001175,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00001066-0.00001045, 0.00005168, 0.00006672,lc};
extr[]+=Extrude {{0,0,1},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001066, 0.00005168, 0.00006672,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00005112-0.00000980, 0.00001192, 0.00001085,lc};
extr[]+=Extrude {{0,0,1},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005112, 0.00001192, 0.00001085,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004654-0.00000980, 0.00008779, 0.00001027,lc};
extr[]+=Extrude {{0,0,1},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004654, 0.00008779, 0.00001027,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008978-0.00000915, 0.00008751, 0.00004295,lc};
extr[]+=Extrude {{0,0,1},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008978, 0.00008751, 0.00004295,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00009085-0.00000915, 0.00002683, 0.00003562,lc};
extr[]+=Extrude {{0,0,1},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009085, 0.00002683, 0.00003562,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00000936-0.00000915, 0.00008666, 0.00003506,lc};
extr[]+=Extrude {{0,0,1},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000936, 0.00008666, 0.00003506,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00009073-0.00000915, 0.00008938, 0.00007934,lc};
extr[]+=Extrude {{0,0,1},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009073, 0.00008938, 0.00007934,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00001353-0.00000915, 0.00006824, 0.00003091,lc};
extr[]+=Extrude {{0,0,1},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001353, 0.00006824, 0.00003091,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00006187-0.00000850, 0.00001119, 0.00005593,lc};
extr[]+=Extrude {{0,0,1},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006187, 0.00001119, 0.00005593,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00003327-0.00000850, 0.00000979, 0.00008881,lc};
extr[]+=Extrude {{0,0,1},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003327, 0.00000979, 0.00008881,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00000971-0.00000850, 0.00004799, 0.00009060,lc};
extr[]+=Extrude {{0,0,1},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000971, 0.00004799, 0.00009060,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004416-0.00000850, 0.00007609, 0.00009126,lc};
extr[]+=Extrude {{0,0,1},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004416, 0.00007609, 0.00009126,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00006616-0.00000850, 0.00005205, 0.00003346,lc};
extr[]+=Extrude {{0,0,1},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00006616, 0.00005205, 0.00003346,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00000847-0.00000785, 0.00006477, 0.00000952,lc};
extr[]+=Extrude {{0,0,1},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00000847, 0.00006477, 0.00000952,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00005901-0.00000785, 0.00006794, 0.00004435,lc};
extr[]+=Extrude {{0,0,1},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005901, 0.00006794, 0.00004435,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00009122-0.00000785, 0.00000912, 0.00003022,lc};
extr[]+=Extrude {{0,0,1},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009122, 0.00000912, 0.00003022,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00009169-0.00000785, 0.00003874, 0.00005571,lc};
extr[]+=Extrude {{0,0,1},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00009169, 0.00003874, 0.00005571,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00001082-0.00000720, 0.00008939, 0.00006569,lc};
extr[]+=Extrude {{0,0,1},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00001082, 0.00008939, 0.00006569,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00003870-0.00000720, 0.00003516, 0.00000900,lc};
extr[]+=Extrude {{0,0,1},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003870, 0.00003516, 0.00000900,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008760-0.00000720, 0.00006932, 0.00009264,lc};
extr[]+=Extrude {{0,0,1},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008760, 0.00006932, 0.00009264,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00005129-0.00000720, 0.00002789, 0.00005347,lc};
extr[]+=Extrude {{0,0,1},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00005129, 0.00002789, 0.00005347,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00003395-0.00000655, 0.00009341, 0.00006659,lc};
extr[]+=Extrude {{0,0,1},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00003395, 0.00009341, 0.00006659,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00008979-0.00000655, 0.00009073, 0.00000758,lc};
extr[]+=Extrude {{0,0,1},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00008979, 0.00009073, 0.00000758,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00007118-0.00000655, 0.00000670, 0.00007349,lc};
extr[]+=Extrude {{0,0,1},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00007118, 0.00000670, 0.00007349,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004261-0.00000590, 0.00009310, 0.00008713,lc};
extr[]+=Extrude {{0,0,1},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004261, 0.00009310, 0.00008713,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004815-0.00000590, 0.00009407, 0.00005368,lc};
extr[]+=Extrude {{0,0,1},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004815, 0.00009407, 0.00005368,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Point(newp)={0.00004278-0.00000525, 0.00000559, 0.00002745,lc};
extr[]+=Extrude {{0,0,1},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-2}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,0,1},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-5}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{0,1,0},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-6}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-1}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-3}; Layers{a};};
extr[]+=Extrude {{1,0,0},{0.00004278, 0.00000559, 0.00002745,lc},Pi/2}
{Point{newp-2}; Layers{a};};
a=newl;
Line Loop(newll)={a-9,-(a-5),a-3};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-10,-(a-6),-(a-3)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),-(a-5),-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,a-6,-(a-4)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-10),-(a-7),-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-9,a-8,-(a-2)};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={a-11,-(a-7),a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
Line Loop(newll)={-(a-12),a-8,a-1};
Ruled Surface(news)={newll-1};
DomainS[]+=news-1;
LLxyo=newll;
Line Loop(LLxyo)={1,2,3,4};
PSxyo=newreg;
Plane Surface(PSxyo)={LLxyo};
LLxyh=newll;
Line Loop(LLxyh)={5,6,7,8};
PSxyh=newreg;
Plane Surface(PSxyh)={LLxyh};
LLxzo=newll;
Line Loop(LLxzo)={1,11,-5,-9};
PSxzo=newreg;
Plane Surface(PSxzo)={LLxzo};
LLxzw=newll;
Line Loop(LLxzw)={3,10,-7,-12};
PSxzw=newreg;
Plane Surface(PSxzw)={LLxzw};
LLzyw=newll;
Line Loop(LLzyw)={11,6,-12,-2};
PSzyw=newreg;
Plane Surface(PSzyw)={LLzyw};
LLzyo=newll;
Line Loop(LLzyo)={9,-8,-10,4};
PSzyo=newreg;
Plane Surface(PSzyo)={LLzyo};
Physical Surface ("Left")={};
Physical Surface ("Right")={};
rectangle[0]=newreg;
Surface Loop(rectangle[0])={PSxyo,PSxyh,PSxzo,PSxzw,PSzyw,PSzyo};
loops[0]=newreg;
Surface Loop(loops[0])={DomainS[]};
Volume(newv)={loops[0], rectangle[0]};
Physical Volume ("Electrolyte")={};


Thank you for your time,

Yours faithfully,

Jose Aguilar Cano
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.geuz.org/pipermail/gmsh/attachments/20150131/0f34f128/attachment.html>


More information about the gmsh mailing list