
p = newp ;
Point( p   ) = { -0.5 , 0. , 0. } ;
Point( p+1 ) = {  0.5 , 0. , 0. } ;

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

Physical Line( 100 ) = l   ;

tmp[] = Physical Line { 100 } ;

Rotate { { 0. , 0. , 1. } , { 0. , 0. , 0. } , Pi/2. }
       { Line { tmp[] } ; }
