5 ###############################
6 ## Compsolid after cut becomes compound of solids
7 ###############################
16 polyline spine 0 0 0 10 10 0
21 plane pl 10 10 0 -1 -1 0 1 0 0
35 set ShapeType "COMPSOLID"
36 if { [regexp $ShapeType [whatis res_1]] == 1 } {
37 puts "OK : There is $ShapeType; Compsolid is good"
39 puts "Error : There is not $ShapeType; Compsolid is bad"