0031587: Modeling Data - add BRepTools::RemoveInternals() removing internal sub-shape...
[occt.git] / tests / bugs / moddata_3 / bug31587_3
1 puts "================"
2 puts "0031587: Modeling Data - Remove internal sub-shapes from the shape"
3 puts "================"
4 puts ""
5
6 box b 10 10 10
7 box b1 2 2 -1 3 2 2
8 explode b1 f
9
10 bclearobjects
11 bcleartools
12 baddobjects b
13 baddtools b1_1 b1_2
14 bfillds
15 bsplit r
16
17 removeinternals r
18
19 checkshape r
20 checknbshapes r -vertex 8 -edge 12 -wire 6 -face 6 -shell 1 -solid 1
21
22 bbuild r
23 bbuild r1
24 removeinternals r1 0
25
26 checkshape r1
27 checknbshapes r1 -ref [nbshapes r]
28
29 removeinternals r1 1
30 checkshape r1
31 checknbshapes r1 -vertex 20 -edge 26 -wire 10 -face 10 -shell 1 -solid 1
32
33 explode r1 so
34 checknbshapes r1_1 -vertex 8 -edge 12 -wire 6 -face 6 -shell 1 -solid 1