0e94a94e |
1 | |
2 | puts "========" |
3 | puts "BUC60889" |
4 | puts "BUC60947" |
5 | puts "========" |
6 | |
7 | pload QAcommands |
8 | |
9 | set bndbox_X1 0 |
10 | set bndbox_Y1 0 |
11 | set bndbox_Z1 0 |
12 | set bndbox_X2 30 |
13 | set bndbox_Y2 10 |
14 | set bndbox_Z2 20 |
15 | |
16 | set point_1_1_X -30 |
17 | set point_1_1_Y -10 |
18 | set point_1_1_Z 5 |
19 | set point_1_2_X -30 |
20 | set point_1_2_Y -10 |
21 | set point_1_2_Z 15 |
22 | |
23 | set point_1_3_X -15 |
24 | set point_1_3_Y -5 |
25 | set point_1_3_Z 5 |
26 | |
27 | set dx_1 [ expr { $point_1_3_X - $point_1_1_X } ] |
28 | set dy_1 [ expr { $point_1_3_Y - $point_1_1_Y } ] |
29 | set dz_1 [ expr { $point_1_3_Z - $point_1_1_Z } ] |
30 | |
31 | point point_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z |
32 | point point_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z |
33 | polyline p_line_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $point_1_2_X $point_1_2_Y $point_1_2_Z |
34 | vertex vertex_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z |
35 | vertex vertex_1_2 $point_1_3_X $point_1_3_Y $point_1_3_Z |
36 | edge edge_1 vertex_1_1 vertex_1_2 |
37 | |
38 | puts "" |
39 | |
40 | set point_2_1_X 30 |
41 | set point_2_1_Y 10 |
42 | set point_2_1_Z -5 |
43 | set point_2_2_X 30 |
44 | set point_2_2_Y 10 |
45 | set point_2_2_Z -15 |
46 | |
47 | set point_2_3_X 0 |
48 | set point_2_3_Y 10 |
49 | set point_2_3_Z -5 |
50 | |
51 | set dx_2 [ expr { $point_2_3_X - $point_2_1_X } ] |
52 | set dy_2 [ expr { $point_2_3_Y - $point_2_1_Y } ] |
53 | set dz_2 [ expr { $point_2_3_Z - $point_2_1_Z } ] |
54 | |
55 | point point_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z |
56 | point point_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z |
57 | polyline p_line_2 $point_2_1_X $point_2_1_Y $point_2_1_Z $point_2_2_X $point_2_2_Y $point_2_2_Z |
58 | vertex vertex_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z |
59 | vertex vertex_2_2 $point_2_3_X $point_2_3_Y $point_2_3_Z |
60 | edge edge_2 vertex_2_1 vertex_2_2 |
61 | |
62 | puts "" |
63 | |
64 | box bndbox $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2 |
65 | |
66 | |
67 | line line_1_1 $point_1_1_X $point_1_1_Y $point_1_1_Z $dx_1 $dy_1 $dz_1 |
68 | line line_1_2 $point_1_2_X $point_1_2_Y $point_1_2_Z $dx_1 $dy_1 $dz_1 |
69 | |
70 | line line_2_1 $point_2_1_X $point_2_1_Y $point_2_1_Z $dx_2 $dy_2 $dz_2 |
71 | line line_2_2 $point_2_2_X $point_2_2_Y $point_2_2_Z $dx_2 $dy_2 $dz_2 |
72 | |
73 | puts "" |
74 | |
75 | set result1 [BUC60889 point_1_1 point_1_2 edge_1 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] |
76 | |
77 | if {${result1} != "The band intersects the box\n"} { |
78 | puts "BUC60889: Error; (case 1)" |
79 | } else { |
80 | puts "BUC60889: OK; (case 1)" |
81 | } |
82 | |
83 | puts "" |
84 | |
85 | set result2 [BUC60889 point_2_1 point_2_2 edge_2 $bndbox_X1 $bndbox_Y1 $bndbox_Z1 $bndbox_X2 $bndbox_Y2 $bndbox_Z2] |
86 | |
87 | if {${result2} != "The band lies out of the box\n"} { |
88 | puts "BUC60889: Error; (case 2)" |
89 | } else { |
90 | puts "BUC60889: OK; (case 2)" |
91 | } |
92 | |
93 | |