
puts "========================"
puts "BUC60703"
puts "========================"

restore [locate_data_file buc60703e.brep] a 
#maxtolerance a
checkshape a
restore [locate_data_file buc60703d.brep] b
#maxtolerance b
checkshape b

if [catch {bfuse result a b } catch_result] {
    puts "Faulty  BUC60703: here is problem with FUSE operation"
} else {
    puts "OK OCC348: function FUSE works ok"
    if [catch {checkshape result} catch_result] {
	puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
    } else {
	puts "BUC60703   : here is NOT checking problem"
    }
}
checkprops result -s 371.259 
checkview -display result -2d -path ${imagedir}/${test_image}.png
