e54706ed |
1 | puts "========" |
2 | puts "OCC6491" |
3 | puts "========" |
4 | puts "" |
5 | #################################################### |
6 | ## Sewing in DRAW on attached the shape with tolerance 1000 adds duplicated faces |
7 | #################################################### |
8 | |
9 | set BugNumber OCC6491 |
10 | |
11 | restore [locate_data_file OCC6491.brep] a |
12 | |
13 | set tolerance 1000 |
14 | |
15 | sewing result ${tolerance} a |
16 | regexp {FACE +: +([-0-9.+eE]+)} [nbshapes result] full res_faces |
17 | |
18 | set good_faces 263 |
19 | |
20 | if { ${res_faces} != ${good_faces} } { |
21 | puts "Faulty ${BugNumber}" |
22 | } |
23 | |
24 | set 2dviewer 0 |
25 | |