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 bop b1 b2 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}" } set 3dviewer 0