0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26565_4
1 puts "============"
2 puts "OCC26565"
3 puts "============"
4 puts ""
5 ###############################
6 ## Compsolid after cut becomes compound of solids
7 ###############################
8
9 box b1 10 10 10
10 box b2 10 0 0 10 5 5
11 box b3 10 5 0 10 5 5
12 box b4 10 0 5 10 10 5
13
14 bclearobjects
15 bcleartools
16 baddobjects b1 b2 b3 b4
17
18 bfillds
19 bbuild r
20
21 explode r so
22
23 shape b1 CS
24 add r_1 b1
25 add r_2 b1
26 add r_3 b1
27 add r_4 b1
28
29 box b2 5 0 2 10 10 10
30 bclearobjects
31 bcleartools
32 baddobjects b1
33 baddtools b2
34
35 bfillds
36 bbop r 2
37
38 explode r
39
40 # should be compsolid
41  
42 set ShapeType "COMPSOLID"
43 if { [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 }