0024347: problem by tolerance of the distance of Face and Vertex
[occt.git] / tests / bugs / modalg_5 / bug24347
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 }