tests/bugs/modalg_5/bug24200

   1 puts "============"
   2 puts "OCC24200"
   3 puts "============"
   4 puts ""
   5 #################################################
   6 # Wrong result obtained by Extrema Curve/Curve
   7 #################################################
   8
   9 restore [locate_data_file bug24200_c1] c1
  10 restore [locate_data_file bug24200_c2] c2
  11 set info_1 [extrema c1 c2]
  12
  13 trim c1t c1 677.8 678.8
  14 trim c2t c2 2477 2479
  15 extrema c1t c2t
  16
  17 cvalue c1t 678.34269564178146 x y z
  18 vertex v1 x y z
  19 cvalue c2t 2478.1205500811761 x y z
  20 vertex v2 x y z
  21 distmini d v1 v2
  22 regexp {([-0-9.+eE]+)} [dump d_val] full dist
  23
  24 set checkdist 1.13686837721616e-013
  25
  26 if { [expr 1.*abs($checkdist - $dist)/$checkdist] > 0.1 } {
  27     puts "Error : Distance is wrong"
  28 } else {
  29     puts "OK: Distance is correct"
  30 }