9026dea8 |
1 | puts "TODO OCC14846 ALL: Faulty shapes in variables faulty_1 to faulty_" |
2 | |
3 | puts "========" |
4 | puts "OCC14846" |
5 | puts "========" |
6 | puts "" |
7 | ########################################################################### |
8 | # ShapeFix_Wireframe::FixWireGaps() works wrong on a shape with seam edge |
9 | ########################################################################### |
10 | |
11 | restore [locate_data_file bug14846_Surf_Top.brep] a |
12 | |
13 | checkshape a |
14 | fixwgaps result a |
15 | checkshape result |
16 | |
17 | set bug_info_inp [string trim [lindex [tolerance a] 1]] |
18 | set bug_info_inp [string trim [string range $bug_info_inp [expr {[string last "=" $bug_info_inp] + 1}] [expr {[string length $bug_info_inp] - 1}]]] |
19 | |
20 | set bug_info_out [string trim [lindex [tolerance result] 1]] |
21 | set bug_info_out [string trim [string range $bug_info_out [expr {[string last "=" $bug_info_out] + 1}] [expr {[string length $bug_info_out] - 1}]]] |
22 | |
23 | set tmp_i [string trim [string range $bug_info_inp [expr {[string last "." $bug_info_inp] + 1}] [expr {[string length $bug_info_inp] - 1}]]] |
24 | set tmp_o [string trim [string range $bug_info_out [expr {[string last "=" $bug_info_out] + 1}] [expr {[string length $bug_info_out] - 1}]]] |
25 | |
26 | set bug_info_value 0 |
27 | if {[string length $bug_info_inp] < [string length $bug_info_out]} { |
28 | set bug_info_value [string length $bug_info_inp] |
29 | } else { |
30 | set bug_info_value [string length $bug_info_out] |
31 | } |
32 | if {$bug_info_value > 8} { |
33 | set bug_info_value 8 |
34 | } |
35 | set bug_info_inp [string trim [string range $bug_info_inp 0 [expr {[string last "." $bug_info_inp] + $bug_info_value}]]] |
36 | set bug_info_out [string trim [string range $bug_info_out 0 [expr {[string last "." $bug_info_out] + $bug_info_value}]]] |
37 | |
38 | if {$bug_info_out > $bug_info_inp} { |
39 | puts "OCC14846 is reproduced. Tolerance is increased after fixwgaps." |
40 | } |