12945d77 |
1 | puts "============" |
2 | puts "OCC26202" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Wrong result of chamfer on cylindrical surface: wrong value of chord |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug26202_shell.brep] b |
10 | |
11 | explode b |
12 | explode b_2 e |
13 | |
14 | smallview |
15 | donly b b_2_1 |
16 | fit |
17 | xwd $imagedir/${test_image}_1.png |
18 | |
19 | chamf q b b_2_1 b_2 0.02 0.01 |
20 | explode q v |
21 | explode b v |
22 | |
23 | donly b_2 q_1 q_5 |
24 | fit |
25 | xwd $imagedir/${test_image}_2.png |
26 | |
27 | donly q b b_2 q_1 q_5 |
28 | xwd $imagedir/${test_image}_3.png |
29 | |
30 | distmini dd b_2 q_5 |
31 | dump dd_val |
32 | #dd_val is 0.013334, but must be 0.02 |
33 | |
34 | set info [dump dd_val] |
35 | regexp "\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\* Dump of dd_val \\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\n(\[-0-9*\.+eE\]+)" $info full Length |
36 | |
37 | set expected_Length 0.02 |
38 | set tol_abs_Length 1.0e-4 |
39 | set tol_rel_Length 0.0001 |
40 | checkreal "Length" ${Length} ${expected_Length} ${tol_abs_Length} ${tol_rel_Length} |