5 #######################################################################
6 # Wrong result of projection point on the face
7 #######################################################################
9 restore [locate_data_file bug22109_tore.brep] b
13 point p 934.419505115097 1387.10553740067 8.42056376938594e-014
15 set GOOD_DIST 1.0481408664017105e-12
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)"
24 puts "OK: Good intersection point (t-option)"
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)"
33 puts "OK: Good intersection point (g-option)"