1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
puts "=========="
puts "OCC21624"
puts "=========="
puts ""
##############################################
# BRepFeat_SplitShape produce invalid shape
##############################################
restore [locate_data_file bug21624_splitBug.brep] cc
explode cc
splitshape result cc_1 cc_1 cc_2 cc_1 cc_3
set info [ checkshape result f ]
if { [regexp {The Shape result looks OK} $info] } {
puts "OK: Splitshape produces valid shape"
} else {
puts "Error: Splitshape produces invalid shape"
}
set 2dviewer 1
|
