1 puts "================"
3 puts "================"
5 #######################################################################
6 # Exception during projection of the point on the face
7 #######################################################################
16 point p 0.753071156928785 4.98580193823337 0
18 set proj_fp [projponf f p -t]
19 regexp {proj dist = ([-0-9.+eE]+) uvproj = \(([-0-9.+eE]+) ([-0-9.+eE]+)\); pproj = \(([-0-9.+eE]+) ([-0-9.+eE]+) ([-0-9.+eE]+)\)} ${proj_fp} full dist uproj vproj proj1 proj2
27 set tolmax_f [tolmax f]
28 regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full CMP_TOL
30 puts "CMP_TOL=${CMP_TOL}"
32 set good_dist 9.16061678111512e-10
33 set good_uproj 1.4954178490327235
34 set good_vproj -2.3095450102606156e-12
35 set good_proj1 0.75307115689421944
36 set good_proj2 4.9858019373179632
38 if { [expr abs(${dist} - ${good_dist}) ] > ${CMP_TOL} } {
39 puts "Error: invalid dist"
41 if { [expr abs(${uproj} - ${good_uproj}) ] > ${CMP_TOL} } {
42 puts "Error: invalid uproj"
44 if { [expr abs(${vproj} - ${good_vproj}) ] > ${CMP_TOL} } {
45 puts "Error: invalid vproj"
47 if { [expr abs(${proj1} - ${good_proj1}) ] > ${CMP_TOL} } {
48 puts "Error: invalid proj1"
50 if { [expr abs(${proj2} - ${good_proj2}) ] > ${CMP_TOL} } {
51 puts "Error: invalid proj2"