5 #####################################################
6 ## After restoring attached shape(face) it is obviously that there is
7 ## selfintersecting wire. However BRepCheck gives reply that shape looks OK.
8 #####################################################
10 restore [locate_data_file OCC736.brep] result
12 set che [checkshape result r]
14 if { [regexp {OK} $che ] == 1 } {
15 puts "Faulty OCC736: checkshape command works wrongly"
17 puts "OCC736 OK: checkshape command works PROPERLY"