0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26565_2
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 5 0 0 10 10 10
11 explode b2 sh
12 copy b2_1 b2
13 box b3 5 0 5 10 10 10
14
15 bclearobjects
16 bcleartools
17 baddobjects b1 b2
18 baddtools b3
19
20 bfillds
21 bbop r 0
22
23 nbshapes r
24
25 bbop r 2
26
27 nbshapes r
28 explode r
29
30 # should shell and two solids
31
32 set ShapeType "SHELL"
33 if { [regexp $ShapeType [whatis r_1]] == 1  } {
34    puts "OK : There is $ShapeType; Compsolid is good"
35 } else {
36    puts "Error : There is not $ShapeType; Compsolid is bad"
37 }
38
39 set ShapeType "SOLID"
40 if { [regexp $ShapeType [whatis r_2]] == 1  } {
41    puts "OK : There is $ShapeType; Compsolid is good"
42 } else {
43    puts "Error : There is not $ShapeType; Compsolid is bad"
44 }
45
46 set ShapeType "SOLID"
47 if { [regexp $ShapeType [whatis r_3]] == 1  } {
48    puts "OK : There is $ShapeType; Compsolid is good"
49 } else {
50    puts "Error : There is not $ShapeType; Compsolid is bad"
51 }