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
|
puts "========"
puts "OCC25883"
puts "========"
puts ""
#######################################################
# BRepOffsetAPI_MakePipeShell produces invalid result
#######################################################
restore [locate_data_file OCC25883_shape.brep] a
smallview
explode a
mksweep a_1
addsweep a_2
buildsweep res
donly res
fit
set bug_info [checkshape res]
if {[string compare $bug_info "This shape seems to be valid"] != 0} {
puts "ERROR: OCC25883 is reproduced."
}
set only_screen_axo 1
|
