puts "=========="
puts "BUC60652"
puts "Case 1"
puts "=========="

pload QAcommands

restore [locate_data_file buc60652a.brep] result
puts [checkshape result]
BUC60652 result

set check_square 1
set square 19614.8
set 2dviewer 0