mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
8c745be5e0
Tolerance criterion is improved: P.SquareDistance(p1) < Tol -> P.SquareDistance(p1) < Tol*Tol
17 lines
487 B
Plaintext
17 lines
487 B
Plaintext
puts "========"
|
|
puts "OCC28692"
|
|
puts "========"
|
|
puts ""
|
|
####################################################################################
|
|
## Projection failed (projponf)
|
|
####################################################################################
|
|
|
|
restore [locate_data_file bug28692_shapes.brep] bi3
|
|
point p -0.0153 0 0.017
|
|
set dist -1
|
|
regexp {proj dist = ([-0-9.+eE]+)} [projponf bi3 p] full dist
|
|
if { $dist < 0 || $dist > 1.e-7 } {
|
|
puts "Error : Projection failed "
|
|
}
|
|
|