puts "============"
puts "OCC21722"
puts "============"
puts ""
#######################################################################
# The operation Section produces non-complete result.
#######################################################################

set BugNumber OCC21722

puts "Load shape ..."
restore [locate_data_file OCC21722.brep] g 

puts "Prepare first shape ..."
explode g
copy g_1 b1

puts "Prepare second shape ..."
copy g_2 b2

puts "Prepare boolean operation ..."
bop b1 b2

puts "Start boolean operation ..."
bopsection result
puts "Finish boolean operation ..."

set length 1.91376

set nb_v_good 4
set nb_e_good 2
set nb_w_good 0
set nb_f_good 0
set nb_sh_good 0
set nb_sol_good 0
set nb_compsol_good 0
set nb_compound_good 1
set nb_shape_good 7


set 2dviewer 0