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 }