--- /dev/null
+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