e5260e1d |
1 | puts "================" |
2 | puts "OCC27466: " |
3 | puts "================" |
4 | puts "" |
5 | #################### |
6 | ## The algorithm Extrema_GenLocateExtPS gives incorrect result |
7 | #################### |
8 | |
9 | pload QAcommands |
10 | |
11 | restore [locate_data_file bug27466.brep] a |
12 | |
13 | point pnt -5.909487750466874e-006 -0.1557578329355927 0.1298542821722014 |
14 | point uv0 0.748729882974883 0.5000000063028793 |
15 | |
16 | set out [OCC27466 a pnt uv0] |
17 | if [regexp {dist=([0-9.+-e]*)} $out dummy dist] { |
18 | if {$dist > 1e-7} { |
19 | puts "Error: distance of projection is too large ($dist)" |
20 | } else { |
21 | puts "Test passed" |
22 | } |
23 | } else { |
24 | puts "Error: projection failure" |
25 | } |