1puts "========" 2puts "OCC28486" 3puts "========" 4puts "" 5################################################# 6# Fuse of several solids fails due to presence of common zones between faces 7################################################# 8 9plane p 0 0 0 0 0 1 10mkface f1 p -10 10 -10 10 11copy f1 f2 12trotate f2 0 0 0 1 0 0 20 13line l 0 0 0 0 1 0 14mkedge e l -8 8 15trotate e 0 0 0 1 0 0 10 16settolerance e 1.5 17donly f1 f2 e 18 19bclearobjects 20bcleartools 21baddobjects f1 f2 22baddtools e 23bfillds 24bbuild result 25 26checkshape result 27checknbshapes result -face 4 -wire 8 28checkprops result -s 800 29 30checkview -display result -2d -path ${imagedir}/${test_image}.png