0031587: Modeling Data - add BRepTools::RemoveInternals() removing internal sub-shape...
[occt.git] / tests / bugs / moddata_3 / bug31587_4
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 5 5 5
8 explode b1 f
9 bclearobjects
10 bcleartools
11 baddobjects b
12 baddtools b1_2 b1_3
13 eval baddtools [explode b1_1 w]
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