f1aa2b62 |
1 | pload QAcommands |
2 | |
3 | puts "========" |
4 | puts "OCC827" |
5 | puts "========" |
6 | puts "" |
7 | ################################### |
8 | ## BRepAlgoAPI_Fuse fails on cylinder and torus |
9 | ################################### |
10 | |
11 | # |
12 | # a1 - Cylinder |
13 | # a2 - Torus1 |
14 | # a3 - Torus1 |
15 | # res1 - Fuse(Torus1 & Cylinder) |
16 | # res2 - Fuse(Torus2 & res1) |
17 | # |
18 | |
19 | if { [ catch { set info_result [OCC827 a1 a2 a3 result1 result2] } ] } { |
20 | puts "Faulty : an exception was caught" |
21 | } else { |
22 | if { [lsearch ${info_result} FAILED] > -1} { |
23 | puts "Faulty OCC827 (case 1)" |
24 | } |
352ffd73 |
25 | checkshape a1 |
26 | checkshape a2 |
27 | checkshape a3 |
28 | checkshape result1 |
29 | checkshape result2 |
f1aa2b62 |
30 | |
31 | set ExplodeList [explode result1] |
32 | if {[llength ${ExplodeList}] < 1} { |
33 | puts "Faulty : Resulting shape is empty COMPOUND" |
34 | } |
35 | |
36 | set ExplodeList [explode result2] |
37 | if {[llength ${ExplodeList}] < 1} { |
38 | puts "Faulty : Resulting shape is empty COMPOUND" |
39 | } |
40 | |
41 | renamevar result2 result |
42 | } |
43 | |
58cf74e0 |
44 | checkprops result -s 11847.7 |
45 | checkshape result |
5747059b |
46 | checkview -display result -2d -path ${imagedir}/${test_image}.png |