puts "========================"
puts "BUC60744"
puts "========================"
puts ""

restore [locate_data_file buc60744a.brep] a 
restore [locate_data_file buc60744b.brep] b

bsection result a b

checkshape result

if {[lindex [checksection result] 4] != 2} {
  puts "Error: section is incomplete"
}

checkprops result -l 228.386

checkview -display result -2d -path ${imagedir}/${test_image}.png