1puts "============"
2puts "CR28182"
3puts "==========="
4puts ""
5###############################################################################
6# BRepExtrema_DistShapeShape returns bad result of non-default deflection is used
7###############################################################################
8
9pload MODELING
10
11restore [locate_data_file bug28175_borders2.brep] b
12restore [locate_data_file bug28175_segments2_diff.brep] s
13explode s
14donly s_198 b
15
16set ref_nbsol 4
17set defl 0.0001
18
19set res [distmini r s_198 b $defl]
20
21set redges [lrange [lindex [split $res \n] 1] 1 end]
22set nbsol [llength $redges]
23set dist [dval r_val]
24
25don b s_198
26foreach q $redges { display $q; foreach v [explode $q] { display $v } }
27fit
28
29if { $dist > $defl } {
30  puts "Error: too big distance is reported: $dist"
31} else {
32  puts "OK: reported distance $dist is below $defl"
33}
34
35if {$nbsol != $ref_nbsol} {
36  puts "Error: $ref_nbsol solutions expected, but $nbsol found"
37} else {
38  puts "OK: $ref_nbsol solutions are found"
39}
40