puts "============="
puts "BUC60635"
puts "============="

restore [locate_data_file buc60635a.brep] a 
checkshape a

mkplane result a

set square 2035.58
set 2dviewer 0