1 puts "================"
3 puts "================"
6 restore [locate_data_file OCC25-1.brep] sh1
9 set che [checkshape sh1]
12 if { [regexp {Faulty} $che ] == 1 } {
13 puts "Faulty OCC25 (case 1): Checkshape says that the wire on face has bad orientation, but it is not truth"
15 puts "OCC25 OK (case 1): Checkshape works properly"
18 # ================================================
19 restore [locate_data_file OCC25-2.brep] sh2
22 set che [checkshape sh2]
25 if { [regexp {BRepCheck_BadOrientationOfSubshape} $che] && [regexp {BRepCheck_UnorientableShape} $che]} {
26 puts " OCC25 (case 2) OK: Checkshape works properly"
28 puts "Faulty OCC25 (case 2): Checkshape works wrongly"
31 compound sh1 sh2 result