5 ##################################################
6 # Projection of a short line segment on a polar surface causes exception
7 ##################################################
9 beziersurf s 2 2 0 0 0 0 1 0 1 0 0 1 1 0
14 if {![regexp "Trimmed curve" [dump result]]} {
15 puts "Error: Projection not done"
18 checklength result -l 1.e-6