beziercurve profile 6 0 0 40 0 -20 0 0 -20 -80 0 20 -80 0 20 0 0 0 40
mkedge profile profile 
wire profile profile 
mkplane profile profile
bsplinecurve w 2 3 0 3 1 1 2 3 0 0 0 2 1000 1000 1000 1 1000 0 0 1 -100 -100 -100 2
mkedge w w
wire w w
pipe result w profile

set square 450587
