bsplinecurve profile 2 3 0 3 1 1 2 3 -25 -127.064945 75 5 25 -87.064945 75 5 25 -127.064945 77 5 -25 -127.064945 75 5
mkedge profile profile 
wire profile profile 
mkplane profile profile
hyperbola w 0 0 -50 1 0 0 50 50
mkedge w w -pi/2. pi/2.
wire w w
pipe result w profile

set square 32658.6