bsplinecurve w1 3 2  -1.0 4   1.0 4  0 0 0 1  2 10 0 1  4 6 0 1  10 0 0 1
mkedge w1 w1 
polyline w2 10 0 0 0 0 0
wire w w1 w2
mkplane w w
prism s w 0 2 10
tscale s 0 0 0 SCALE1
explode s E
mkevol result s
updatevol s_4 0 0.3*SCALE1 1 0.6*SCALE1 2 0.3*SCALE1
buildevol

set square 33938.1