138ac530 |
1 | puts "========" |
2 | puts "OCC24803" |
3 | puts "========" |
4 | puts "" |
5 | ########################################################### |
6 | # improve the result of v/v interference for two vertices case |
7 | ########################################################### |
8 | |
9 | set x1 0 |
10 | set y1 0 |
11 | set z1 0 |
12 | set tolerance1 1.0 |
13 | vertex v1 $x1 $y1 $z1 |
14 | settolerance v1 $tolerance1 |
15 | |
16 | set x2 4 |
17 | set y2 0 |
18 | set z2 0 |
19 | vertex v2 $x2 $y2 $z2 |
20 | set tolerance2 3.5 |
21 | settolerance v2 $tolerance2 |
22 | |
23 | bop v1 v2 |
24 | bopcommon res |
25 | |
26 | regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance res] full MaxTolerance |
27 | puts "MaxTolerance=$MaxTolerance" |
28 | |
29 | set expected_MaxTolerance 4.25 |
30 | set tol_abs_MaxTolerance 0.1 |
31 | set tol_rel_MaxTolerance 0.1 |
32 | checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance} |
33 | |
34 | set info [dump res] |
35 | regexp "Tolerance : +(\[-0-9*\.+eE\]+)" $info full tolerance_res |
36 | regexp "Point 3D : +(\[-0-9*\.+eE\]+), +(\[-0-9*\.+eE\]+), +(\[-0-9*\.+eE\]+)" $info full x_res y_res z_res |
37 | puts "tolerance_res=$tolerance_res" |
38 | puts "x_res=$x_res y_res=$y_res z_res=$z_res" |
39 | |
40 | set expected_tolerance 4.25 |
41 | set tol_abs_tolerance 0.1 |
42 | set tol_rel_tolerance 0.1 |
43 | checkreal "tolerance" ${tolerance_res} ${expected_tolerance} ${tol_abs_tolerance} ${tol_rel_tolerance} |
44 | |
45 | set expected_x_res 3.25 |
46 | set tol_abs_x_res 0.1 |
47 | set tol_rel_x_res 0.1 |
48 | checkreal "x_res" ${x_res} ${expected_x_res} ${tol_abs_x_res} ${tol_rel_x_res} |
49 | |
50 | set expected_y_res 0 |
51 | set tol_abs_y_res 0.1 |
52 | set tol_rel_y_res 0.1 |
53 | checkreal "y_res" ${y_res} ${expected_y_res} ${tol_abs_y_res} ${tol_rel_y_res} |
54 | |
55 | set expected_z_res 0 |
56 | set tol_abs_z_res 0.1 |
57 | set tol_rel_z_res 0.1 |
58 | checkreal "z_res" ${z_res} ${expected_z_res} ${tol_abs_z_res} ${tol_rel_z_res} |
59 | |
60 | circle c1 $x1 $y1 $z1 $tolerance1 |
61 | circle c2 $x2 $y2 $z2 $tolerance2 |
62 | circle c_res $x_res $y_res $z_res $tolerance_res |
63 | |
64 | view 1 +X+Y 465 20 400 400 |
65 | fit |
66 | |
67 | xwd $imagedir/${test_image}.png |