puts "TODO OCC28556 ALL: Faulty shapes in variables"
puts "TODO OCC28556 ALL: The area of result shape is"
puts "TODO OCC28556 ALL: The volume of result shape is"
puts "TODO OCC28556 ALL: Error :  is WRONG because number of"

puts "========================"
puts " OCC469 "
puts "========================"
puts ""
######################################################
## It's impossible to fuse the two shapes in the file attached. #2740, SAM1493
######################################################

restore [locate_data_file OCC469.brep] a 
explode a

bfuse result a_1 a_2

checkshape result
checkprops result -s 30523.3 -v 22730.1
checknbshapes result -shell 1 -solid 1

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