f1aa2b62 |
1 | puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" |
2 | puts "TODO OCC12345 ALL: Error : The square of result shape is" |
3 | |
4 | pload QAcommands |
5 | |
6 | puts "=======" |
7 | puts "OCC825" |
8 | puts "=======" |
9 | puts "" |
10 | ###################################### |
11 | ## BRepAlgoAPI_Cut fails on sphere and b-spline face |
12 | ###################################### |
13 | ## |
14 | ## Note: test for old topology |
15 | ## |
16 | ################################ |
17 | |
18 | if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } { |
19 | puts "Faulty : an exception was caught" |
20 | } else { |
352ffd73 |
21 | checkshape a1 |
22 | checkshape a2 |
f1aa2b62 |
23 | bcut result a2 a1 |
24 | set ExplodeList [explode result] |
25 | if {[llength ${ExplodeList}] < 1} { |
26 | puts "Faulty : Resulting shape is empty COMPOUND" |
27 | } |
28 | } |
29 | |
30 | set square 0 |
31 | set 2dviewer 0 |