puts "============================================================================================="
puts "0032136: Modeling Algorithms - Boolean fuse fails and corrupts the argument-shape"
puts "============================================================================================="
puts ""

restore [locate_data_file bug32136_obj.brep] s
restore [locate_data_file bug32136_tools.brep] t

bclearobjects
bcleartools
baddobjects s
eval baddtools [explode t]
bfillds
bbop result 1

checkshape result
checknbshapes result -face 731 -shell 1 -solid 1 -t
checkprops result -s 0.051066 -v 8.9084e-06

foreach sh {result s} {
  if {![regexp "This shape seems to be OK" [bopcheck $sh]]} {
    puts "Error: the $sh shape is self-interfered"
  }
  checkmaxtol $sh -ref 5.e-6
}

foreach sh [explode t] {
  if {![regexp "This shape seems to be OK" [bopcheck $sh]]} {
    puts "Error: the $sh shape is self-interfered"
  }
  checkmaxtol $sh -ref 5.e-6
}

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

# subsequent cut operation
box box 0.06335 0.06335 0.05
bclearobjects
bcleartools
baddobjects box
baddtools result
bfillds
bbop result_cut 2

checkshape result_cut
checknbshapes result_cut -face 756 -shell 1 -solid 1 -t
checkprops result_cut -s 0.0545148 -v 0.000191753

if {![regexp "This shape seems to be OK" [bopcheck result_cut]]} {
  puts "Error: the result_cut shape is self-interfered"
}
checkmaxtol result_cut -ref 5.e-6

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