5 ###############################
6 ## Compsolid after cut becomes compound of solids
7 ###############################
30 # should shell and two solids
33 if { [regexp $ShapeType [whatis r_1]] == 1 } {
34 puts "OK : There is $ShapeType; Compsolid is good"
36 puts "Error : There is not $ShapeType; Compsolid is bad"
40 if { [regexp $ShapeType [whatis r_2]] == 1 } {
41 puts "OK : There is $ShapeType; Compsolid is good"
43 puts "Error : There is not $ShapeType; Compsolid is bad"
47 if { [regexp $ShapeType [whatis r_3]] == 1 } {
48 puts "OK : There is $ShapeType; Compsolid is good"
50 puts "Error : There is not $ShapeType; Compsolid is bad"