tests/bugs/modalg_6/bug26565_6

   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 shape b1 CS
  23 add r_1 b1
  24 add r_2 b1
  25 add r_3 b1
  26 add r_4 b1
  27
  28 box b2 5 0 2 10 10 5
  29 box b3 5 0 7 10 10 5
  30 bclearobjects
  31 bcleartools
  32 baddobjects b2 b3
  33
  34 bfillds
  35 bbuild r
  36
  37 explode r so
  38 shape b2 CS
  39 add r_1 b2
  40 add r_2 b2
  41
  42 box b3 5 -2 -2 10 14 20
  43 bclearobjects
  44 bcleartools
  45 baddobjects b1 b2
  46 baddtools b3
  47
  48 bfillds
  49 bbop r 2
  50
  51 explode r
  52
  53 # should be two compsolids
  54
  55 set ShapeType "COMPSOLID"
  56 if { [regexp $ShapeType [whatis r_1]] == 1  } {
  57    puts "OK : There is $ShapeType; Compsolid is good"
  58 } else {
  59    puts "Error : There is not $ShapeType; Compsolid is bad"
  60 }
  61
  62 set ShapeType "COMPSOLID"
  63 if { [regexp $ShapeType [whatis r_2]] == 1  } {
  64    puts "OK : There is $ShapeType; Compsolid is good"
  65 } else {
  66    puts "Error : There is not $ShapeType; Compsolid is bad"
  67 }