3bea4c16 |
1 | puts "========================" |
2 | puts "OCC11081" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # BRepExtrema_DistShapeShape misses one of two solutions |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC11081 |
10 | |
11 | # infinite line is used |
12 | |
13 | line ll 6834.93 -4100 500 0 0 1 |
14 | mkedge ee ll |
15 | restore [locate_data_file OCC11081.brep] section4100 |
16 | distmini dd ee section4100 |
17 | set res_list [distmini dd ee section4100] |
18 | set res_length [llength ${res_list}] |
19 | puts "res_length = ${res_length}" |
20 | |
21 | # Resume |
22 | puts "" |
23 | if { ${res_length} != 3 } { |
24 | puts "Faulty ${BugNumber}" |
25 | } else { |
26 | puts "OK ${BugNumber}" |
27 | } |
28 | |