
Radius = 0.1 ;

p = newp ;
Point( p   ) = {  0.     ,  0.     , 0. , ( 2. * Pi * Radius / 30. ) } ;
Point( p+1 ) = {  Radius ,  0.     , 0. , ( 2. * Pi * Radius / 30. ) } ;
Point( p+2 ) = {  0.     ,  Radius , 0. , ( 2. * Pi * Radius / 30. ) } ;
Point( p+3 ) = { -Radius ,  0.     , 0. , ( 2. * Pi * Radius / 30. ) } ;
Point( p+4 ) = {  0.     , -Radius , 0. , ( 2. * Pi * Radius / 30. ) } ;

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

ll = newll ;
Line Loop( ll ) = { l:l+3 } ;

s = news ;
Plane Surface( s ) = { ll } ;

Mesh 2 ;
