93937391 |
1 | puts "========" |
2 | puts "OCC26241" |
3 | puts "========" |
4 | puts "" |
5 | ########################################################### |
6 | # Sewing algorithm computes tolerance of joint vertex too rough |
7 | ########################################################### |
8 | |
9 | plane p 0 0 0 0 0 1 1 0 0 |
10 | mkface f1 p 0 10 0 10 |
11 | mkface f2 p 0 10 11 21 |
12 | settolerance f1 2 |
13 | settolerance f2 3 |
14 | sewing res 3 f1 f2 |
15 | |
16 | regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance res] full MaxTolerance |
17 | puts "MaxTolerance=$MaxTolerance" |
18 | |
19 | set expected_MaxTolerance 3.0 |
20 | set tol_abs_MaxTolerance 0.1 |
21 | set tol_rel_MaxTolerance 0.1 |
22 | checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance} |