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

puts "============"
puts "OCC27270"
puts "============"
puts ""
###########################################################################################################
#  Boolean operations: incorrect assembling of sub-shapes in container shapes (wires, shells, compsolids)
###########################################################################################################

box b1 200 200 200
explode b1 w
compound b1_1 b1_2 b1_3 b1_4 b1_5 b1_6 c1
tcopy c1 c2
ttranslate c2 100 0 300
bfuse result c1 c2
set info [explode result]
if { [llength $info] > 2 } {
  puts "OK: result is correct"
} else {
  puts "Error: incorrect assembling of sub-shapes in container shapes"
}

checkprops result -l 9600
checkshape result
checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
1511c7e9	1	puts "============"
	2	puts "OCC27270"
	3	puts "============"
	4	puts ""
	5	###########################################################################################################
	6	# Boolean operations: incorrect assembling of sub-shapes in container shapes (wires, shells, compsolids)
	7	###########################################################################################################
	8
	9	box b1 200 200 200
	10	explode b1 w
	11	compound b1_1 b1_2 b1_3 b1_4 b1_5 b1_6 c1
	12	tcopy c1 c2
	13	ttranslate c2 100 0 300
	14	bfuse result c1 c2
	15	set info [explode result]
	16	if { [llength $info] > 2 } {
	17	puts "OK: result is correct"
	18	} else {
	19	puts "Error: incorrect assembling of sub-shapes in container shapes"
	20	}
	21
	22	checkprops result -l 9600
	23	checkshape result
	24	checkview -display result -3d -path ${imagedir}/${test_image}.png