tests/bugs/modalg_6/bug26356

   1 puts "========"
   2 puts "OCC26356"
   3 puts "========"
   4 puts ""
   5 #############################################
   6 # Wrong result done by projection algorithm
   7 #############################################
   8
   9 restore [locate_data_file OCC26356-f.brep] b1
  10 restore [locate_data_file OCC26356-w.brep] b2
  11
  12 explode b2 v
  13
  14 point p1 31350.009765625 7100 -2.17374844144233e-013
  15 set bug_info_1 [projponf b1 p1 -min -g]
  16 set bug_info_1 [string trim [string range $bug_info_1 [expr {[string first "=" $bug_info_1] + 1}] [expr {[string length $bug_info_1] - 1}]]]
  17 set bug_info_1 [string trim [string range $bug_info_1 0 [expr {[string first " " $bug_info_1] - 1}]]]
  18 set bug_info_2 [projponf b1 p1 -minmax -g]
  19 set bug_info_2 [string trim [string range $bug_info_2 [expr {[string first "=" $bug_info_2] + 1}] [expr {[string length $bug_info_2] - 1}]]]
  20 set bug_info_2 [string trim [string range $bug_info_2 0 [expr {[string first " " $bug_info_2] - 1}]]]
  21
  22 point p2 29200.099609375 7100 -2.17374753743702e-013
  23 set bug_info_3 [projponf b1 p2 -min -g]
  24 set bug_info_3 [string trim [string range $bug_info_3 [expr {[string first "=" $bug_info_3] + 1}] [expr {[string length $bug_info_3] - 1}]]]
  25 set bug_info_3 [string trim [string range $bug_info_3 0 [expr {[string first " " $bug_info_3] - 1}]]]
  26 set bug_info_4 [projponf b1 p2 -minmax -g]
  27 set bug_info_4 [string trim [string range $bug_info_4 [expr {[string first "=" $bug_info_4] + 1}] [expr {[string length $bug_info_4] - 1}]]]
  28 set bug_info_4 [string trim [string range $bug_info_4 0 [expr {[string first " " $bug_info_4] - 1}]]]
  29
  30 if {$bug_info_1 != $bug_info_2} {
  31   puts "ERROR: OCC26356 is reproduced."
  32   puts "For point #1: distance min is: ${bug_info_1}, distance minmax is: ${bug_info_2}."
  33 }
  34 if {$bug_info_3 != $bug_info_4} {
  35   puts "ERROR: OCC26356 is reproduced."
  36   puts "For point #2: distance min is: ${bug_info_3}, distance minmax is: ${bug_info_4}."
  37 }