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

puts "============"
puts "OCC27082"
puts "============"
puts ""
###############################
## UnifySameDomain must add internal edges where appropriate to resolve self-intersections
###############################

restore [locate_data_file bug27082_shapes1.brep] a
explode a
bcut r1 a_1 a_3
bfuse r2 r1 a_2
unifysamedom result r2 +i

don result
smallview; l; fit
bopcheck result
checknbshapes result -m UnifySameDomain -face 14 -edge 28

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
fe1a6e4e	1	puts "============"
	2	puts "OCC27082"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## UnifySameDomain must add internal edges where appropriate to resolve self-intersections
	7	###############################
	8
	9	restore [locate_data_file bug27082_shapes1.brep] a
	10	explode a
	11	bcut r1 a_1 a_3
	12	bfuse r2 r1 a_2
	13	unifysamedom result r2 +i
	14
	15	don result
	16	smallview; l; fit
	17	bopcheck result
	18	checknbshapes result -m UnifySameDomain -face 14 -edge 28
cb120537	19
cb120537	20	checkview -screenshot -2d -path ${imagedir}/${test_image}.png