0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29333_2
1 puts "========"
2 puts "OCC29333"
3 puts "========"
4 puts ""
5 #################################################
6 # Boolean Operations - Prevent modification of the input shapes in case their sub-shapes have not been modified
7 #################################################
8
9 # create two touching boxes
10 box b1 10 10 10
11 box b2 10 0 0 10 10 10
12
13 # make them share the common face
14 mkvolume s b1 b2
15
16 # split one of these solids
17 explode s so
18
19 plane p 0 0 5 0 0 1
20 mkface f p
21 bclearobjects
22 bcleartools
23 baddobjects s_1
24 baddtools f
25 bfillds 
26 bsplit s1_sp
27
28
29 # fuse again
30 bclearobjects
31 bcleartools
32 baddobjects s1_sp
33 baddtools s_2
34 bfillds
35 bbuild result
36
37 checkshape result
38 checkprops result -s 1400 -v 2000
39 checknbshapes result -vertex 16 -edge 28 -wire 16 -face 16 -shell 3 -solid 3
40
41
42 # check that non of the shapes from s1_sp is modified
43 compound result s1_sp c
44 checknbshapes c -vertex 16 -edge 28 -wire 16 -face 16 -shell 3 -solid 3
45
46
47 # fuse with different order
48 bclearobjects
49 bcleartools
50 baddobjects s_2
51 baddtools s1_sp
52 bfillds
53 bbuild result
54
55 checkshape result
56 checkprops result -s 1400 -v 2000
57 checknbshapes result -vertex 16 -edge 28 -wire 16 -face 16 -shell 3 -solid 3
58
59
60 # check that non of the shapes from s1_sp is modified
61 compound result s1_sp c
62 checknbshapes c -vertex 16 -edge 28 -wire 16 -face 16 -shell 3 -solid 3