21761b6f |
1 | puts "============" |
2 | puts "OCC24347" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################### |
6 | # Problem by tolerance of the distance of Face and Vertex |
7 | ########################################################### |
8 | |
9 | pload XDE |
10 | set checkvalue 2.72742879238428e-14 |
11 | |
12 | restore [locate_data_file bug24347_face.brep] f |
13 | vertex v 34.265509314637 0.1 0.73361964922719 |
14 | |
15 | settolerance f 4.e-6 |
16 | distmini d1 f v |
17 | |
18 | regexp {([-0-9.+eE]+)$} [dump d1_val] full distvalue |
19 | if { $distvalue != $checkvalue } { |
20 | puts "Error: distance is incorrect" |
21 | } else { |
22 | puts "OK: distance is correct" |
23 | } |