tests/bugs/modalg_7/bug28763

   1 puts "======="
   2 puts "0028763"
   3 puts "======="
   4 puts ""
   5 ##################################################
   6 # Projection of a short line segment on a polar surface causes exception
   7 ##################################################
   8
   9 beziersurf s 2 2 0 0 0 0 1 0 1 0 0 1 1 0
  10 line c 0 0 0 1 1 0
  11 trim c c 0 1e-6
  12 project result c s
  13
  14 if {![regexp "Trimmed curve" [dump result]]} {
  15   puts "Error: Projection not done"
  16 }
  17
  18 checklength result -l 1.e-6