SetFactory("OpenCASCADE");

Mesh.Algorithm = 6 ;

Cylinder(1) = {0,0,0,0,0,0.3,1,2*Pi/3};

Case = 1 ;

If(Case == 1)
Transfinite Line{5,6} = 10 ;
Transfinite Line{1} = 30 ;
Transfinite Surface{2} = {1,2,5};
ElseIf(Case == 2)
Transfinite Line{2,4} = 10 ;
Transfinite Line{1,3} = 30 ;
Transfinite Surface{1} ;
EndIf

