6d368502 |
1 | puts "REQUIRED All: Faulty shapes in variables faulty_1 to faulty_" |
a87752f3 |
2 | puts "================" |
3 | puts "OCC25" |
4 | puts "================" |
5 | puts "" |
6 | |
7 | restore [locate_data_file OCC25-1.brep] sh1 |
8 | |
a87752f3 |
9 | set che [checkshape sh1] |
a87752f3 |
10 | |
11 | if { [regexp {Faulty} $che ] == 1 } { |
12 | puts "Faulty OCC25 (case 1): Checkshape says that the wire on face has bad orientation, but it is not truth" |
13 | } else { |
14 | puts "OCC25 OK (case 1): Checkshape works properly" |
15 | } |
16 | |
17 | # ================================================ |
18 | restore [locate_data_file OCC25-2.brep] sh2 |
19 | |
a87752f3 |
20 | set che [checkshape sh2] |
a87752f3 |
21 | |
22 | if { [regexp {BRepCheck_BadOrientationOfSubshape} $che] && [regexp {BRepCheck_UnorientableShape} $che]} { |
23 | puts " OCC25 (case 2) OK: Checkshape works properly" |
24 | } else { |
25 | puts "Faulty OCC25 (case 2): Checkshape works wrongly" |
26 | } |
27 | |
28 | compound sh1 sh2 result |
29 | |
5747059b |
30 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
a87752f3 |
31 | |
32 | |