puts "=========="
puts "BUC60652"
puts "Case 4"
puts "=========="

pload QAcommands

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

set square 119134
set 2dviewer 0