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