809eca9d |
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 |
b1682e23 |
13 | bclearobjects; bcleartools |
14 | baddobjects b1; baddtools b2 |
15 | bfillds |
16 | set info [ bopnews v ] |
809eca9d |
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 | |
5747059b |
35 | checkview -display result -3d -path ${imagedir}/${test_image}.png |