tests/bugs/modalg_7/bug30150

   1 puts "========"
   2 puts "0030150: Modeling Algorithms - Removal of BRepAlgo_BooleanOperations and BRepAlgo_DSAccess classes"
   3 puts "========"
   4 puts ""
   5
   6 box b1 10 10 10
   7 explode b1 f
   8 shape sx Sh
   9 foreach f [lrange [explode b1 f] 0 4] { add $f sx }
  10
  11 box b2 -50 -50 30 100 100 10
  12 explode b2 f
  13
  14
  15 draft r1 sx 0 0 1 0.2 b2
  16 draft r2 sx 0 0 1 0.2 b2_6
  17 draft r3 sx 0 0 1 0.2 b2 -OUT
  18
  19 foreach r {r1 r2 r3} {
  20   checkshape $r
  21   if {![regexp "OK" [bopcheck $r]]} {
  22     puts "Error: $r is self-interfered shape"
  23   }
  24 }
  25
  26 checkprops r1 -s 25319.3 -v 105060
  27 checknbshapes r1 -vertex 20 -edge 32 -wire 16 -face 15 -shell 1 -solid 1
  28
  29 checkprops r2 -s 11977.8
  30 checknbshapes r2 -vertex 16 -edge 24 -wire 11 -face 10 -shell 1 -solid 0
  31
  32 checkprops r3 -s 1975.12 -v 5059.99
  33 checknbshapes r3 -vertex 12 -edge 20 -wire 10 -face 10 -shell 1 -solid 1
  34
  35 checkview -display r3 -2d -path ${imagedir}/${test_image}.png