puts "================"
puts "OCC6502"
puts "================"
puts ""
#######################################################################################
# Failure calculation of ShrunkRange resulting to failure of boolean operation
#######################################################################################

set BugNumber OCC6502


restore [locate_data_file OCC6502.brep] a 
plane pl 100 0 0 1 0 0
mkface f pl

if { [catch { bsection result a f -n2d } catch_result] } {
    puts "Faulty ${BugNumber}"
} 

checkprops result -l 37.7831 
checkshape result 
checksection result
checkview -display result -3d -path ${imagedir}/${test_image}.png