5 #restore BUC60878-wire3.brep a
6 #########dtext -10 -10 -60 "THE CASE IS INCORRECT"
11 restore [locate_data_file BUC60878-wire3.brep] a
14 set che [checkshape a rr]
15 if { [regexp {OK} $che] != 1 } {
16 puts "Faulty : mistakes are found in SOURCE shape by checkshape command"
17 puts "Body of the script was not executed"
19 puts "Checking of SOURCE shape by checkshape - OK"
20 mkoffset result a 1 0.25
21 renamevar result_1 result