puts "==========="
puts "BUC60652"
puts "Case 3"
puts "==========="

pload QAcommands

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

set square 77815.1
set 2dviewer 0