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 |
13 | bop b1 b2 |
14 | set info [ bopnews -v ] |
15 | for {set i 0} {$i <= 100} {incr i} { |
16 | set word [lsearch $info z$i] |
17 | if {$word == -1} { |
18 | lappend check_z 0 |
19 | } else { |
20 | lappend check_z 1 |
21 | } |
22 | } |
23 | |
24 | # Resume |
25 | puts "" |
26 | set result [lsearch $check_z 1] |
27 | if { ${result} == -1 } { |
28 | puts "OK ${BugNumber}" |
29 | } else { |
30 | puts "Faulty ${BugNumber}" |
31 | } |
32 | |
33 | set 3dviewer 0 |
34 | |