puts "============"
puts "OCC26565"
puts "============"
puts ""
###############################
## Compsolid after cut becomes compound of solids
###############################

box b 10 10 10
explode b f

shape profile Sh
add b_1 profile
add b_3 profile

polyline spine 0 0 0 10 10 0

pipe sh spine profile

whatis sh
plane pl 10 10 0 -1 -1 0 1 0 0
mkface f pl

shape sl So
shape sl_sh Sh
add f sl_sh
add sl_sh sl

bcut res sh sl

explode res

# should be compsolid

set ShapeType "COMPSOLID"
if { [regexp $ShapeType [whatis res_1]] == 1  } {
   puts "OK : There is $ShapeType; Compsolid is good"
} else {
   puts "Error : There is not $ShapeType; Compsolid is bad"
}
