tests/bugs/modalg_5/bug24504

   1 puts "=========="
   2 puts "OCC24504"
   3 puts "=========="
   4 puts ""
   5 ################################################
   6 # Wrong result obtained by Extrema Curve/Curve
   7 ################################################
   8
   9 restore [locate_data_file bug24504_c1] c1
  10 restore [locate_data_file bug24504_c2] c2
  11
  12 trim c1t c1 1435.4903148955743 1484.9899809123547
  13 trim c2t c2 2590.8671336821694 4503.5062290971819
  14
  15 if { [llength [extrema c1t c2t]] != 1 } {
  16   puts "Error: expected only one line as result of extrema!"
  17 }
  18
  19 # Distance check
  20 set info [dump ext_1]
  21 regexp "Parameters : 0 +(\[-0-9*\.+eE\]+)" $info full extLength
  22 if {$extLength > 1e-12 } {
  23   puts "Error: bad distance points obtained"
  24 } else {
  25   puts "OK: good distance between obtained points "
  26 }