tests/bugs/modalg_7/bug28157

   1 puts "========"
   2 puts "OCC28157"
   3 puts "========"
   4 puts ""
   5 #######################################################################################################################
   6 # Setting the tolerance of a face to a small value and then fixing it leads to a face with vertex-vertex intersections
   7 #######################################################################################################################
   8
   9 brunparallel 1
  10
  11 restore [locate_data_file bug28157_init.brep] n
  12 whatis n
  13 tolerance n
  14 checkshape n
  15 bopcheck n
  16
  17 restore [locate_data_file bug28157_solid.brep] s
  18 whatis s
  19 tolerance s
  20 checkshape s
  21 bopcheck s
  22
  23 bop s n
  24 bopcommon r
  25 whatis r
  26
  27 explode r
  28 whatis r_1
  29 tolerance r_1
  30
  31 settolerance r_1 1e-7
  32 fixshape rr r_1
  33 tolerance rr
  34 checkshape rr
  35
  36 set Log [bopcheck rr]
  37 if {[regexp "This shape seems to be OK" ${Log}] != 1} {
  38     puts "Error: there are vertex-vertex intersections"
  39 }
  40
  41 checkview -display rr -2d -path ${imagedir}/${test_image}.png