tests/bugs/modalg_6/bug26565_3

   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 shape sh sh
  17 add f sh
  18 copy sh f
  19 shape w w
  20 add e w
  21 copy w e
  22
  23 bclearobjects
  24 bcleartools
  25 baddobjects f e
  26 baddtools b2
  27
  28 bfillds
  29 bbop r 0
  30
  31 nbshapes r
  32
  33 bbop r 2
  34
  35 nbshapes r
  36 explode r
  37
  38 # should be shell and wire
  39
  40 set ShapeType "SHELL"
  41 if { [regexp $ShapeType [whatis r_1]] == 1  } {
  42    puts "OK : There is $ShapeType; Compsolid is good"
  43 } else {
  44    puts "Error : There is not $ShapeType; Compsolid is bad"
  45 }
  46
  47 set ShapeType "WIRE"
  48 if { [regexp $ShapeType [whatis r_2]] == 1  } {
  49    puts "OK : There is $ShapeType; Compsolid is good"
  50 } else {
  51    puts "Error : There is not $ShapeType; Compsolid is bad"
  52 }