6 restore [locate_data_file BUC60830-face2.brep] f
9 set che [checkshape f rr]
10 if { [regexp {OK} $che] != 1 } {
11 puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
12 puts "Body of the script was not executed"
14 puts "Checking of SOURCE shape by checkshape - OK"
16 renamevar result_1 result