puts "=========="
puts "BUC60712"
puts "=========="
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

#
# OCC22070: Grid Tests: CHL set, detected problems
# Problems:
#  The shape buc60712a.brep is self-interferred.
#  thus it can not be used as the argument for Boolean Operation Algorithm.
#
# Proposals:
#  The Case chl/902/F3 should be removed or rewritten:

restore [locate_data_file buc60712a.brep] a 
checkshape a

restore [locate_data_file buc60712b.brep] b
checkshape b

# Recompute "a" shape
explode a f

bop a_1 a_2
bopfuse r12

bop a_3 a_4
bopfuse r34

bop r12 r34

bopfuse r

# Start boolean operation
bop r b
bopsection result

# Check result
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num
# Resume
if { $num != 0 } {
    puts " Faulty BUC60712: Result shape is INcorrect !!! "
} else {
    puts "BUC60712 OK: Result shape is correct "
}
set length 1.88145
set 2dviewer 0
