1 puts "================"
3 puts "================"
5 ######################################################################################
6 # Bug in BRepExtrema_DistShapeShape (through BRepExtrema_DistanceSS0
7 ######################################################################################
11 # create edges and find minimal distance
13 mkface f p -10 10 -10 10
17 # get start and end vertices -- these should be solutions on f and v
21 # check distances in correct order
22 distmini d1 [lindex $sol 0] f
23 distmini d2 [lindex $sol 1] v
27 puts "Distances from solutions to relevant objects: $d1, $d2"
28 if { $d1 > 1e-7 || $d2 > 1e-7 } {
29 puts "Error: distances are non-zero!"
34 # check distances in swapped order
35 distmini d1 [lindex $sol 0] v
36 distmini d2 [lindex $sol 1] f
40 puts "Distances from solutions to swapped objects: $d1, $d2"
41 if { $d1 < 0.1 || $d2 < 0.1 } {
42 puts "Error: swapped distances are zero, i.e. solutions are swapped!"
48 if { ${status1} != 0 && ${status2} != 0 } {
49 puts "Faulty ${BugNumber}"
51 puts "OK ${BugNumber}"