0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26565_3
CommitLineData
9526aa6a 1puts "============"
2puts "OCC26565"
3puts "============"
4puts ""
5###############################
6## Compsolid after cut becomes compound of solids
7###############################
8
9box b1 10 10 10
10explode b1 f
11copy b1_1 f
12explode b1 e
13copy b1_8 e
14
15box b2 10 5 5
16shape sh sh
17add f sh
18copy sh f
19shape w w
20add e w
21copy w e
22
23bclearobjects
24bcleartools
25baddobjects f e
26baddtools b2
27
28bfillds
29bbop r 0
30
31nbshapes r
32
33bbop r 2
34
35nbshapes r
36explode r
37
38# should be shell and wire
39
40set ShapeType "SHELL"
41if { [regexp $ShapeType [whatis r_1]] == 1 } {
42 puts "OK : There is $ShapeType; Compsolid is good"
43} else {
44 puts "Error : There is not $ShapeType; Compsolid is bad"
45}
46
47set ShapeType "WIRE"
48if { [regexp $ShapeType [whatis r_2]] == 1 } {
49 puts "OK : There is $ShapeType; Compsolid is good"
50} else {
51 puts "Error : There is not $ShapeType; Compsolid is bad"
52}