0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26565_4
CommitLineData
9526aa6a 1puts "============"
2puts "OCC26565"
3puts "============"
4puts ""
5###############################
6## Compsolid after cut becomes compound of solids
7###############################
8
9box b1 10 10 10
10box b2 10 0 0 10 5 5
11box b3 10 5 0 10 5 5
12box b4 10 0 5 10 10 5
13
14bclearobjects
15bcleartools
16baddobjects b1 b2 b3 b4
17
18bfillds
19bbuild r
20
21explode r so
22
23shape b1 CS
24add r_1 b1
25add r_2 b1
26add r_3 b1
27add r_4 b1
28
29box b2 5 0 2 10 10 10
30bclearobjects
31bcleartools
32baddobjects b1
33baddtools b2
34
35bfillds
36bbop r 2
37
38explode r
39
40# should be compsolid
41
42set ShapeType "COMPSOLID"
43if { [regexp $ShapeType [whatis r_1]] == 1 } {
44 puts "OK : There is $ShapeType; Compsolid is good"
45} else {
46 puts "Error : There is not $ShapeType; Compsolid is bad"
47}