tests/bugs/modalg_6/bug26565_4

   1 puts "============"
   2 puts "OCC26565"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Compsolid after cut becomes compound of solids
   7 ###############################
   8
   9 box b1 10 10 10
  10 box b2 10 0 0 10 5 5
  11 box b3 10 5 0 10 5 5
  12 box b4 10 0 5 10 10 5
  13
  14 bclearobjects
  15 bcleartools
  16 baddobjects b1 b2 b3 b4
  17
  18 bfillds
  19 bbuild r
  20
  21 explode r so
  22
  23 shape b1 CS
  24 add r_1 b1
  25 add r_2 b1
  26 add r_3 b1
  27 add r_4 b1
  28
  29 box b2 5 0 2 10 10 10
  30 bclearobjects
  31 bcleartools
  32 baddobjects b1
  33 baddtools b2
  34
  35 bfillds
  36 bbop r 2
  37
  38 explode r
  39
  40 # should be compsolid
  41
  42 set ShapeType "COMPSOLID"
  43 if { [regexp $ShapeType [whatis r_1]] == 1  } {
  44    puts "OK : There is $ShapeType; Compsolid is good"
  45 } else {
  46    puts "Error : There is not $ShapeType; Compsolid is bad"
  47 }