mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
fa6d1712fd
Extrema Curve / Surface algorithm changed to perform more accurate search. test case bug25232_8 - improvement, one additional intersection point is detected now. test case bug23830 - normal behavior, position of extrema is changed. test case for original issue added.
26 lines
653 B
Plaintext
26 lines
653 B
Plaintext
puts "========"
|
|
puts "OCC27114"
|
|
puts "========"
|
|
puts ""
|
|
##############################################
|
|
# DistShapeShape gives not all solutions
|
|
# Correct result is 2 solutions
|
|
##############################################
|
|
|
|
restore [locate_data_file bug27114.brep] aShape
|
|
explode aShape
|
|
set anInfo [distmini d aShape_1 aShape_2]
|
|
|
|
# Check number of solutions
|
|
if { [llength $anInfo] != 9 } {
|
|
puts "ERROR: Incorrect number of solutions"
|
|
} else {
|
|
puts "OK: Two solutions is found"
|
|
}
|
|
|
|
# Check extrema distance
|
|
set absTol 1.0e-10
|
|
set relTol 0.001
|
|
set aDist_Exp 0.0
|
|
set aDist [dval d_val]
|
|
checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol |