5 ###############################
6 ## Compsolid after cut becomes compound of solids
7 ###############################
38 # should be shell and wire
41 if { [regexp $ShapeType [whatis r_1]] == 1 } {
42 puts "OK : There is $ShapeType; Compsolid is good"
44 puts "Error : There is not $ShapeType; Compsolid is bad"
48 if { [regexp $ShapeType [whatis r_2]] == 1 } {
49 puts "OK : There is $ShapeType; Compsolid is good"
51 puts "Error : There is not $ShapeType; Compsolid is bad"