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