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*SCALE1 s_2

checkprops result -s 5.22432e+06
