puts "============"
puts "BUC60934"
puts "============"

restore [locate_data_file BUC60934.brep] a 
puts [checkshape a]

mkplane result a

set square 40303.1
set 2dviewer 0