[occt.git] / tests / bugs / modalg_6 / bug26151_2

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_11 f

set log [bopcurves b1_1 b2_11_2 -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
Commit	Line	Data
d0820f2e	1	puts "============"
	2	puts "OCC26151"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## Wrong result obtained by intersection algorithm.
	7	###############################
	8
	9	restore [locate_data_file bug26132_shape.brep] q
	10
	11	explode q
	12	copy q_1 b1
	13	copy q_2 b2
	14
	15	explode b1 f
	16	explode b2
	17	explode b2_11 f
	18
	19	set log [bopcurves b1_1 b2_11_2 -2d]
	20
	21	#Faces almost coincide. Therefore, there is no point in
	22	#returning some intersection line.
	23	#Theoretically, the intersection result is some region (tangent zone).
	24
	25	if { [regexp "has no 3d curve" ${log}] != 1 } {
	26	puts "Error : Wrong result obtained by intersection algorithm"
	27	} else {
	28	puts "OK : Good result obtained by intersection algorithm"
	29	}
	30
	31	smallview
	32	fit
	33	xwd $imagedir/${test_image}.png