mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
f9ffd4f9f3
Strengthening of the criteria of the parallel status of the curves by additional checking if the ends of the curves do not diverge. Test cases for the issue.
32 lines
785 B
Plaintext
32 lines
785 B
Plaintext
puts "============"
|
|
puts "OCC29465"
|
|
puts "============"
|
|
puts ""
|
|
#########################################################################
|
|
# Regression relation to 691 version: Extrema_ExtCC returns IsParallel equal to true for not parallel curves
|
|
#########################################################################
|
|
|
|
set dist 0.2
|
|
|
|
restore [locate_data_file bug27371.brep] s
|
|
explode s
|
|
explode s_1 e
|
|
mkcurve c1 s_1_1
|
|
explode s_2 e
|
|
mkcurve c2 s_2_20
|
|
|
|
CheckExtResult [extrema c1 c2] $dist
|
|
CheckExtResult [extrema c2 c1] $dist
|
|
|
|
reverse c1
|
|
CheckExtResult [extrema c1 c2] $dist
|
|
CheckExtResult [extrema c2 c1] $dist
|
|
|
|
reverse c2
|
|
CheckExtResult [extrema c1 c2] $dist
|
|
CheckExtResult [extrema c2 c1] $dist
|
|
|
|
reverse c1
|
|
CheckExtResult [extrema c1 c2] $dist
|
|
CheckExtResult [extrema c2 c1] $dist
|