0031587: Modeling Data - add BRepTools::RemoveInternals() removing internal sub-shape...
[occt.git] / tests / bugs / moddata_3 / bug31587_2
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 0 3 2 1
8 explode b1 f
9
10 bclearobjects
11 bcleartools
12 baddobjects b
13 baddtools b1_1
14 eval baddtools [explode b1_2 e]
15 eval baddtools [explode b1_3 v]
16 bfillds
17 bsplit r
18
19 removeinternals r
20
21 checkshape r
22 checknbshapes r -vertex 8 -edge 12 -wire 6 -face 6 -shell 1 -solid 1