puts "===================================================================="
puts "OCC27469 Regression vs 6.9.1: Wrong result of Edge/Face intersection"
puts "===================================================================="
puts ""

restore [locate_data_file bug27469_shapes.brep] b

explode b
explode b_1 F
explode b_2 E

bclearobjects
bcleartools
baddobjects b_1_2
baddtools b_2_10 b_2_9
bfillds
bbuild result

checkshape result
checknbshapes result -face 1 -wire 3 -edge 35 -vertex 30
checkmaxtol result -min_tol 2.42e-7
checkprops result -l  38486.5

checkview -display result -2d -path ${imagedir}/${test_image}.png