5 ###############################
6 ## Compsolid after cut becomes compound of solids
7 ###############################
16 baddobjects b1 b2 b3 b4
40 # should be compsolid and solid
42 set ShapeType "COMPSOLID"
43 if { [regexp $ShapeType [whatis r_1]] == 1 } {
44 puts "OK : There is $ShapeType; Compsolid is good"
46 puts "Error : There is not $ShapeType; Compsolid is bad"
50 if { [regexp $ShapeType [whatis r_2]] == 1 } {
51 puts "OK : There is $ShapeType; Compsolid is good"
53 puts "Error : There is not $ShapeType; Compsolid is bad"