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
|
puts "========"
puts "OCC29159"
puts "========"
puts ""
#################################################
# Sewing fail when using a maximum tolerance
#################################################
set MaxTol 5e-4
set ExpLength 97.234
restore [locate_data_file bug29159_F.brep] f
sewing result 5e-4 f +mint 1e-8 +maxt $MaxTol
regexp {EDGE *: MAX=([-0-9.+eE]+)} [tolerance result] full toler
if {$toler > $MaxTol} {
puts "Error: Tolerance after sewing is greater than max allowed tolerance"
}
if {[regexp "self-interfering" [bopcheck result 2]]} {
puts "Error: result of sewing is self-interfering"
}
checknbshapes result -m "Sewing result" -edge 8 -face 2
checkprops result -l $ExpLength -skip
smallview +X+Y
don result
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png
|
