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
