--- /dev/null
+ellipse profile 10 -115.064945 75.458923 1 -1 1 5 2
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+hyperbola w 10 0 -50 1 0 0 50 50
+mkedge w w -pi/2. pi/2.
+wire w w
+pipe result w profile
+
+set square 5810.34