tests/bugs/fclasses/bug24137

   1 puts "================"
   2 puts "OCC24137"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # math_FunctionSetRoot returns too rough solution
   7 #######################################################################
   8
   9 pload QAcommands
  10
  11 vertex v 6.65634 -0.201746 2.51477
  12 restore [locate_data_file bug24137_face.brep] f
  13
  14 OCC24137 f v 508.326 77.6999
  15 distmini d v result
  16
  17 regexp {([-0-9.+eE]+)$} [dump d_val] full dist
  18 set good_dist 0
  19 set toler 2.0e-06
  20 if { [expr abs( ${dist} - ${good_dist} )] > ${toler} } {
  21     puts "Faulty : the distanse is ${dist}. It is bad value"
  22 }