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

pload QAcommands

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

set square 19614.8
set 2dviewer 0