0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26565_8
CommitLineData
9526aa6a 1puts "============"
2puts "OCC26565"
3puts "============"
4puts ""
5###############################
6## Compsolid after cut becomes compound of solids
7###############################
8
9box b 10 10 10
10explode b f
11mkshe profile b_1 b_3
12
13polyline spine 0 0 0 10 10 0
14
15pipe sh spine profile
16
17whatis sh
18plane pl 10 10 0 -1 -1 0 1 0 0
19mkface f pl
20mksol sl f
21
22bcut res sh sl
23
24explode res
25
26# should be compsolid
27
28set ShapeType "COMPSOLID"
29if { [regexp $ShapeType [whatis res_1]] == 1 } {
30 puts "OK : There is $ShapeType; Compsolid is good"
31} else {
32 puts "Error : There is not $ShapeType; Compsolid is bad"
33}