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 for { set i 2 } { $i <= 5 } { incr i } {
  15     regexp "dist $i: +(\[-0-9.+eE\]+)" $info full pp1
  16     if { $pp1 !=4.3624023150195192 } {
  17        puts "Error : Extrema is wrong on dist $i"
  18        set status 1
  19     }
  20 }
  21
  22 regexp {dist 1: +([-0-9.+eE]+)} $info full pp2
  23 set pp_ch 4.3624023150195184
  24
  25 if { $pp2 != $pp_ch } {
  26     puts "Error : Extrema is wrong on dist 1"
  27     set status 1
  28 }
  29
  30 if { $status != 0 } {
  31     puts "Error : Extrema is wrong"
  32 } else {
  33     puts "OK: Extrema is valid"
  34 }