809eca9d |
1 | puts "========================" |
2 | puts "OCC23043" |
3 | puts "========================" |
4 | puts "" |
5 | ################################################################################################################ |
6 | # Wrong results of BRepExtrema_DistShapeShape: non-null minimum distance between intersecting line and cylinder |
7 | ################################################################################################################ |
8 | |
9 | set BugNumber OCC23043 |
10 | |
11 | restore [locate_data_file bug23043_croix.brep] a |
12 | restore [locate_data_file bug23043_cylindre.brep] b |
13 | vdisplay a b |
14 | vfit |
15 | distmini dd a b |
16 | set dist1 [ dval dd ] |
17 | set dist2 [ dval dd2 ] |
18 | set dist3 [ dval dd3 ] |
19 | set dist4 [ dval dd4 ] |
20 | |
21 | |
22 | puts "" |
23 | if { $dist1 == 0 && $dist2 == 0 && $dist3 == 0 && $dist4 == 0 } { |
24 | puts "OK ${BugNumber}" |
25 | } else { |
26 | puts "Faulty ${BugNumber}" |
27 | } |
28 | |
29 | set 3dviewer 0 |
30 | |
31 | |