1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
puts "============"
puts "OCC26010"
puts "============"
puts ""
#######################################################################
# [OCCT 6.8.0 regression] BRepFeat_SplitShape returns invalid shapes
#######################################################################
restore [locate_data_file bug26010_splitnoproblem671.brep] s
explode s
whatis s_1
whatis s_2
settolerance s_1 1e-5
splitshape result s s_2 s_1
whatis result
set result_length [ llength [explode result] ]
if { ${result_length} != 3} {
puts "Error: shape number is wrong"
}
checkshape result_1
checkshape result_2
checkshape result_3
vinit
vdisplay result_1
vdisplay result_2
vdisplay result_3
set only_screen 1
|
