9bf3177f |
1 | puts "================" |
2 | puts "OCC25861" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Wrong result obtained by projection algorithm. |
7 | ####################################################################### |
8 | |
9 | pload QAcommands |
10 | |
11 | restore [locate_data_file bug25861_f3.brep] f3 |
12 | |
13 | point p 6.9184976310066668 -24.127668568051799 8.6427835999999978 |
14 | |
15 | set info [xprojponf p f3] |
16 | |
17 | if { [regexp {point px +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} ${info} string x2 y2 z2] != 1 } { |
18 | puts "Error: Wrong result obtained by projection algorithm" |
19 | } else { |
20 | puts "OK: Good result obtained by projection algorithm" |
21 | |
22 | vertex v1 p |
23 | vertex v2 ${x2} ${y2} ${z2} |
24 | |
25 | set CMP_TOL 1.0e-7 |
26 | distmini res v1 v2 |
27 | set distmin [dval res_val] |
28 | if { [expr abs(${distmin})] > ${CMP_TOL} } { |
29 | puts "Error: Wrong projection point" |
30 | } else { |
31 | puts "OK: Good projection point" |
32 | } |
33 | |
34 | } |