mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
e5260e1dfa
Euclidean distance criteria is added for local point / surface extrema. Classes representing objective criteria are renamed to be consistent. Local extrema usage is updated according to new behavior. Test case is added. Misprint correction.
26 lines
610 B
Plaintext
26 lines
610 B
Plaintext
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"
|
|
}
|