3bea4c16 |
1 | puts "================" |
2 | puts "OCC23092" |
3 | puts "================" |
4 | puts "" |
5 | ################################################################################################### |
6 | # Error in BRepProj_Projection algorithm: some edges of resulting projected wire are duplicated |
7 | ################################################################################################### |
8 | |
9 | set BugNumber OCC23092 |
10 | |
11 | restore [locate_data_file OCC23092-bal8h.brep] h |
12 | restore [locate_data_file OCC23092-bal8s.brep] s |
13 | set info1 [ prj r s h 0 0 1 ] |
14 | set word1 [string compare [lindex ${info1} end] "r_1"] |
15 | don r_1 r_2 |
16 | explode r_1 E |
17 | explode r_2 V |
18 | set info2 [ don r_1_10 r_2_1 r_2_2 ] |
19 | set word2 [string compare [lindex ${info2} end] "r_1_10"] |
20 | |
21 | # Resume |
22 | puts "" |
23 | if { ${word1} == 0 && ${word2} == 0 } { |
24 | puts "OK ${BugNumber}" |
25 | } else { |
26 | puts "Faulty ${BugNumber}" |
27 | } |
28 | |