6220ba10 |
1 | puts "========" |
2 | puts "OCC27184" |
3 | puts "========" |
4 | puts "" |
5 | ############################################## |
6 | # BRepExtrema_DistShapeShape returns wrong result |
7 | # Correct distance is 0.0 |
8 | ############################################## |
9 | |
10 | restore [locate_data_file bug27184.brep] aShape |
11 | explode aShape |
12 | set anInfo [distmini d aShape_1 aShape_2] |
13 | |
14 | # Check extrema distance |
15 | set absTol 1.0e-10 |
16 | set relTol 0.001 |
17 | set aDist_Exp 0.0 |
18 | set aDist [dval d_val] |
19 | checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol |