tests/bugs/moddata_3/bug25861

   1 puts "================"
   2 puts "OCC25861"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Wrong result obtained by projection algorithm.
   7 #######################################################################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file bug25861_f3.brep] f3
  12
  13 point p 6.9184976310066668 -24.127668568051799 8.6427835999999978
  14
  15 set info [xprojponf p f3]
  16
  17 if { [regexp {point px +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} ${info} string x2 y2 z2] != 1 } {
  18     puts "Error: Wrong result obtained by projection algorithm"
  19 } else {
  20     puts "OK: Good result obtained by projection algorithm"
  21
  22     vertex v1 p
  23     vertex v2 ${x2} ${y2} ${z2}
  24
  25     set CMP_TOL 1.0e-7
  26     distmini res v1 v2
  27     set distmin [dval res_val]
  28     if { [expr abs(${distmin})] > ${CMP_TOL} } {
  29        puts "Error: Wrong projection point"
  30     } else {
  31        puts "OK: Good projection point"
  32     }
  33
  34 }