puts "================"
puts "OCC27283"
puts "================"
puts ""
#######################################################################
# Regression vs 6.9.1: smesh/bugs_11/L9: invalid result of General Fuse
#######################################################################

restore [locate_data_file bug27283_shapes.brep] a
set lst [explode a]

bclearobjects
bcleartools
baddobjects a_1
eval baddtools [lrange $lst 1 end]
bfillds
bbuild result0

checkshape result0

savehistory gf_hist

# extract the parts of result corresponding to object
shape result C
foreach s [explode a_1 So] {
  modified r_$s gf_hist $s
  add r_$s result
}

checknbshapes result -solid 76 -shell 76 -face 279
checkprops result -s 1880.4

smallview
don result
fit

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