9aa684ed |
1 | puts "TODO OCC25915 ALL: Faulty OCC825" |
58cf74e0 |
2 | puts "TODO OCC25915 ALL: Error : The command is not valid. The area is" |
a09c8f3a |
3 | puts "TODO OCC25915 ALL: Faulty shapes in variables faulty_1 to faulty_" |
f1aa2b62 |
4 | |
5 | pload QAcommands |
6 | |
7 | puts "============" |
8 | puts "OCC825" |
9 | puts "============" |
10 | puts "" |
11 | ###################################### |
12 | ## BRepAlgoAPI_Cut fails on sphere and b-spline face |
13 | ###################################### |
352ffd73 |
14 | ## (old topology) |
15 | ##################################### |
f1aa2b62 |
16 | |
352ffd73 |
17 | if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2 0] } ] } { |
18 | puts "Faulty OCC825" |
f1aa2b62 |
19 | } else { |
352ffd73 |
20 | if { [regexp {FAILED} $info_result] } { |
191478a5 |
21 | puts "Faulty OCC825" |
f1aa2b62 |
22 | } |
352ffd73 |
23 | |
24 | set ExplodeList [explode res1] |
f1aa2b62 |
25 | if {[llength ${ExplodeList}] < 1} { |
191478a5 |
26 | puts "Faulty OCC825" |
f1aa2b62 |
27 | } |
352ffd73 |
28 | |
29 | set ExplodeList [explode res2] |
f1aa2b62 |
30 | if {[llength ${ExplodeList}] < 1} { |
191478a5 |
31 | puts "Faulty OCC825" |
f1aa2b62 |
32 | } |
352ffd73 |
33 | checkshape res1 |
191478a5 |
34 | |
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 | checkprops result -s 0 |
41 | checkshape result |
5747059b |
42 | checkview -display result -2d -path ${imagedir}/${test_image}.png |