puts "=========="
puts "BUC60649"
puts "BUC60657"
puts "=========="
puts ""

restore [locate_data_file buc60649a.brep] a 
checkshape a

set che [checkshape a rr]
if { [regexp {OK} $che] != 1 } {
    puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
    puts "Body of the script was not executed"
} else {
    puts "Checking of SOURCE shape by checkshape - OK"
    mkoffset result a 1 1
    renamevar result_1 result
}
set length 271.473
set 2dviewer 0
