puts "========" puts "CR24134" puts "========" puts "" ####################################################################### # Wrong result of projection point on the face ####################################################################### restore [locate_data_file bug22109_tore.brep] b explode b f copy b_1 f point p 934.419505115097 1387.10553740067 8.42056376938594e-014 set GOOD_DIST 1.0481408664017105e-12 set CMP_TOL 5.0e-12 # 1 set log_t [projponf f p -t] regexp {proj dist = ([-0-9.+eE]+)} ${log_t} full distmax_t if { [expr abs(${distmax_t} - ${GOOD_DIST})] > ${CMP_TOL} } { puts "Error: Wrong intersection point (t-option)" } else { puts "OK: Good intersection point (t-option)" } # 2 set log_g [projponf f p -g] regexp {proj dist = ([-0-9.+eE]+)} ${log_g} full distmax_g if { [expr abs(${distmax_g} - ${GOOD_DIST})] > ${CMP_TOL} } { puts "Error: Wrong intersection point (g-option)" } else { puts "OK: Good intersection point (g-option)" }