puts "========"
puts "OCC27878"
puts "========"
puts ""
#################################################
# Development of the Gluing operations based on the new Boolean component
#################################################

# bspline boxes shifted x y

restore [locate_data_file bug27878_shapes4.brep] c

# fusing the solids using the glue option
bglue 1
bclearobjects
bcleartools
baddobjects {*}[explode c so]
bfillds -t
bbuild result

checknbshapes result -face 381 -solid 64
checkprops result -s 384 -v 64

checkview -display result -2d -path ${imagedir}/${test_image}.png