1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-08 18:40:55 +03:00
occt/tests/bugs/modalg_5/bug24200
aml 84f4830127 0024200: Wrong result obtained by Exterma Curve/Curve
changed number of nodes in case of GeomAbs_Line in Extrema_GExtCC::Perform() function.
changed number of nodes in case of GeomAbs_Line in Extrema_GExtCC::Perform().
fixed incorrect indexes and Coeff check in Extrema_CurveCache::Extrema_CurveCache added to avoid int overflow.
Added test case bugs/modalg_5/bug24200
Added check if (aNbS[i] * Coeff[i]) too big in Extrema_GExtCC::Perform().
2013-10-24 11:55:23 +04:00

38 lines
859 B
Plaintext

puts "============"
puts "OCC24200"
puts "============"
puts ""
#################################################
# Wrong result obtained by Extrema Curve/Curve
#################################################
restore [locate_data_file bug24200_c1] c1
restore [locate_data_file bug24200_c2] c2
set info_1 [extrema c1 c2]
if { [regexp "ext_15" $info_1] != 1 } {
puts "Error : Extrema is wrong"
} else {
puts "OK : Extrema is correct"
}
trim c1t c1 677.8 678.8
trim c2t c2 2477 2479
extrema c1t c2t
cvalue c1t 678.34269564178146 x y z
vertex v1 x y z
cvalue c2t 2478.1205500811761 x y z
vertex v2 x y z
distmini d v1 v2
regexp {([-0-9.+eE]+)} [dump d_val] full dist
set checkdist 2.54211497292521e-013
if { [expr 1.*abs($checkdist - $dist)/$checkdist] > 0.1 } {
puts "Error : Distance is wrong"
} else {
puts "OK: Distance is correct"
}