puts "================"
puts "OCC23008"
puts "================"
puts ""
######################################################################################
# Too many intersection vertices between line and cylinder
######################################################################################

set BugNumber OCC23008

restore [locate_data_file bug23008_ez15] b1 
restore [locate_data_file bug23008_fz37] b2 
bclearobjects; bcleartools
baddobjects b1; baddtools b2
bfillds
set info [ bopnews v ]
for {set i 0} {$i <= 100} {incr i} {
    set word [lsearch $info z$i]
    if {$word == -1} {
	lappend check_z 0
    } else {
	lappend check_z 1
    }
}

# Resume
puts ""
set result [lsearch $check_z 1]
if { ${result} == -1 } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}

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