5 ###############################
6 ## Compsolid after cut becomes compound of solids
7 ###############################
13 polyline spine 0 0 0 10 10 0
18 plane pl 10 10 0 -1 -1 0 1 0 0
28 set ShapeType "COMPSOLID"
29 if { [regexp $ShapeType [whatis res_1]] == 1 } {
30 puts "OK : There is $ShapeType; Compsolid is good"
32 puts "Error : There is not $ShapeType; Compsolid is bad"