puts "============"
puts "OCC26151"
puts "============"
puts ""
###############################
## Wrong result obtained by intersection algorithm.
###############################
restore [locate_data_file bug26132_shape.brep] q
explode q
copy q_1 b1
copy q_2 b2
explode b1 f
explode b2
explode b2_10 f
set log [bopcurves b1_1 b2_10_4 -2d]
#Faces almost coincide. Therefore, there is no point in
#returning some intersection line.
#Theoretically, the intersection result is some region (tangent zone).
if { [regexp "has no 3d curve" ${log}] != 1 } {
puts "Error : Wrong result obtained by intersection algorithm"
} else {
puts "OK : Good result obtained by intersection algorithm"
}
smallview
fit
xwd $imagedir/${test_image}.png