2c896b8f |
1 | puts "========================" |
2 | puts "OCC23375" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # (OCC 6.5.3 regression) BRepBuilderAPI_Sewing returns wrong result |
7 | ####################################################################### |
8 | |
5a29f57e |
9 | pload XSDRAW |
10 | |
f2cc4711 |
11 | restore [locate_data_file bug23375_Volute1.brep] v |
2c896b8f |
12 | |
f2cc4711 |
13 | explode v |
14 | sewing result 0.01 v_1 v_2 |
2c896b8f |
15 | |
f2cc4711 |
16 | # 1 |
2c896b8f |
17 | checkshape result |
18 | |
f2cc4711 |
19 | # 2 |
20 | set tolmaxres [tolmax result] |
21 | regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance |
22 | set CMP_TOL 1.e-4 |
23 | if { ${MaxTolerance} > ${CMP_TOL} } { |
24 | puts "Error: invalid tolerance" |
2c896b8f |
25 | } |
f2cc4711 |
26 | |
27 | # 3 |
5a29f57e |
28 | freebounds $result -0.01 |
f2cc4711 |
29 | set s [explode result_c e] |
30 | puts $s |
31 | set index [ llength $s ] |
5a29f57e |
32 | if { $index != 8 } { |
f2cc4711 |
33 | puts "Error : Number of free edges is $index" |
2c896b8f |
34 | } |
35 | |
36 | set 2dviewer 1 |