51a849d7 |
1 | puts "================" |
2 | puts "OCC23845" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # New auxilary method concatenating a wire into an edge based on C0-continuous curve. |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug23845_profil_0a.brep] a |
10 | restore [locate_data_file bug23845_profil_1a.brep] b |
11 | |
12 | concatC0wire aa a |
13 | concatC0wire bb b |
14 | |
74f764ba |
15 | set CMP_TOL 1.e-6 |
16 | |
17 | # 1 |
51a849d7 |
18 | checkshape aa |
74f764ba |
19 | set tolmaxres [tolmax aa] |
20 | regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance |
21 | if { ${MaxTolerance} > ${CMP_TOL} } { |
22 | puts "Error: invalid tolerance of first wire" |
23 | } |
51a849d7 |
24 | |
74f764ba |
25 | # 2 |
51a849d7 |
26 | checkshape bb |
74f764ba |
27 | set tolmaxres [tolmax bb] |
28 | regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance |
29 | if { ${MaxTolerance} > ${CMP_TOL} } { |
30 | puts "Error: invalid tolerance of second wire" |
31 | } |