bsplinecurve profile 2 3 0 3 1 1 2 3 0 -45 20.74 5 -10 -75 18.74 5 10 -75 18.74 5 0 -45 20.74 5
mkedge profile profile 
wire profile profile 
mkplane profile profile
parabola w 0 0 0 1 0 0 50
mkedge w w -pi*20. pi*20.
wire w w
pipe result w profile

checkprops result -s 6104.74