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}"
} 

set length 37.7831
set 3dviewer 0
