5 ###############################
6 ## Compsolid after cut becomes compound of solids
7 ###############################
32 # should edge and face
35 if { [regexp $ShapeType [whatis r_1]] == 1 } {
36 puts "OK : There is $ShapeType; Compsolid is good"
38 puts "Error : There is not $ShapeType; Compsolid is bad"
42 if { [regexp $ShapeType [whatis r_2]] == 1 } {
43 puts "OK : There is $ShapeType; Compsolid is good"
45 puts "Error : There is not $ShapeType; Compsolid is bad"