puts "================" puts "OCC27466: " puts "================" puts "" #################### ## The algorithm Extrema_GenLocateExtPS gives incorrect result #################### pload QAcommands restore [locate_data_file bug27466.brep] a point pnt -5.909487750466874e-006 -0.1557578329355927 0.1298542821722014 point uv0 0.748729882974883 0.5000000063028793 set out [OCC27466 a pnt uv0] if [regexp {dist=([0-9.+-e]*)} $out dummy dist] { if {$dist > 1e-7} { puts "Error: distance of projection is too large ($dist)" } else { puts "Test passed" } } else { puts "Error: projection failure" }