Geometry.OldNewReg=0;

lc=100;

Point (1)={0,0,0,1};
Point (2)={0,10,0,lc};
Point (3)={15,10,0,lc};
Point (4)={15,7,0,lc};

Point (5)={15,0,0,lc};
Point (6)={15.001,-7,0,1};
Point (7)={15.001,-10,0,1};

Point (9)={0,-10,0,lc};

Point (10)={20,0,0,lc};

Point (11)={19,10,0,lc};
Point (12)={25,4,0,lc};
Point (13)={25,0,0,lc};
Point (14)={25,-4,0,lc};
Point (15)={19,-10,0,lc};

Point (16)={20,1.5,0,lc};
Point (17)={20,-1.5,0,lc};
Point (18)={0,0,0,1};

Line (1)={1,2};
Line (2)={9,18};

BSpline(14)={2,2,2,3,3,3,11,12,13,13,14,15,7,7,7,9,9,9};
BSpline(15)={1,1,1,4,4,4,16,10,10,10,17,6,6,6,18,18,18};

Line Loop (8)={1,14,2,-15};

Plane Surface (1)={8};

Transfinite Line {1}=80 Using Progression 1.1;
Transfinite Line {14}=50 Using Bump .5;
Transfinite Line {-2}=80 Using Progression 1.1;
Transfinite Line {15}=50 Using Bump 1.3;

Transfinite Surface {1}={1,2,9,18};

Recombine Surface {1};
Mesh.Smoothing=100;


Extrude Surface {1, {0.0,0.0,1.0}}{Layers{1};Recombine;};

//Extrude Surface {2, {0.0,0.0,1.0}}{Layers{1};Recombine;};

//Extrude Surface {3, {0.0,0.0,1.0}}{Layers{1};Recombine;};