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

restore [locate_data_file bug24764_qa.brep] a

bopcheck a 4

set N 16
set qz {}

lappend qz a
for {set i 0} {$i < $N} {incr i} {
 lappend qz x${i}
}
eval compound $qz result

set nb_v_good 24
set nb_e_good 24
set nb_w_good 2
set nb_f_good 1
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 2
set nb_shape_good 53

set 2dviewer 1