mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
fb60057d23
Command tolmax was removed. Tcl command checkmaxtol is used now in test cases to check maximum tolerance. Reference values in test cases were updated.
28 lines
642 B
Plaintext
28 lines
642 B
Plaintext
puts "========"
|
|
puts "OCC24065"
|
|
puts "========"
|
|
puts ""
|
|
#######################################################################
|
|
# Wrong intersection point
|
|
#######################################################################
|
|
|
|
restore [locate_data_file bug24065_f.brep] f
|
|
restore [locate_data_file bug24065_e.brep] e
|
|
|
|
# 1
|
|
set CMP_TOL 1.e-7
|
|
|
|
checkmaxtol f -min_tol ${CMP_TOL}
|
|
|
|
mksurface s f
|
|
mkcurve c e
|
|
intersect i c s
|
|
|
|
# 2
|
|
set CMP_DIST 1.86835288e-8
|
|
set distmax [projponf f i_2]
|
|
regexp {proj dist = ([-0-9.+eE]+)} ${distmax} full MaxDist
|
|
if { [expr abs(${MaxDist} - ${CMP_DIST})] > ${CMP_TOL} } {
|
|
puts "Error: Wrong intersection point"
|
|
}
|