ellipse w 0 0 0 10 5
mkedge w w
wire w w
mkplane w w
prism s w 2 0 10
tscale s 0 0 0 SCALE1
explode s E
mkevol result s
updatevol s_3 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
buildevol
 
set square 78053.9
