--- /dev/null
+restore E_long.rle E
+nexplode E face E_1 E_2 E_3 E_4 E_5 E_6 E_7 E_8 E_9 E_10 E_11 E_12 E_13 E_14
+
+profile cont S E_10 F 50 -100 X 50 Y -100 X -50
+ttranslate cont 0 0 -50
+featprism E cont cont 0 0 1 1 1
+featperform prism result E_5
+
+set square 960000