tests/bugs/heal/bug26642

   1 puts "========"
   2 puts "OCC26642"
   3 puts "========"
   4 puts ""
   5 ############################################################################
   6 # ShapeUpgrade_UnifySameDomain introduces extremely high vertex tolerances
   7 ############################################################################
   8
   9 restore [locate_data_file bug26656_unify.input.brep] i
  10
  11 set bug_info [tolerance i]
  12 set value_1 [lindex $bug_info 1]
  13 set value_1 [string trim [string range $value_1 [expr {[string first "=" $value_1] + 1}] [expr {[string length $value_1] - 1}]]]
  14
  15 unifysamedom r i
  16
  17 set bug_info [tolerance i]
  18 set value_2 [lindex $bug_info 1]
  19 set value_2 [string trim [string range $value_2 [expr {[string first "=" $value_2] + 1}] [expr {[string length $value_2] - 1}]]]
  20 set bug_info [tolerance r]
  21 set value_3 [lindex $bug_info 1]
  22 set value_3 [string trim [string range $value_3 [expr {[string first "=" $value_3] + 1}] [expr {[string length $value_3] - 1}]]]
  23
  24 if {$value_1 > $value_2} {
  25   set diff_12 [expr {$value_1 - $value_2}]
  26 } else {
  27   set diff_12 [expr {$value_2 - $value_1}]
  28 }
  29
  30 if {$value_1 > $value_3} {
  31   set diff_13 [expr {$value_1 - $value_3}]
  32 } else {
  33   set diff_13 [expr {$value_3 - $value_1}]
  34 }
  35
  36 if {$diff_12 > 1.e-06 || $diff_13 > 1.e-06} {
  37   puts "ERROR: OCC26642 is reproduced. Command unifysamedom works wrongly."
  38 }