tests/bugs/moddata_3/bug24134

   1 puts "========"
   2 puts "CR24134"
   3 puts "========"
   4 puts ""
   5 #######################################################################
   6 # Wrong result of projection point on the face
   7 #######################################################################
   8
   9 restore [locate_data_file bug22109_tore.brep] b
  10 explode b f
  11
  12 copy b_1 f
  13 point p 934.419505115097 1387.10553740067 8.42056376938594e-014
  14
  15 set GOOD_DIST 1.0481408664017105e-12
  16 set CMP_TOL 5.0e-12
  17
  18 # 1
  19 set log_t [projponf f p -t]
  20 regexp {proj dist = ([-0-9.+eE]+)} ${log_t} full distmax_t
  21 if { [expr abs(${distmax_t} - ${GOOD_DIST})] > ${CMP_TOL} } {
  22    puts "Error: Wrong intersection point (t-option)"
  23 } else {
  24    puts "OK: Good intersection point (t-option)"
  25 }
  26
  27 # 2
  28 set log_g [projponf f p -g]
  29 regexp {proj dist = ([-0-9.+eE]+)} ${log_g} full distmax_g
  30 if { [expr abs(${distmax_g} - ${GOOD_DIST})] > ${CMP_TOL} } {
  31    puts "Error: Wrong intersection point (g-option)"
  32 } else {
  33    puts "OK: Good intersection point (g-option)"
  34 }