tests/bugs/modalg_5/bug23706_15

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