tests/bugs/modalg_6/bug26565_1

   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 explode b1 f
  11 copy b1_1 f
  12 explode b1 e
  13 copy b1_8 e
  14
  15 box b2 10 5 5
  16
  17 bclearobjects
  18 bcleartools
  19 baddobjects f e
  20 baddtools b2
  21
  22 bfillds
  23 bbop r 0
  24
  25 nbshapes r
  26
  27 bbop r 2
  28
  29 nbshapes r
  30 explode r
  31
  32 # should edge and face
  33
  34 set ShapeType "FACE"
  35 if { [regexp $ShapeType [whatis r_1]] == 1  } {
  36    puts "OK : There is $ShapeType; Compsolid is good"
  37 } else {
  38    puts "Error : There is not $ShapeType; Compsolid is bad"
  39 }
  40
  41 set ShapeType "EDGE"
  42 if { [regexp $ShapeType [whatis r_2]] == 1  } {
  43    puts "OK : There is $ShapeType; Compsolid is good"
  44 } else {
  45    puts "Error : There is not $ShapeType; Compsolid is bad"
  46 }