--- /dev/null
+box b -30 -30 -30 60 60 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 0 pi/2
+trotate w1 0 0 0 1 0 0 90
+polyline w2 15 0 0 27 0 -12 0 0 -12 0 0 10
+orientation w2 R
+wire w w1 w2
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+bfuseblend result s b 1*SCALE1
+
+set square 1.29262e+06