1puts "========"
2puts "OCC27878"
3puts "========"
4puts ""
5#################################################
6# Development of the Gluing operations based on the new Boolean component
7#################################################
8
9# planar boxes
10
11restore [locate_data_file bug27878_shapes1.brep] c
12
13# fusing the solids using the glue option
14bglue 2
15bclearobjects
16bcleartools
17baddobjects {*}[explode c so]
18bfillds -t
19bbuild result
20
21checknbshapes result -face 1176 -solid 343
22checkprops result -s 2058 -v 343
23
24checkview -display result -2d -path ${imagedir}/${test_image}.png