beziercurve w 3 0 0 0 5 10 0 10 15 0
mkedge w w
wire w w
polyline profile 0 0 0  10 0 0  10 0 10  0 0 10  0 0 0
mkplane profile profile
pipe s w profile
tscale s 0 0 0 SCALE1
fsameparameter s SCALE1*1.e-7
explode s E
blend result s 1*SCALE1 s_5 

checkprops result -s 81743.8
