
p = newp ;
Point( p   ) = { 0. , 0.  , 0. , 1. } ;
Point( p+1 ) = { 0. , 4.  , 0. , 1. } ;
Point( p+2 ) = { 0. , 5.  , 0. , 1. } ;
Point( p+3 ) = { 0. , 10. , 0. , 1. } ;

l = newl ;
Line( l   ) = { p   , p+1 } ;
Line( l+1 ) = { p+1 , p+2 } ;
Line( l+2 ) = { p+2 , p+3 } ;

tmp[] = Extrude { 5. , 0. , 0. }
          { Line{ l:l+2 } ; Layers{ 5 } ; Recombine ; } ;

Physical Surface( 1 ) = { tmp[1] , tmp[5] , tmp[9] } ;

tmp[] = Extrude { 5. , 0. , 0. }
          { Line{ tmp[0] , tmp[8] } ; Layers{ 5 } ; Recombine ; } ;

Physical Surface( 1 ) += { tmp[1] , tmp[5] } ;
