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.
26 lines
656 B
Plaintext
26 lines
656 B
Plaintext
puts "========"
|
|
puts "OCC27371"
|
|
puts "========"
|
|
puts ""
|
|
##############################################
|
|
# Regression: BRepExtrema works too much slower in 691 (from 670)
|
|
##############################################
|
|
restore [locate_data_file bug27371.brep] aShape
|
|
explode aShape
|
|
|
|
cpulimit 20
|
|
|
|
# Check computation time
|
|
dchrono h restart
|
|
for { set i 1 } { $i <= 100 } { incr i } {
|
|
distmini d aShape_1 aShape_2
|
|
distmini d aShape_2 aShape_1
|
|
}
|
|
dchrono h stop counter distmini
|
|
|
|
# Check result of distance distance
|
|
set absTol 1.0e-10
|
|
set relTol 0.001
|
|
set aDist_Exp 0.2
|
|
set aDist [dval d_val]
|
|
checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol |