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
|
puts "============================================================="
puts "OCC25883: BRepOffsetAPI_MakePipeShell produces invalid result"
puts "============================================================="
puts ""
restore [locate_data_file OCC25883_shape.brep] a
smallview
explode a
mksweep a_1
addsweep a_2
buildsweep res
set bug_info [checkshape res]
if {[string compare $bug_info "This shape seems to be valid"] != 0} {
puts "ERROR: OCC25883 is reproduced."
}
set tolres [checkmaxtol res]
if { ${tolres} > 1.e-4} {
puts "Error: bad tolerance of result"
}
explode res
mksurface surf2 res_2
donly surf2
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|
