tests/bugs/modalg_6/bug26565_2

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