| 1 | puts "================" |
| 2 | puts "OCC23008" |
| 3 | puts "================" |
| 4 | puts "" |
| 5 | ###################################################################################### |
| 6 | # Too many intersection vertices between line and cylinder |
| 7 | ###################################################################################### |
| 8 | |
| 9 | set BugNumber OCC23008 |
| 10 | |
| 11 | restore [locate_data_file bug23008_ez15] b1 |
| 12 | restore [locate_data_file bug23008_fz37] b2 |
| 13 | bclearobjects; bcleartools |
| 14 | baddobjects b1; baddtools b2 |
| 15 | bfillds |
| 16 | set info [ bopnews v ] |
| 17 | for {set i 0} {$i <= 100} {incr i} { |
| 18 | set word [lsearch $info z$i] |
| 19 | if {$word == -1} { |
| 20 | lappend check_z 0 |
| 21 | } else { |
| 22 | lappend check_z 1 |
| 23 | } |
| 24 | } |
| 25 | |
| 26 | # Resume |
| 27 | puts "" |
| 28 | set result [lsearch $check_z 1] |
| 29 | if { ${result} == -1 } { |
| 30 | puts "OK ${BugNumber}" |
| 31 | } else { |
| 32 | puts "Faulty ${BugNumber}" |
| 33 | } |
| 34 | |
| 35 | checkview -display result -3d -path ${imagedir}/${test_image}.png |