tests/bugs/modalg_2/bug23043

   1 puts "========================"
   2 puts "OCC23043"
   3 puts "========================"
   4 puts ""
   5 ################################################################################################################
   6 # Wrong results of BRepExtrema_DistShapeShape: non-null minimum distance between intersecting line and cylinder
   7 ################################################################################################################
   8
   9 set BugNumber OCC23043
  10
  11 restore [locate_data_file bug23043_croix.brep] a
  12 restore [locate_data_file bug23043_cylindre.brep] b
  13 vdisplay a b
  14 vfit
  15 distmini dd a b
  16 set dist1 [ dval dd ]
  17 set dist2 [ dval dd2 ]
  18 set dist3 [ dval dd3 ]
  19 set dist4 [ dval dd4 ]
  20
  21
  22 puts ""
  23 if { $dist1 == 0 && $dist2 == 0 && $dist3 == 0 && $dist4 == 0 } {
  24     puts "OK ${BugNumber}"
  25 } else {
  26     puts "Faulty ${BugNumber}"
  27 }
  28
  29 checkview -screenshot -3d -path ${imagedir}/${test_image}.png