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
|
puts "========================"
puts "OCC24036"
puts "========================"
puts ""
#######################################################################
# Regression: sewing is not correct
# (OCC 6.6.0 regression) BRepBuilderAPI_Sewing returns wrong result
#######################################################################
pload XSDRAW
restore [locate_data_file bug24036_data.brep] v
explode v
sewing result 0.00001 v_1 v_2
checkshape result
set tolmaxres [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
set CMP_TOL 1.e-4
if { ${MaxTolerance} > ${CMP_TOL} } {
puts "Error: invalid tolerance"
}
freebounds $result 0
set s [explode result_c e]
set index [ llength $s ]
puts "Number of free edges is $index"
if { $index != 2 } {
puts "Error : Number of free edges is $index"
}
set 2dviewer 1
|
