7 ###################################
8 ## BRepAlgoAPI_Fuse fails on cylinder and torus
9 ###################################
15 # res1 - Fuse(Torus1 & Cylinder)
16 # res2 - Fuse(Torus2 & res1)
19 if { [ catch { set info_result [OCC827 a1 a2 a3 result1 result2] } ] } {
20 puts "Faulty : an exception was caught"
22 if { [lsearch ${info_result} FAILED] > -1} {
23 puts "Faulty OCC827 (case 1)"
31 set ExplodeList [explode result1]
32 if {[llength ${ExplodeList}] < 1} {
33 puts "Faulty : Resulting shape is empty COMPOUND"
36 set ExplodeList [explode result2]
37 if {[llength ${ExplodeList}] < 1} {
38 puts "Faulty : Resulting shape is empty COMPOUND"
41 renamevar result2 result