[Gmsh] Mesh

David Colignon David.Colignon at ulg.ac.be
Sun Feb 1 14:10:58 CET 2015


Hi,

Don't use the same variable "a" for calculating line loops arguments and for layers in the extrusion !

Regards,

Dave

-- 
David Colignon, Ph.D.
1er logisticien de recherche
CÉCI - Consortium des Équipements de Calcul Intensif
ACE - Applied & Computational Electromagnetics
Université de Liège
Sart-Tilman B28
10, Grande Traverse
4000 Liège - BELGIQUE
Tél: +32 (0)4 366 37 32
WWW:    http://www.ceci-hpc.be/

On 31/01/15 18:26, Jose Aguilar Cano wrote:
> 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
>
>
> _______________________________________________
> gmsh mailing list
> gmsh at geuz.org
> http://www.geuz.org/mailman/listinfo/gmsh
>




More information about the gmsh mailing list