a87752f3 |
1 | |
2 | puts "========================" |
3 | puts " OCC439 " |
4 | puts "========================" |
5 | puts "" |
6 | ##################################################### |
7 | ## Cut operation produces NOT Valid result on attached shapes |
8 | ##################################################### |
9 | |
10 | restore [locate_data_file OCC439.brep] a |
11 | explode a |
12 | |
352ffd73 |
13 | checkshape a_1 |
14 | checkshape a_2 |
a87752f3 |
15 | |
16 | bcut result a_1 a_2 |
17 | |
18 | set che [checkshape result] |
19 | if { [regexp {Faulty} $che ] == 1 } { |
20 | puts "Faulty OCC134: Resulte shape is invalid. It was detected by Checkshape command" |
21 | } else { |
22 | puts "OCC134 OK: Result shape is valid" |
23 | } |
24 | |
58cf74e0 |
25 | checkprops result -s 247000 |
5747059b |
26 | checkview -display result -2d -path ${imagedir}/${test_image}.png |