box b 3 3 3
profile p c 0.5 360
ttranslate p 1.5 1 0
featprism b p p 0 0 1 0 1
featperformval prism bb 5

profile pp x 0.5 y 3 x -0.5 y -3
trotate pp 0 0 0 1 0 0 90
trotate pp 0 0 0 0 0 1 90
ttranslate pp 1.5 1.5 0
nexplode bb f
nexplode pp e

featrevol bb pp pp 1.5 1.5 1 0 0 1 1 1
addslide revol pp_4 bb_3
featperform revol result

set square 54