3bea4c16 |
1 | puts "========================" |
2 | puts "OCC20404" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Command distmini gives wrong result for given shapes |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC20404 |
10 | |
11 | restore [locate_data_file OCC20404-line1.brep] e1 |
12 | restore [locate_data_file OCC20404-line2.brep] e2 |
13 | |
14 | distmini d e1 e2 |
15 | puts "Distance=[dval d_val]" |
16 | |
17 | if [expr [dval d_val] > 7.e-13] { |
18 | set status 1 |
19 | } else { |
20 | set status 0 |
21 | } |
22 | |
23 | # Resume |
24 | puts "" |
25 | if { ${status} != 0 } { |
26 | puts "Faulty ${BugNumber}" |
27 | } else { |
28 | puts "OK ${BugNumber}" |
29 | } |
30 | |