3bea4c16 |
1 | puts "========================" |
2 | puts "OCC22303" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # The algorithm BRepExtrema_DistShapeShape crashes with exception if one of the shapes does non contain vertices |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC22303 |
10 | |
11 | line ll 0 20 0 1 0 0 |
12 | mkedge ee ll |
13 | psphere ss 10 |
14 | |
15 | distmini dd ee ss |
16 | puts "Distance=[dval dd_val]" |
17 | |
18 | if [expr [dval dd_val] - 10. > 1.e-3 ] { |
19 | set status 1 |
20 | } else { |
21 | set status 0 |
22 | } |
23 | |
24 | # Resume |
25 | puts "" |
26 | if { ${status} != 0 } { |
27 | puts "Faulty ${BugNumber}" |
28 | } else { |
29 | puts "OK ${BugNumber}" |
30 | } |
31 | |