--- /dev/null
+#box b -20 -13 -20 40 25 20
+#ellipse w 0 0 0 15 10
+#mkedge w w
+#wire w w
+#mkplane w w
+#prism f w 2 0 30
+#fuse s f b
+
+restore 6_F1234.draw s
+tscale s 0 0 0 SCALE2
+explode s E
+mkevol result s
+updatevol s_7 0 2*SCALE2 1 6*SCALE2 2 4*SCALE2
+buildevol
+
+set square 6903.87