mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +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.
52 lines
1.4 KiB
Plaintext
Executable File
52 lines
1.4 KiB
Plaintext
Executable File
puts "================"
|
|
puts "OCC24138"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Exception during projection of the point on the face
|
|
#######################################################################
|
|
|
|
ellipse w 0 0 0 10 5
|
|
mkedge w w
|
|
wire w w
|
|
mkplane w w
|
|
prism s w 2 0 30
|
|
explode s f
|
|
copy s_1 f
|
|
point p 0.753071156928785 4.98580193823337 0
|
|
|
|
set proj_fp [projponf f p -t]
|
|
regexp {proj dist = ([-0-9.+eE]+) uvproj = \(([-0-9.+eE]+) ([-0-9.+eE]+)\); pproj = \(([-0-9.+eE]+) ([-0-9.+eE]+) ([-0-9.+eE]+)\)} ${proj_fp} full dist uproj vproj proj1 proj2
|
|
|
|
puts "dist=${dist}"
|
|
puts "uproj=${uproj}"
|
|
puts "vproj=${vproj}"
|
|
puts "proj1=${proj1}"
|
|
puts "proj2=${proj2}"
|
|
|
|
set CMP_TOL [checkmaxtol f]
|
|
|
|
puts "CMP_TOL=${CMP_TOL}"
|
|
|
|
set good_dist 9.16061678111512e-10
|
|
set good_uproj 1.4954178490327235
|
|
set good_vproj -2.3095450102606156e-12
|
|
set good_proj1 0.75307115689421944
|
|
set good_proj2 4.9858019373179632
|
|
|
|
if { [expr abs(${dist} - ${good_dist}) ] > ${CMP_TOL} } {
|
|
puts "Error: invalid dist"
|
|
}
|
|
if { [expr abs(${uproj} - ${good_uproj}) ] > ${CMP_TOL} } {
|
|
puts "Error: invalid uproj"
|
|
}
|
|
if { [expr abs(${vproj} - ${good_vproj}) ] > ${CMP_TOL} } {
|
|
puts "Error: invalid vproj"
|
|
}
|
|
if { [expr abs(${proj1} - ${good_proj1}) ] > ${CMP_TOL} } {
|
|
puts "Error: invalid proj1"
|
|
}
|
|
if { [expr abs(${proj2} - ${good_proj2}) ] > ${CMP_TOL} } {
|
|
puts "Error: invalid proj2"
|
|
}
|