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