puts "============"
puts "BUC60907"
puts "OCC81"
puts "============"
puts ""
###############################
## Section shell by plane gives overlapped edges
###############################

restore [locate_data_file BUC60907_px1.rle] sh 
checkshape sh

plane f 60 0 0 1 0 0
mkface f f
bsection result sh f
puts "Info: it should be 12 edges"

checknbshapes result -edge 12

set length 33.6353
set 2dviewer 0