mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
638ad7f3c5
1. Extrema algorithm calls Curve-surface intersector. This intersector returns flag about infinite solution (in spite of extrema's returning not-parallel status correctly - axes of considered cylinder and circle are not parallel). In this case, attempt of obtaining number of intersection points leads to exception. So, the fix adds check of infinite solution after the intersection algorithm. 2. The methods IsDone(), IsParallel(), NbExt(), SquareDistance() and Points() (of Extrema_* classes) have been corrected to make them consistent to the documentation. 3. Revision of some Extrema_* classes has been made in order to avoid places with uninitialized variables. 4. Currently Extrema does not store any points in case when the arguments are parallel. It stores the distance only. 5. Some cases on Extrema-algo have been moved from "fclasses"-group to "modalg"-group.
69 lines
1.4 KiB
Plaintext
69 lines
1.4 KiB
Plaintext
puts "========"
|
|
puts "OCC29712"
|
|
puts "========"
|
|
puts ""
|
|
#################################################
|
|
# Extrema algorithm raises exception
|
|
#################################################
|
|
|
|
# Curves c1 and c2 are concentric circles.
|
|
# However, they are bounded (trimmed) curves
|
|
# and are shifted relatively to each other.
|
|
|
|
circle c1 0 0 0 0 0 1 100
|
|
circle c2 0 0 0 0 0 1 50
|
|
trim c1 c1 0 pi
|
|
trim c2 c2 pi 2*pi
|
|
|
|
smallview
|
|
|
|
# Case 1
|
|
|
|
don c1 c2
|
|
|
|
foreach a [ directory ext_* ] { unset $a }
|
|
extrema c1 c2
|
|
if { [llength [ directory ext_* ] ] != 2 } {
|
|
puts "Error: Wrong number of solutions (c1 c2)"
|
|
}
|
|
|
|
fit
|
|
checkview -2d -screenshot -path ${imagedir}/${test_image}_1.png
|
|
|
|
regexp {The length ext_1 is +([-0-9.+eE]+)} [length ext_1] full l11
|
|
regexp {The length ext_2 is +([-0-9.+eE]+)} [length ext_2] full l12
|
|
|
|
if { $l11 > $l12} {
|
|
set tmp1 $l11
|
|
set l11 $l12
|
|
set l12 $tmp1
|
|
}
|
|
|
|
checkreal MinL1 $l11 50.0 1.0e-7 0.0
|
|
checkreal MaxL1 $l12 150.0 1.0e-7 0.0
|
|
|
|
# Case 2
|
|
|
|
don c1 c2
|
|
|
|
foreach a [ directory ext_* ] { unset $a }
|
|
extrema c2 c1
|
|
if { [llength [ directory ext_* ] ] != 2 } {
|
|
puts "Error: Wrong number of solutions (c2 c1)"
|
|
}
|
|
|
|
fit
|
|
checkview -2d -screenshot -path ${imagedir}/${test_image}_2.png
|
|
|
|
regexp {The length ext_1 is +([-0-9.+eE]+)} [length ext_1] full l21
|
|
regexp {The length ext_2 is +([-0-9.+eE]+)} [length ext_2] full l22
|
|
|
|
if { $l21 > $l22} {
|
|
set tmp2 $l11
|
|
set l21 $l22
|
|
set l22 $tmp2
|
|
}
|
|
|
|
checkreal MinL2 $l21 50.0 1.0e-7 0.0
|
|
checkreal MaxL2 $l22 150.0 1.0e-7 0.0
|