f1aa2b62 |
1 | pload QAcommands |
2 | |
3 | puts "============" |
4 | puts "OCC823" |
5 | puts "============" |
6 | puts "" |
7 | ################################ |
8 | ## BRepAlgoAPI_Fuse fails on two cylinders |
9 | ################################ |
10 | ## |
11 | ## Note: test for old topology |
12 | ## |
13 | ################################ |
14 | |
15 | if { [ catch { set info_result [OCC823 a1 a2 a3] } ] } { |
16 | puts "Faulty : exception was caught" |
17 | } else { |
352ffd73 |
18 | checkshape a1 |
19 | checkshape a2 |
f1aa2b62 |
20 | bfuse result a1 a2 |
21 | |
22 | set ExplodeList [explode result] |
23 | if {[llength ${ExplodeList}] < 1} { |
24 | puts "Faulty : Resulting shape is empty COMPOUND" |
25 | } |
26 | } |
27 | |
28 | set square 23189.5 |
29 | set 2dviewer 0 |
30 | |