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 <= 9 } { incr i } {
  15     regexp "dist $i: +(\[-0-9.+eE\]+)" $info full pp1
  16     if { $pp1 != 7.2801098892805181 } {
  17        puts "Error : Extrema is wrong on dist $i"
  18        set status 1
  19     }
  20 }
  21
  22 for { set j 11 } { $j <= 19 } { incr j 1 } {
  23     regexp "dist $j: +(\[-0-9.+eE\]+)" $info full pp2
  24     if { $pp2 != 7.2801098892805181 } {
  25        puts "Error : Extrema is wrong on dist $j"
  26        set status 1
  27     }
  28 }
  29
  30 regexp {dist 10: +([-0-9.+eE]+)} $info full pp3
  31 regexp {dist 20: +([-0-9.+eE]+)} $info full pp4
  32 regexp {dist 21: +([-0-9.+eE]+)} $info full pp5
  33 set pp_c 4.316921907096102
  34 set pp_ch 4.3169219070961038
  35
  36 if { $pp3 != $pp_c } {
  37     puts "Error : Extrema is wrong on dist 10"
  38     set status 1
  39 }
  40 if { $pp4 != $pp_ch || $pp5 != $pp_ch} {
  41     puts "Error : Extrema is wrong on dist 20 or 21"
  42     set status 1
  43 }
  44
  45 if { $status != 0 } {
  46     puts "Error : Extrema is wrong"
  47 } else {
  48     puts "OK: Extrema is valid"
  49 }