
puts "============"
puts "BUC60865"
puts "BUC60864"
puts "============"
puts ""
##########################
## Section gives duplicate edges. 
##########################

restore [locate_data_file BUC60865_sh6.brep] sh 
checkshape sh

plane pl 1.1 0.99999 1 0 1 0
mkface f pl
bsection result sh f

set nb_info [nbshapes result]
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed

if {  $ed == 5 } {
    puts  " BUC60865 : SECTION operation was made properly"
} else {
    puts "Faulty BUC60865: SECTION operation was made wrongly"
}
set length 4.5
set 2dviewer 0

