parabola w1 0 0 0 1 0 0 0 0 1 50
mkedge w1 w1 -100 100
polyline w2 0 -100 50 0 100 50
wire w w1 w2
mkplane w w
prism s w 20 0 100
tscale s 0 0 0 SCALE1
explode s E
blend result s 1*SCALE s_4

checkprops result -s 5.39801e+06
