mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
09a4804444
Disable SetSingleSolutionFlag when calling algorithm of curve-curve Extrema. Now DistShapeShape will find all solutions, even if they are located on the same pair of edges. The fix brings the speed down for the cases of coinciding curves.
40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
puts "============"
|
|
puts "CR28183"
|
|
puts "==========="
|
|
puts ""
|
|
###############################################################################
|
|
# BRepExtrema_DistShapeShape does not find all solutions
|
|
###############################################################################
|
|
|
|
pload MODELING
|
|
|
|
restore [locate_data_file bug28175_borders2.brep] b
|
|
restore [locate_data_file bug28175_segments2.brep] s
|
|
explode b
|
|
explode s
|
|
|
|
set ref_nbsol 4
|
|
set ref_dist 1e-7
|
|
|
|
# find extremum points
|
|
set res [distmini r s_511 b_2]
|
|
set redges [lrange [lindex [split $res \n] 1] 1 end]
|
|
set nbsol [llength $redges]
|
|
set dist [dval r_val]
|
|
|
|
# display curves and points
|
|
don b_2 s_511
|
|
foreach q $redges { display $q; foreach v [explode $q] { display $v } }
|
|
|
|
if { $dist > $ref_dist } {
|
|
puts "Error: too big distance is reported: $dist"
|
|
} else {
|
|
puts "OK: reported distance $dist is below $ref_dist"
|
|
}
|
|
|
|
if {$nbsol != $ref_nbsol} {
|
|
puts "Error: $ref_nbsol solutions expected, but $nbsol found"
|
|
} else {
|
|
puts "OK: $ref_nbsol solutions are found"
|
|
}
|