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