tests/bugs/modalg_7/bug28123

   1 puts "=============================================================="
   2 puts "OCC28123: Boolean Cut produces faulty shape"
   3 puts "=============================================================="
   4 puts ""
   5
   6 brestore [locate_data_file bug28123_s1.brep] s1
   7 brestore [locate_data_file bug28123_s3.brep] s3
   8
   9 bclearobjects
  10 bcleartools
  11 baddobjects s1
  12 baddtools s3
  13 bfillds
  14
  15 bbop r0 0
  16 bbop r1 1
  17 bbop r2 2
  18 bbop r3 3
  19 bbop r4 4
  20
  21 foreach r {r0 r1 r2 r3 r4} {
  22   checkshape $r
  23   if {![regexp "OK" [bopcheck $r]]} {
  24     puts "Error: the result of BOP is self-interfering shape"
  25   }
  26 }
  27
  28 checknbshapes r0 -wire 6 -face 6 -shell 1 -solid 1
  29 checkprops r0 -s 5.2 -v 0.42
  30
  31 checknbshapes r1 -wire 25 -face 25 -shell 1 -solid 1
  32 checkprops r1 -s 45921.2 -v 6839.09
  33
  34 checknbshapes r2 -wire 17 -face 17 -shell 1 -solid 1
  35 checkprops r2 -s 45780.6 -v 6784.77
  36
  37 checknbshapes r3 -wire 10 -face 10 -shell 2 -solid 2
  38 checkprops r3 -s 142.969 -v 39.5572
  39
  40 checkprops r4 -l 14.2568
  41
  42 checkview -display r2 -2d -path ${imagedir}/${test_image}.png