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.
25 lines
623 B
Plaintext
25 lines
623 B
Plaintext
puts "========"
|
|
puts "OCC27131"
|
|
puts "========"
|
|
puts ""
|
|
##############################################
|
|
# DistShapeShape works slow on attached shapes
|
|
##############################################
|
|
restore [locate_data_file bug27131.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
|
|
}
|
|
dchrono h stop counter distmini
|
|
|
|
# Check result of distance distance
|
|
set absTol 1.0e-10
|
|
set relTol 0.001
|
|
set aDist_Exp 0.0029087110153708622
|
|
set aDist [dval d_val]
|
|
checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol |