****mesher
***mesh fourth.geof
**open_mast disk_quart.mast

***mesh half.geof
**open fourth.geof
**symmetry
*type line
*normal (-1. 0. 0.)
**union
*add fourth.geof

***mesh planar
**open half.geof
**symmetry
*type line
*normal (0. -1. -1)
**union
*add half.geof

***mesh cylinder.geof
**open planar.geof
**extension
*reduced
*distance 2.
*num 8

**bset top
 *function z>1.999;
**bset bottom
 *function z<0.001;
**bset X *function (z>1.999)*(abs(y)<0.0001)*(x>-0.001); *use_dimension 1
***shell rm fourth.geof half.geof planar.geof disk_quart.geof
****return