f1aa2b62 |
1 | pload QAcommands |
2 | |
3 | puts "=======" |
4 | puts "OCC822" |
5 | puts "=======" |
6 | puts "" |
7 | ##################################### |
8 | ## BRepMesh_IncrementalMesh fails on some faces |
9 | ##################################### |
352ffd73 |
10 | ## (old topology) |
11 | ##################################### |
f1aa2b62 |
12 | |
352ffd73 |
13 | if { [ catch { set info_result [OCC822_2 a1 a2 result 0] } ] } { |
14 | puts "Faulty OCC822" |
f1aa2b62 |
15 | } else { |
352ffd73 |
16 | if { [regexp {FAILED} $info_result] } { |
17 | puts "Faulty OCC822" |
f1aa2b62 |
18 | } |
19 | |
20 | set ExplodeList [explode result] |
21 | if {[llength ${ExplodeList}] < 1} { |
352ffd73 |
22 | puts "Faulty OCC822" |
f1aa2b62 |
23 | } |
24 | } |
f1aa2b62 |
25 | set square 61963.5 |
352ffd73 |
26 | set 3dviewer 1 |