| 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 | |