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 | # finite line is used |
12 | |
13 | line ll 6834.93 -4100 500 0 0 1 |
14 | trim trll ll -1000 -500 |
15 | mkedge tree trll |
16 | restore [locate_data_file OCC11081.brep] section4100 |
17 | set res_list [distmini dd tree 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 | } |