tests/bugs/modalg_5/bug23706_14

   1 puts "============"
   2 puts "OCC23706"
   3 puts "============"
   4 puts ""
   5 #########################################################################
   6 # Cannot project point on curve
   7 #########################################################################
   8
   9 2dbsplinecurve b9 2 8 1 2 2 1 3 1 4 1 5 1 6 1 7 1 8 2 4 -3 1 6 8 1 10 11 1 10 11 1 10 11 1 14 14 1 5 8 1
  10 2dbsplinecurve b10 2 8 2 2 2.5 1 3 1 3.5 1 4 1 4.5 1 5 1 5.5 2 5 20 1 8 15 1 12 18 1 12 18 1 12 18 1 16 21 1 7 12 1
  11 set info [2dextrema b9 b10]
  12
  13 set status 0
  14 for { set i 1 } { $i <= 1 } { incr i 1 } {
  15     regexp "dist $i: +(\[-0-9.+eE\]+)" $info full pp
  16     if { abs($pp - 3.8268201236765877) > 1.0e-7 } {
  17        puts "Error : Extrema is wrong on dist $i"
  18        set status 1
  19     }
  20 }
  21
  22 if { $status != 0 } {
  23     puts "Error : Extrema is wrong"
  24 } else {
  25     puts "OK: Extrema is valid"
  26 }