aeaf53d5 |
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 | } |