e784d865 |
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 | } |