1 puts "================"
3 puts "================"
5 ###################################################################################################
6 # Error in BRepProj_Projection algorithm: some edges of resulting projected wire are duplicated
7 ###################################################################################################
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"]
18 set info2 [ don r_1_10 r_2_1 r_2_2 ]
19 set word2 [string compare [lindex ${info2} end] "r_1_10"]
23 if { ${word1} == 0 && ${word2} == 0 } {
24 puts "OK ${BugNumber}"
26 puts "Faulty ${BugNumber}"