box b 3 3 3
profile p x 1 y 1 x -1 y -1
ttranslate p 0 1 3
explode b f
mksurface s b_6
mkface f s

featrevol b p p 1.5 1.5 3 0 1 0 1 1
featperform revol result f 


set square 64.5664
