7 restore [locate_data_file buc60649a.brep] a
10 set che [checkshape a rr]
11 if { [regexp {OK} $che] != 1 } {
12 puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
13 puts "Body of the script was not executed"
15 puts "Checking of SOURCE shape by checkshape - OK"
17 renamevar result_1 result