7bd071ed |
1 | #puts "TODO OCC25915 ALL: Faulty OCC825" |
a09c8f3a |
2 | puts "TODO OCC25915 ALL: Faulty shapes in variables faulty_1 to faulty_" |
f1aa2b62 |
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 | ###################################### |
352ffd73 |
13 | ## (old topology) |
14 | ##################################### |
f1aa2b62 |
15 | |
431d0f18 |
16 | if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2] } ] } { |
352ffd73 |
17 | puts "Faulty OCC825" |
f1aa2b62 |
18 | } else { |
352ffd73 |
19 | if { [regexp {FAILED} $info_result] } { |
191478a5 |
20 | puts "Faulty OCC825" |
f1aa2b62 |
21 | } |
352ffd73 |
22 | |
23 | set ExplodeList [explode res1] |
f1aa2b62 |
24 | if {[llength ${ExplodeList}] < 1} { |
191478a5 |
25 | puts "Faulty OCC825" |
f1aa2b62 |
26 | } |
352ffd73 |
27 | |
28 | set ExplodeList [explode res2] |
f1aa2b62 |
29 | if {[llength ${ExplodeList}] < 1} { |
191478a5 |
30 | puts "Faulty OCC825" |
f1aa2b62 |
31 | } |
191478a5 |
32 | |
431d0f18 |
33 | checkshape res1 |
34 | checkprops res1 -s 5890.42 |
a4eba920 |
35 | checknbshapes res1 -face 2 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 15 |
191478a5 |
36 | |
352ffd73 |
37 | renamevar res2 result |
f1aa2b62 |
38 | } |
39 | |
58cf74e0 |
40 | checkshape result |
431d0f18 |
41 | checkprops result -s 5890.42 |
42 | |
5747059b |
43 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
431d0f18 |
44 | |
45 | |