tests/bugs/modalg_7/bug27928

   1 puts "=============================================================="
   2 puts "OCC27928: BOP common produces empty compound"
   3 puts "=============================================================="
   4
   5 restore [locate_data_file bug27928_b1.brep] b1
   6 restore [locate_data_file bug27928_b2.brep] b2
   7
   8 bclearobjects
   9 bcleartools
  10 baddobjects b1
  11 baddtools b2
  12 bfillds
  13
  14 bbop r0 0
  15 bbop r1 1
  16 bbop r2 2
  17 bbop r3 3
  18 bbop r4 4
  19
  20 foreach r {r0 r1 r2 r3 r4} {
  21   checkshape $r
  22   if {![regexp "OK" [bopcheck $r]]} {
  23     puts "Error: the result of BOP is self-interfering shape"
  24   }
  25 }
  26
  27 checknbshapes r0 -wire 8 -face 8 -shell 1 -solid 1
  28 checkprops r0 -s 21820.6 -v 221499
  29
  30 checknbshapes r1 -wire 14 -face 14 -shell 1 -solid 1
  31 checkprops r1 -s 22455.1 -v 224813
  32
  33 checknbshapes r2 -wire 5 -face 5 -shell 1 -solid 1
  34 checkprops r2 -s 2075.44 -v 1489.33
  35
  36 checknbshapes r3 -wire 5 -face 5 -shell 1 -solid 1
  37 checkprops r3 -s 2521.83 -v 1824.69
  38
  39 checknbshapes r4 -vertex 12 -edge 18 -t
  40 checkprops r4 -l 825.645
  41
  42 checkview -display r0 -2d -path ${imagedir}/${test_image}.png