mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
53 lines
1.4 KiB
Plaintext
Executable File
53 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 tolmax_f [tolmax f]
|
|
regexp {max tol = ([-0-9.+eE]+)} ${tolmax_f} full CMP_TOL
|
|
|
|
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"
|
|
}
|