0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26565_7
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
22shape b1 CS
23add r_1 b1
24add r_2 b1
25add r_3 b1
26add r_4 b1
27
28box b2 5 0 2 10 10 10
29box b3 -5 2 3 30 6 4
30bclearobjects
31bcleartools
32baddobjects b1 b2
33baddtools b3
34
35bfillds
36bbop r 2
37
38explode r
39
40# should be compsolid and solid
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}
48
49set ShapeType "SOLID"
50if { [regexp $ShapeType [whatis r_2]] == 1 } {
51 puts "OK : There is $ShapeType; Compsolid is good"
52} else {
53 puts "Error : There is not $ShapeType; Compsolid is bad"
54}