puts "================"
puts "OCC24764"
puts "================"
puts ""
#######################################################################################
# Alien subshapes occured in result of 'bopcheck' operation
######################################################################################

cpulimit 2000

restore [locate_data_file bug24764_qa.brep] a

bopcheck a 4
compound a x2 x51 x8 x10 x28 x30 x36 x46 x1 x50 result

checknbshapes result -vertex 24 -edge 24 -wire 2 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 2 -shape 53
checkview -display result -2d -path ${imagedir}/${test_image}.png