HP Prime for All

English  Русский 
Shuttle graphics-app screenshot}}
Name Shuttle
Description Draws a space shuttle. Vector data was converted from an old AutoCAD DWG file.
Author Jurgen Keller

Source code (download):

Source code formatted by website engine

//------------------------------------- // SHUTTLE for HP Prime // Converted from an AutoCAD DWG // March 2014 // Jurgen Keller < jkeller@gmx.ch > // http://calc.fjk.ch/ LOCAL Data := { -2, 1, 1155, 879, 1123, 906, -2, 2, 2005, 2, 2005, 58, -2, 3, 1899, 489, 1936, 92, -2, 2, 2166, 519, 2076, 582, -7, 4, 197, 2031, 225, 2045, 255, 2055, 286, 2060, 318, 2060, 349, 2056, 379, 2047, -8, 1, 204, 2050, 233, 2068, 266, 2082, 300, 2090, 335, 2093, 370, 2090, 404, 2082, 437, 2069, 5, 203, 2049, 163, 2028, 120, 2014, 76, 2006, 31, 2005, -2, 2, 1485, 973, 1526, 1001, -10, 5, 852, 1528, 854, 1532, 857, 1535, 860, 1538, 864, 1540, 868, 1542, 872, 1543, 876, 1544, 881, 1544, 885, 1543, 10, 828, 1627, 825, 1611, 818, 1596, 810, 1582, 799, 1570, 786, 1560, 772, 1551, 756, 1546, 740, 1542, 724, 1542, 8, 836, 1511, 827, 1501, 816, 1492, 805, 1485, 792, 1480, 779, 1477, 765, 1476, 752, 1477, 9, 835, 1525, 827, 1516, 817, 1509, 807, 1502, 796, 1498, 784, 1495, 771, 1494, 759, 1494, 747, 1497, 2, 851, 1527, 836, 1511, 5, 1160, 1022, 1132, 1011, 1103, 1004, 1073, 1001, 1044, 1001, -2, 1, 1090, 971, 1048, 812, 2, 1042, 807, 1057, 795, 2, 1036, 816, 1042, 807, 2, 1035, 825, 1036, 816, 2, 1076, 980, 1035, 825, 2, 1022, 817, 1052, 793, 2, 1016, 828, 1022, 817, 2, 1013, 844, 1016, 828, 2, 1053, 995, 1013, 844, 2, 1019, 812, 1047, 789, 2, 1002, 831, 1019, 812, 2, 998, 849, 1002, 831, 2, 1036, 1005, 998, 849, 2, 1018, 805, 1047, 789, 2, 999, 821, 1018, 805, 2, 983, 849, 999, 821, 2, 1021, 1015, 983, 849, -7, 2, 1655, 538, 1643, 533, 1630, 530, 1617, 529, 1604, 531, 1592, 534, 1580, 540, 3, 1657, 480, 1571, 546, 1495, 622, 8, 1494, 622, 1483, 634, 1473, 649, 1465, 664, 1460, 681, 1457, 698, 1457, 715, 1459, 732, -7, 5, 861, 1511, 801, 1462, 734, 1424, 661, 1397, 586, 1382, 508, 1379, 432, 1389, -2, 2, 1470, 849, 1456, 848, -2, 4, 1669, 920, 1655, 930, 2, 1736, 861, 1721, 872, 2, 1742, 865, 1736, 861, 2, 1728, 874, 1742, 865, 2, 1737, 880, 1728, 874, 2, 1749, 872, 1737, 880, 2, 1755, 875, 1749, 872, 2, 1740, 885, 1755, 875, 17, 1656, 943, 1657, 941, 1658, 940, 1658, 938, 1658, 936, 1657, 935, 1657, 933, 1656, 932, 1655, 930, 1654, 929, 1652, 928, 1651, 927, 1649, 927, 1647, 927, 1646, 927, 1644, 927, 1642, 928, 15, 1696, 911, 1696, 909, 1696, 907, 1696, 905, 1695, 903, 1694, 901, 1692, 899, 1691, 898, 1689, 897, 1687, 896, 1685, 895, 1683, 895, 1680, 895, 1678, 895, 1676, 896, 2, 1364, 1122, 1384, 1105, 14, 1347, 1153, 1347, 1151, 1347, 1148, 1346, 1146, 1345, 1143, 1343, 1141, 1342, 1139, 1339, 1138, 1337, 1137, 1335, 1136, 1332, 1135, 1330, 1135, 1327, 1136, 1325, 1137, 12, 1371, 1132, 1371, 1130, 1370, 1128, 1369, 1126, 1367, 1124, 1365, 1123, 1363, 1122, 1361, 1121, 1359, 1121, 1356, 1121, 1354, 1121, 1352, 1122, 15, 1396, 1127, 1396, 1123, 1395, 1120, 1394, 1116, 1393, 1113, 1391, 1110, 1388, 1108, 1385, 1106, 1382, 1104, 1379, 1103, 1375, 1103, 1372, 1103, 1368, 1103, 1365, 1105, 1362, 1106, -2, 5, 1146, 1351, 1129, 1319, 2, 1163, 1390, 1146, 1351, 8, 1129, 1319, 1089, 1276, 1043, 1239, 992, 1210, 937, 1189, 880, 1177, 821, 1174, 763, 1180, -2, 2, 1575, 762, 1545, 761, 2, 1571, 745, 1575, 762, 5, 1853, 875, 1830, 838, 1802, 804, 1768, 776, 1730, 754, 2, 2065, 506, 1975, 564, -10, 5, 828, 1543, 822, 1533, 814, 1525, 806, 1517, 796, 1511, 785, 1507, 774, 1505, 763, 1504, 752, 1505, 741, 1508, 12, 829, 1628, 831, 1634, 835, 1640, 839, 1646, 844, 1650, 850, 1654, 856, 1656, 863, 1658, 870, 1658, 877, 1658, 884, 1656, 890, 1653, -11, 3, 1838, 923, 1818, 879, 1791, 839, 1759, 803, 1721, 773, 1678, 749, 1633, 732, 1585, 722, 1537, 720, 1489, 725, 1442, 738, -14, 6, 792, 1790, 792, 1792, 792, 1795, 792, 1797, 793, 1800, 794, 1802, 796, 1804, 798, 1806, 800, 1807, 802, 1809, 804, 1809, 807, 1810, 810, 1810, 812, 1809, -8, 5, 860, 1593, 864, 1599, 868, 1604, 874, 1608, 880, 1612, 886, 1614, 893, 1616, 900, 1616, 6, 835, 1526, 844, 1538, 855, 1549, 867, 1558, 880, 1564, 895, 1569, -13, 6, 816, 1674, 816, 1670, 815, 1666, 813, 1662, 811, 1658, 809, 1655, 806, 1652, 802, 1650, 798, 1648, 794, 1647, 790, 1647, 786, 1647, 782, 1648, -6, 5, 2049, 510, 2036, 503, 2023, 499, 2009, 496, 1995, 496, 1981, 497, 8, 2091, 504, 2080, 494, 2067, 486, 2053, 480, 2038, 476, 2023, 475, 2008, 475, 1993, 479, 10, 2148, 501, 2137, 487, 2124, 475, 2109, 465, 2093, 457, 2075, 452, 2058, 449, 2040, 449, 2022, 452, 2005, 458, 10, 2172, 480, 2159, 466, 2143, 453, 2125, 444, 2107, 437, 2087, 433, 2067, 433, 2047, 436, 2028, 441, 2010, 450, 7, 2006, 523, 2001, 519, 1996, 516, 1990, 513, 1984, 512, 1977, 512, 1971, 512, -11, 2, 1987, 535, 1984, 532, 1981, 530, 1978, 528, 1974, 527, 1971, 526, 1967, 526, 1963, 527, 1959, 528, 1956, 530, 1953, 532, 2, 1975, 564, 1964, 550, 2, 2179, 523, 2166, 519, 7, 2165, 518, 2136, 509, 2105, 505, 2074, 505, 2043, 511, 2014, 521, 1986, 535, 11, 2232, 496, 2228, 491, 2224, 486, 2218, 482, 2212, 478, 2206, 476, 2199, 475, 2192, 475, 2186, 475, 2179, 477, 2173, 480, -5, 6, 147, 1990, 178, 1996, 211, 1998, 243, 1995, 275, 1987, 6, 53, 1941, 68, 1957, 85, 1969, 105, 1980, 125, 1986, 147, 1990, -2, 4, 41, 1994, 36, 1994, 2, 50, 1994, 41, 1994, 2, 60, 1996, 50, 1994, 2, 80, 1999, 60, 1996, 2, 110, 2005, 80, 1999, 2, 143, 2012, 110, 2005, 2, 168, 2019, 143, 2012, 2, 197, 2030, 168, 2019, -2, 2, 1155, 879, 1161, 907, 2, 1196, 790, 1208, 811, 2, 1248, 798, 1261, 827, -8, 3, 1353, 875, 1339, 867, 1325, 861, 1310, 857, 1294, 856, 1278, 858, 1263, 862, 1248, 868, -2, 1, 1087, 770, 1082, 767, -2, 2, 1874, 73, 1873, 71, 2, 1999, 0, 1863, 76, 2, 2005, 2, 1999, 0, 2, 1934, 37, 1938, 38, 7, 1646, 561, 1629, 556, 1611, 553, 1593, 554, 1575, 557, 1558, 563, 1542, 572, 10, 1636, 587, 1623, 580, 1610, 574, 1595, 571, 1580, 571, 1566, 572, 1551, 576, 1538, 582, 1526, 591, 1515, 601, 8, 1623, 621, 1606, 612, 1587, 607, 1568, 604, 1549, 604, 1530, 607, 1512, 613, 1495, 622, 8, 1568, 685, 1553, 678, 1537, 674, 1521, 672, 1504, 673, 1488, 676, 1472, 682, 1458, 690, 8, 1670, 497, 1664, 495, 1658, 494, 1652, 493, 1646, 494, 1639, 496, 1634, 498, 1628, 502, 8, 1663, 517, 1652, 514, 1640, 513, 1628, 514, 1617, 516, 1606, 520, 1596, 526, 1586, 533, 9, 1608, 661, 1592, 651, 1575, 644, 1556, 639, 1538, 638, 1519, 639, 1500, 643, 1483, 650, 1467, 659, -31, 3, 2048, 566, 2050, 563, 2051, 559, 2052, 555, 2052, 551, 2052, 546, 2050, 542, 2048, 539, 2046, 535, 2043, 532, 2040, 530, 2036, 528, 2032, 527, 2028, 526, 2024, 526, 2020, 527, 2016, 528, 2012, 530, 2009, 532, 2006, 535, 2003, 538, 2002, 542, 2000, 546, 1999, 550, 1999, 554, 2000, 558, 2001, 562, 2003, 566, 2006, 569, 2009, 572, 2012, 575, -18, 7, 1907, 645, 1903, 651, 1900, 657, 1898, 664, 1897, 671, 1898, 678, 1899, 685, 1902, 692, 1905, 698, 1910, 703, 1915, 708, 1921, 712, 1927, 715, 1934, 717, 1941, 718, 1948, 718, 1955, 717, 1962, 714, 18, 2080, 633, 2083, 626, 2085, 619, 2085, 612, 2085, 604, 2083, 597, 2080, 590, 2076, 584, 2071, 579, 2065, 574, 2059, 570, 2052, 568, 2045, 566, 2038, 566, 2030, 567, 2023, 569, 2016, 572, 2010, 576, -41, 3, 2113, 541, 2112, 536, 2111, 532, 2109, 528, 2107, 524, 2104, 520, 2101, 518, 2097, 515, 2093, 514, 2088, 512, 2084, 512, 2079, 512, 2075, 514, 2071, 515, 2067, 518, 2064, 520, 2061, 524, 2058, 528, 2057, 532, 2056, 536, 2055, 541, 2056, 545, 2057, 550, 2058, 554, 2061, 557, 2064, 561, 2067, 564, 2071, 566, 2075, 568, 2079, 569, 2084, 569, 2088, 569, 2093, 568, 2097, 566, 2101, 564, 2104, 561, 2107, 557, 2109, 554, 2111, 550, 2112, 545, 2113, 541, 34, 2236, 604, 2231, 598, 2226, 593, 2220, 589, 2214, 585, 2207, 583, 2200, 582, 2193, 582, 2185, 583, 2178, 585, 2172, 589, 2166, 593, 2161, 598, 2157, 604, 2154, 611, 2152, 618, 2151, 625, 2151, 632, 2152, 639, 2154, 646, 2158, 653, 2162, 658, 2167, 663, 2173, 668, 2180, 671, 2187, 673, 2194, 674, 2201, 673, 2209, 672, 2215, 670, 2222, 666, 2227, 661, 2232, 656, 2236, 650, -22, 7, 1974, 722, 1969, 727, 1965, 732, 1961, 737, 1959, 743, 1957, 749, 1957, 756, 1957, 762, 1958, 769, 1961, 775, 1964, 780, 1968, 785, 1973, 790, 1979, 793, 1985, 796, 1991, 797, 1997, 798, 2004, 798, 2010, 796, 2016, 794, 2022, 791, 2027, 786, -13, 2, 1991, 827, 1991, 803, 1988, 780, 1981, 757, 1971, 735, 1958, 715, 1941, 698, 1922, 683, 1901, 671, 1879, 663, 1855, 659, 1832, 658, 1808, 661, -33, 1, 1876, 842, 1883, 845, 1891, 847, 1899, 848, 1907, 848, 1915, 847, 1923, 844, 1930, 840, 1937, 835, 1942, 829, 1947, 822, 1950, 815, 1953, 807, 1954, 799, 1954, 791, 1952, 783, 1950, 775, 1946, 768, 1941, 761, 1935, 756, 1928, 751, 1921, 748, 1913, 745, 1905, 744, 1897, 744, 1889, 745, 1881, 748, 1874, 752, 1868, 756, 1862, 762, 1857, 769, 1853, 776, 1851, 784, -31, 4, 1842, 773, 1849, 770, 1856, 766, 1863, 761, 1868, 755, 1872, 749, 1875, 741, 1877, 734, 1878, 726, 1878, 718, 1876, 710, 1873, 703, 1869, 696, 1864, 689, 1858, 684, 1851, 680, 1844, 677, 1836, 675, 1828, 674, 1820, 675, 1812, 677, 1805, 680, 1798, 684, 1792, 689, 1787, 696, 1783, 702, 1780, 710, 1778, 718, 1777, 726, 1778, 734, 1780, 741, -13, 2, 1878, 869, 1878, 850, 1875, 832, 1869, 814, 1860, 797, 1849, 782, 1836, 769, 1821, 758, 1804, 749, 1787, 743, 1768, 740, 1750, 739, 1731, 742, -8, 5, 2247, 719, 2248, 714, 2249, 708, 2249, 703, 2248, 698, 2246, 693, 2243, 688, 2240, 684, 13, 2264, 732, 2269, 727, 2272, 721, 2275, 715, 2276, 708, 2277, 701, 2276, 694, 2274, 688, 2271, 682, 2268, 676, 2263, 671, 2258, 667, 2252, 664, 10, 2288, 723, 2291, 714, 2293, 704, 2293, 694, 2292, 684, 2289, 675, 2284, 666, 2278, 658, 2271, 651, 2263, 645, 10, 2309, 714, 2313, 702, 2315, 691, 2315, 678, 2313, 666, 2310, 655, 2304, 644, 2297, 634, 2288, 626, 2278, 619, 13, 2322, 710, 2327, 700, 2331, 690, 2334, 680, 2334, 669, 2333, 658, 2331, 648, 2327, 638, 2321, 628, 2314, 620, 2306, 613, 2296, 607, 2286, 603, 12, 2345, 701, 2350, 687, 2353, 674, 2353, 660, 2352, 646, 2348, 632, 2342, 620, 2335, 608, 2326, 597, 2315, 588, 2303, 581, 2290, 575, -8, 1, 196, 2169, 182, 2141, 163, 2116, 140, 2094, 114, 2076, 85, 2062, 55, 2053, 24, 2049, 12, 244, 2162, 239, 2136, 229, 2111, 216, 2088, 199, 2067, 179, 2049, 157, 2034, 133, 2023, 108, 2015, 81, 2012, 54, 2012, 28, 2017, 10, 211, 2169, 201, 2143, 188, 2120, 171, 2098, 151, 2080, 129, 2064, 105, 2052, 79, 2044, 52, 2039, 25, 2039, -6, 4, 1823, 1218, 1818, 1211, 1813, 1205, 1807, 1201, 1800, 1197, 1793, 1194, 22, 1736, 1238, 1733, 1237, 1730, 1237, 1728, 1237, 1725, 1237, 1722, 1238, 1720, 1240, 1717, 1241, 1716, 1243, 1714, 1246, 1713, 1248, 1712, 1251, 1711, 1254, 1711, 1257, 1712, 1259, 1713, 1262, 1714, 1264, 1716, 1267, 1718, 1269, 1720, 1270, 1723, 1271, 1726, 1272, 9, 1894, 1168, 1894, 1171, 1895, 1174, 1895, 1177, 1897, 1180, 1899, 1182, 1901, 1184, 1903, 1186, 1906, 1188, 11, 1842, 1164, 1840, 1162, 1837, 1159, 1834, 1158, 1831, 1157, 1828, 1156, 1824, 1156, 1821, 1157, 1818, 1158, 1815, 1160, 1812, 1162, 20, 1803, 1268, 1801, 1265, 1799, 1263, 1797, 1261, 1794, 1259, 1792, 1258, 1789, 1257, 1786, 1257, 1783, 1257, 1780, 1258, 1777, 1259, 1774, 1261, 1772, 1263, 1770, 1265, 1769, 1268, 1768, 1271, 1767, 1274, 1767, 1277, 1767, 1280, 1768, 1282, 22, 1839, 1255, 1836, 1246, 1831, 1238, 1825, 1231, 1819, 1224, 1811, 1219, 1802, 1216, 1793, 1213, 1784, 1212, 1775, 1213, 1766, 1215, 1757, 1219, 1749, 1224, 1742, 1230, 1736, 1237, 1732, 1245, 1728, 1253, 1726, 1262, 1725, 1271, 1726, 1281, 1729, 1290, 1732, 1298, 11, 1942, 1180, 1944, 1182, 1947, 1184, 1949, 1185, 1952, 1186, 1955, 1187, 1958, 1187, 1961, 1187, 1963, 1186, 1966, 1185, 1969, 1184, 17, 1852, 1132, 1850, 1129, 1847, 1127, 1844, 1126, 1840, 1125, 1837, 1125, 1833, 1125, 1830, 1125, 1827, 1127, 1824, 1128, 1821, 1131, 1819, 1133, 1817, 1136, 1816, 1139, 1815, 1142, 1814, 1146, 1814, 1149, 17, 1969, 1154, 1968, 1152, 1965, 1150, 1963, 1149, 1961, 1148, 1958, 1147, 1955, 1147, 1953, 1147, 1950, 1148, 1947, 1149, 1945, 1150, 1943, 1152, 1941, 1154, 1940, 1156, 1939, 1159, 1938, 1161, 1938, 1164, -11, 1, 22, 2058, 25, 2076, 31, 2094, 39, 2110, 49, 2125, 62, 2139, 77, 2150, 93, 2159, 110, 2165, 129, 2169, 147, 2169, -2, 6, 57, 1922, 268, 1569, 2, 28, 2017, 57, 1922, -2, 1, 23, 2059, 28, 2017, 2, 209, 2169, 145, 2169, -2, 4, 111, 1996, 40, 1980, 2, 170, 2012, 111, 1996, 2, 259, 2038, 170, 2012, 2, 298, 2038, 259, 2038, 2, 370, 2027, 298, 2038, -2, 6, 276, 1987, 305, 1974, 2, 278, 1955, 325, 1927, 2, 249, 1964, 278, 1955, 2, 190, 1975, 249, 1964, 2, 164, 1976, 190, 1975, 2, 121, 1964, 164, 1976, 2, 87, 1954, 121, 1964, 2, 58, 1923, 87, 1954, 2, 195, 1970, 219, 1927, 2, 96, 1943, 195, 1970, 2, 121, 1906, 96, 1943, 2, 220, 1927, 121, 1906, 2, 268, 1833, 288, 1802, 2, 185, 1812, 268, 1833, 2, 200, 1785, 185, 1812, 2, 288, 1802, 200, 1785, -2, 1, 342, 2133, 438, 2095, 2, 308, 2143, 342, 2133, 2, 259, 2159, 308, 2143, 2, 209, 2169, 259, 2159, -2, 2, 1470, 849, 1174, 1054, 2, 1607, 769, 1645, 769, 2, 2131, 639, 2052, 558, 2, 2192, 522, 2192, 522, 2, 2212, 512, 2212, 512, 2, 2232, 501, 2232, 501, 2, 2232, 559, 2232, 559, 2, 2251, 549, 2251, 549, 2, 2271, 533, 2271, 533, 2, 1848, 938, 1838, 923, 2, 1624, 991, 1358, 1179, 2, 1519, 949, 1229, 1153, 2, 1489, 908, 1195, 1096, 2, 1309, 805, 1246, 852, 2, 1133, 898, 1153, 931, -2, 1, 1123, 906, 1142, 938, -2, 2, 1216, 889, 1136, 849, 2, 1138, 830, 1129, 806, -2, 1, 1061, 797, 1047, 790, -2, 2, 1128, 759, 1095, 759, 2, 1121, 780, 1128, 759, 2, 2678, 1018, 2577, 1094, 2, 2013, 699, 2002, 686, 2, 2025, 1190, 2022, 1177, 2, 2055, 1155, 2042, 1188, 2, 2060, 1185, 2055, 1155, 2, 2086, 1134, 2080, 1160, 2, 2099, 1153, 2086, 1134, 2, 2123, 1109, 2109, 1159, 2, 2133, 1159, 2123, 1109, 2, 2173, 1158, 2168, 1168, 2, 2179, 1166, 2173, 1158, 2, 2217, 1126, 2201, 1163, 2, 2224, 1159, 2217, 1126, 2, 2148, 1092, 2138, 1106, 2, 2158, 1106, 2148, 1092, 2, 2190, 1064, 2173, 1106, 2, 2197, 1111, 2190, 1064, 2, 2247, 1105, 2241, 1127, 2, 2251, 1122, 2247, 1105, 2, 2281, 1081, 2271, 1122, 2, 2295, 1132, 2281, 1081, 2, 2350, 1117, 2345, 1132, 2, 2355, 1132, 2350, 1117, 2, 2372, 1128, 2375, 1098, 2, 2391, 1122, 2375, 1098, 2, 2226, 1040, 2222, 1064, 2, 2236, 1059, 2226, 1040, 2, 2259, 1017, 2242, 1072, 2, 2276, 1064, 2259, 1017, 2, 2310, 1060, 2300, 1080, 2, 2325, 1085, 2310, 1060, 2, 2348, 1033, 2356, 1086, 2, 2338, 1072, 2348, 1033, 2, 2418, 1069, 2418, 1096, 2, 2428, 1101, 2418, 1069, 2, 2445, 1049, 2443, 1101, 2, 2467, 1101, 2445, 1049, 2, 2504, 1092, 2497, 1104, 2, 2513, 1102, 2504, 1092, 2, 2536, 1066, 2526, 1085, 2, 2547, 1098, 2536, 1066, 2, 2232, 948, 2168, 1001, 2, 2241, 989, 2232, 948, 2, 2193, 980, 2168, 938, 2, 2288, 998, 2193, 980, 2, 2288, 998, 2286, 1017, 2, 2310, 1022, 2288, 998, 2, 2338, 964, 2335, 1017, 2, 2350, 1011, 2338, 964, 2, 2385, 1007, 2384, 1038, 2, 2399, 1038, 2385, 1007, 2, 2426, 978, 2413, 1038, 2, 2438, 1027, 2426, 978, 2, 2487, 1020, 2477, 1048, 2, 2492, 1048, 2487, 1020, 2, 2524, 994, 2512, 1048, 2, 2531, 1038, 2524, 994, 2, 2560, 1047, 2551, 1059, 2, 2571, 1059, 2560, 1047, 2, 2610, 1007, 2585, 1059, 2, 2605, 1054, 2610, 1007, 2, 2630, 1054, 2620, 1069, 2, 2644, 1075, 2630, 1054, 2, 2678, 1018, 2654, 1069, 2, 2679, 1059, 2678, 1018, 2, 2743, 1028, 2718, 1075, 2, 2747, 1070, 2743, 1028, -2, 3, 1128, 759, 1150, 734, 2, 1190, 738, 1148, 761, 2, 1175, 764, 1190, 738, 2, 1220, 741, 1184, 766, 2, 1210, 768, 1220, 741, 2, 1262, 745, 1229, 771, 2, 1248, 773, 1262, 745, 2, 1306, 749, 1268, 775, 2, 1287, 777, 1306, 749, 2, 1352, 754, 1308, 779, 2, 1332, 782, 1352, 754, 2, 1388, 757, 1345, 784, 2, 1927, 485, 1895, 490, 2, 2001, 428, 1927, 485, -2, 1, 1824, 138, 1626, 710, 2, 1680, 697, 1601, 680, 2, 1686, 634, 1621, 627, 2, 1704, 581, 1643, 569, 2, 1721, 528, 1663, 517, 2, 1741, 471, 1683, 464, 2, 1760, 413, 1706, 407, 2, 1778, 359, 1727, 349, 2, 1797, 301, 1745, 302, 2, 1814, 249, 1767, 244, 2, 1832, 197, 1788, 193, 2, 1852, 138, 1809, 138, -2, 2, 1908, 128, 1853, 133, 2, 1902, 170, 1838, 181, 2, 1896, 212, 1824, 223, 2, 1890, 254, 1811, 259, 2, 1817, 297, 1799, 298, 2, 1881, 318, 1787, 333, 2, 1801, 354, 1778, 359, 2, 1790, 396, 1764, 401, 2, 1866, 418, 1752, 438, 2, 1861, 453, 1736, 484, 2, 1854, 501, 1721, 528, 2, 1817, 549, 1708, 568, 2, 1810, 590, 1692, 617, 2, 1719, 654, 1686, 658, 2, 1465, 720, 1464, 731, 2, 1480, 717, 1465, 720, 2, 1529, 701, 1480, 717, 2, 1568, 685, 1529, 701, 2, 1608, 660, 1568, 685, 2, 1991, 827, 1953, 804, -2, 4, 1661, 917, 1642, 927, 2, 1347, 1153, 1368, 1202, -3, 2, 1489, 908, 1476, 868, 1470, 849, 2, 1180, 1064, 1476, 868, 2, 2121, 506, 2052, 558, -2, 5, 2129, 591, 2099, 565, 2, 2158, 564, 2131, 543, 2, 2114, 606, 2158, 564, 2, 2084, 575, 2114, 606, 2, 2131, 543, 2084, 575, 2, 2010, 449, 1962, 527, -2, 2, 2251, 622, 2251, 638, 2, 2338, 854, 2235, 909, 2, 2335, 854, 2168, 938, -2, 3, 2999, 1021, 2335, 854, -41, 5, 816, 1741, 816, 1734, 814, 1727, 811, 1720, 808, 1714, 803, 1709, 798, 1704, 792, 1701, 785, 1698, 778, 1696, 771, 1696, 764, 1696, 757, 1698, 750, 1701, 744, 1704, 739, 1709, 734, 1714, 730, 1720, 728, 1727, 726, 1734, 725, 1741, 726, 1748, 728, 1755, 730, 1762, 734, 1768, 739, 1773, 744, 1778, 750, 1782, 757, 1784, 764, 1786, 771, 1787, 778, 1786, 785, 1784, 792, 1782, 798, 1778, 803, 1773, 808, 1768, 811, 1762, 814, 1755, 816, 1748, 816, 1741, 41, 787, 1742, 787, 1740, 786, 1739, 785, 1737, 784, 1735, 783, 1734, 781, 1732, 780, 1731, 778, 1730, 776, 1730, 774, 1730, 772, 1730, 770, 1730, 768, 1731, 767, 1732, 765, 1734, 764, 1735, 763, 1737, 762, 1739, 762, 1740, 761, 1742, 762, 1744, 762, 1746, 763, 1748, 764, 1750, 765, 1751, 767, 1753, 768, 1754, 770, 1755, 772, 1755, 774, 1755, 776, 1755, 778, 1755, 780, 1754, 781, 1753, 783, 1751, 784, 1750, 785, 1748, 786, 1746, 787, 1744, 787, 1742, -2, 4, 1838, 1148, 1843, 1174, 2, 1814, 1149, 1838, 1148, 2, 1809, 1185, 1814, 1149, 2, 1804, 1185, 1750, 1222, 2, 1819, 1185, 1804, 1185, 2, 1829, 1195, 1819, 1185, 2, 1829, 1211, 1829, 1195, 2, 1816, 1223, 1829, 1211, 2, 1888, 1138, 1833, 1176, 2, 1897, 1148, 1888, 1138, 2, 1854, 1173, 1897, 1148, 2, 1937, 1164, 1942, 1180, 2, 1810, 1178, 1937, 1164, 2, 1863, 1195, 1848, 1174, 2, 1942, 1180, 1829, 1203, -2, 2, 2913, 1034, 2228, 908, -2, 3, 2685, 942, 2624, 980, 2, 2644, 985, 2685, 942, 2, 2804, 972, 2753, 1004, 2, 2771, 1008, 2804, 972, -2, 7, 2010, 576, 1907, 645, -2, 4, 1642, 954, 1658, 1001, -2, 2, 1482, 890, 1654, 921, 2, 1454, 838, 1710, 878, 2, 1480, 806, 1774, 846, 2, 2173, 480, 2139, 510, 2, 2232, 496, 2257, 502, 2, 2178, 522, 2232, 496, 2, 2115, 512, 2068, 506, 2, 2173, 533, 2115, 512, 2, 2261, 591, 2173, 533, 2, 2278, 619, 2261, 591, -2, 5, 2345, 701, 2257, 734, -2, 3, 556, 1422, 595, 1401, 2, 511, 1411, 556, 1422, 2, 546, 1390, 511, 1411, 2, 595, 1401, 546, 1390, 2, 625, 1443, 664, 1422, 2, 573, 1429, 625, 1443, 2, 609, 1408, 573, 1429, 2, 663, 1422, 609, 1408, -2, 5, 364, 1432, 389, 1416, 2, 344, 1448, 364, 1432, 2, 330, 1480, 344, 1448, -2, 6, 268, 1569, 330, 1480, -2, 4, 566, 1927, 369, 2026, 2, 615, 1911, 566, 1927, 2, 669, 1911, 615, 1911, 2, 738, 1911, 669, 1911, -2, 1, 919, 1811, 738, 1911, 2, 1342, 1501, 919, 1811, 2, 1396, 1474, 1342, 1501, -2, 4, 551, 1963, 379, 2047, 2, 629, 1932, 551, 1963, 2, 669, 1927, 629, 1932, 2, 728, 1916, 669, 1927, -2, 1, 924, 1811, 728, 1916, 2, 1357, 1511, 924, 1811, 2, 1403, 1484, 1357, 1511, 2, 910, 1827, 438, 2068, 2, 959, 1806, 910, 1827, 2, 1367, 1516, 959, 1806, 2, 1409, 1493, 1367, 1516, 2, 1333, 1611, 438, 2095, 2, 1421, 1506, 1388, 1527, 2, 1381, 1522, 1431, 1567, 2, 1302, 1487, 1381, 1522, -2, 6, 1387, 1448, 1302, 1487, 2, 497, 1958, 403, 2000, 2, 457, 1900, 497, 1958, 2, 369, 1948, 457, 1900, 2, 403, 2000, 369, 1948, 2, 423, 1884, 364, 1911, 2, 403, 1858, 423, 1884, 2, 379, 1842, 403, 1858, 2, 325, 1884, 379, 1842, 2, 364, 1911, 325, 1884, 2, 782, 1648, 325, 1927, 2, 806, 1721, 816, 1674, 2, 792, 1790, 806, 1721, 2, 1062, 1685, 812, 1809, 2, 679, 1779, 305, 1974, 2, 757, 1874, 679, 1779, 2, 1072, 1679, 757, 1874, 2, 1372, 1427, 1072, 1679, 2, 1348, 1374, 1067, 1679, 2, 1338, 1349, 1062, 1685, -2, 4, 310, 1511, 315, 1521, 2, 295, 1532, 310, 1511, 2, 295, 1553, 295, 1532, 2, 315, 1522, 295, 1553, 2, 330, 1553, 310, 1585, 2, 315, 1537, 330, 1553, 2, 285, 1574, 315, 1537, 2, 310, 1584, 285, 1574, 2, 335, 1569, 354, 1600, 2, 320, 1590, 335, 1569, 2, 330, 1643, 320, 1590, 2, 344, 1643, 330, 1643, 2, 354, 1600, 344, 1643, -2, 5, 403, 1574, 349, 1664, -2, 4, 443, 1616, 492, 1621, 2, 408, 1653, 443, 1616, 2, 423, 1669, 408, 1653, 2, 497, 1658, 423, 1669, 2, 492, 1621, 497, 1658, 2, 516, 1621, 575, 1616, 2, 521, 1658, 516, 1621, 2, 605, 1658, 521, 1658, 2, 575, 1616, 605, 1658, 2, 664, 1616, 639, 1585, 2, 620, 1653, 664, 1616, 2, 600, 1600, 620, 1653, 2, 639, 1585, 600, 1600, -2, 5, 890, 1653, 1323, 1313, 2, 403, 1574, 723, 1542, 2, 331, 1477, 403, 1574, 2, 595, 1525, 747, 1497, 2, 433, 1537, 595, 1525, 2, 357, 1438, 433, 1537, 2, 408, 1553, 344, 1451, 2, 587, 1539, 408, 1553, 2, 740, 1509, 587, 1539, 2, 860, 1593, 827, 1543, 2, 1303, 1311, 900, 1616, 2, 1263, 1222, 860, 1511, 2, 885, 1543, 860, 1511, 2, 895, 1569, 885, 1543, 2, 1302, 1297, 895, 1569, 2, 1150, 1011, 623, 1387, 2, 885, 1543, 1273, 1259, 2, 726, 1484, 753, 1477, 2, 600, 1511, 726, 1484, 2, 448, 1516, 600, 1511, 2, 379, 1432, 448, 1516, 2, 389, 1416, 379, 1432, 2, 1126, 948, 389, 1416, -41, 4, 1863, 1147, 1863, 1144, 1862, 1142, 1861, 1140, 1860, 1138, 1859, 1136, 1857, 1135, 1855, 1133, 1853, 1132, 1850, 1132, 1848, 1132, 1846, 1132, 1843, 1132, 1841, 1133, 1839, 1135, 1837, 1136, 1836, 1138, 1834, 1140, 1833, 1142, 1833, 1144, 1833, 1147, 1833, 1149, 1833, 1152, 1834, 1154, 1836, 1156, 1837, 1158, 1839, 1159, 1841, 1160, 1843, 1161, 1846, 1162, 1848, 1162, 1850, 1162, 1853, 1161, 1855, 1160, 1857, 1159, 1859, 1158, 1860, 1156, 1861, 1154, 1862, 1152, 1863, 1149, 1863, 1147, 41, 1987, 1169, 1987, 1167, 1986, 1165, 1985, 1162, 1984, 1160, 1982, 1159, 1981, 1157, 1979, 1156, 1977, 1155, 1974, 1155, 1972, 1154, 1970, 1155, 1967, 1155, 1965, 1156, 1963, 1157, 1961, 1159, 1960, 1160, 1959, 1162, 1958, 1165, 1957, 1167, 1957, 1169, 1957, 1172, 1958, 1174, 1959, 1176, 1960, 1178, 1961, 1180, 1963, 1181, 1965, 1183, 1967, 1183, 1970, 1184, 1972, 1184, 1974, 1184, 1977, 1183, 1979, 1183, 1981, 1181, 1982, 1180, 1984, 1178, 1985, 1176, 1986, 1174, 1987, 1172, 1987, 1169, 29, 1750, 1222, 1745, 1216, 1739, 1211, 1732, 1208, 1725, 1205, 1717, 1204, 1710, 1203, 1702, 1204, 1694, 1206, 1687, 1209, 1681, 1213, 1675, 1218, 1670, 1224, 1666, 1231, 1664, 1238, 1662, 1246, 1661, 1253, 1662, 1261, 1664, 1269, 1667, 1276, 1671, 1282, 1676, 1288, 1681, 1293, 1688, 1297, 1695, 1300, 1703, 1302, 1710, 1303, 1718, 1302, 1725, 1301, -17, 7, 2163, 706, 2166, 700, 2168, 693, 2169, 686, 2169, 679, 2168, 671, 2165, 665, 2162, 658, 2157, 653, 2152, 648, 2146, 644, 2139, 641, 2132, 639, 2125, 638, 2118, 639, 2110, 640, 2104, 643, -2, 3, 1838, 923, 1302, 1297, -2, 2, 1298, 1290, 1836, 923, 2, 1804, 922, 1283, 1274, 2, 1838, 923, 1804, 922, -2, 3, 1278, 1264, 1822, 887, -2, 2, 1328, 1229, 1269, 1209, 2, 1345, 1187, 1273, 1238, 2, 1318, 1174, 1345, 1187, -2, 4, 1356, 1210, 1334, 1163, -2, 2, 1375, 1167, 1408, 1174, 2, 1375, 1167, 1347, 1153, 2, 1413, 1140, 1445, 1148, 2, 1499, 1111, 1440, 1097, 2, 1484, 1066, 1537, 1085, 2, 1572, 1060, 1516, 1042, 2, 1609, 1035, 1554, 1016, 2, 1624, 991, 1599, 984, 2, 1658, 1001, 1624, 991, -2, 4, 1666, 995, 1650, 948, -2, 2, 1748, 939, 1673, 926, -2, 4, 1748, 939, 1722, 896, 2, 1740, 885, 1763, 929, -2, 2, 1806, 899, 1740, 885, 2, 1607, 769, 1602, 747, 2, 1666, 753, 1567, 744, 2, 1201, 1021, 1194, 1000, 2, 1249, 988, 1242, 967, 2, 1293, 959, 1287, 936, 2, 1331, 933, 1322, 911, 2, 1376, 903, 1367, 883, 2, 1420, 872, 1413, 849, 2, 1456, 848, 1452, 824, 2, 1494, 796, 1504, 827, 2, 1536, 767, 1556, 840, 2, 1653, 1007, 1653, 1007, 2, 1724, 870, 1707, 789, 2, 1822, 887, 1646, 736, 2, 1170, 1043, 1456, 848, -2, 3, 1583, 733, 1160, 1022, -2, 2, 1579, 721, 1583, 733, -2, 3, 1150, 1011, 1579, 721, -2, 2, 1264, 856, 1123, 828, 2, 1244, 843, 1248, 798, 2, 1219, 822, 1229, 843, 2, 1219, 843, 1219, 822, 2, 1195, 827, 1196, 790, 2, 1175, 811, 1185, 833, 2, 1170, 833, 1175, 811, 2, 1160, 785, 1169, 806, 2, 1150, 817, 1160, 785, 2, 1153, 834, 1160, 859, 2, 1145, 853, 1153, 834, 2, 1195, 842, 1204, 875, 2, 1189, 869, 1195, 842, 2, 1150, 911, 1155, 879, -2, 1, 1116, 817, 1176, 915, 2, 1156, 785, 1116, 817, -2, 2, 1195, 791, 1137, 849, 2, 1155, 879, 1247, 797, 2, 1336, 809, 1121, 780, 2, 1128, 759, 1369, 787, -2, 3, 1126, 948, 1410, 759, -2, 1, 1048, 812, 1087, 770, 2, 1095, 759, 1047, 789, -2, 3, 1136, 733, 1095, 759, 2, 1410, 759, 1136, 733, 2, 1440, 738, 1410, 759, -2, 2, 1657, 480, 1683, 464, 2, 2212, 617, 2291, 575, 2, 2249, 667, 2212, 617, 2, 2039, 683, 2025, 670, 2, 1863, 643, 1975, 564, -2, 7, 2079, 633, 1962, 714, -2, 2, 2094, 649, 2079, 633, -2, 7, 1974, 723, 2103, 643, 2, 2027, 787, 2163, 707, -2, 4, 1676, 922, 1661, 917, 2, 1669, 920, 1690, 897, 2, 1676, 896, 1661, 917, 2, 1721, 872, 1676, 896, 2, 1740, 885, 1721, 872, 2, 1696, 911, 1740, 885, 2, 1676, 922, 1696, 911, 2, 1657, 943, 1676, 922, 2, 1341, 1139, 1364, 1122, 2, 1347, 1153, 1258, 1217, 2, 1372, 1132, 1347, 1153, 2, 1396, 1127, 1372, 1132, 2, 1657, 943, 1396, 1127, 2, 1362, 1106, 1642, 927, 2, 1352, 1122, 1362, 1106, 2, 1322, 1138, 1352, 1122, 2, 1249, 1190, 1322, 1138, -2, 2, 1273, 1112, 1202, 1091, 2, 1308, 1080, 1241, 1066, 2, 1357, 1053, 1288, 1036, 2, 1395, 1022, 1335, 1007, 2, 1437, 993, 1376, 980, 2, 1480, 969, 1410, 959, 2, 1514, 943, 1454, 931, 2, 1229, 1075, 1211, 1044, 2, 1280, 1118, 1229, 1075, 2, 1320, 1139, 1280, 1118, 2, 1317, 1090, 1357, 1113, 2, 1275, 1045, 1317, 1090, 2, 1258, 1011, 1275, 1045, 2, 1321, 1015, 1302, 984, 2, 1363, 1059, 1321, 1015, 2, 1402, 1080, 1363, 1059, 2, 1401, 1027, 1442, 1055, 2, 1361, 990, 1401, 1027, 2, 1341, 957, 1361, 990, 2, 1405, 962, 1387, 927, 2, 1445, 1001, 1405, 962, 2, 1485, 1027, 1445, 1001, 2, 1445, 936, 1485, 973, 2, 1429, 899, 1445, 936, 2, 1519, 949, 1489, 908, 2, 1573, 971, 1519, 949, 2, 1931, 1126, 1901, 1069, 2, 2001, 1085, 1981, 1027, 2, 1465, 1364, 1516, 1392, 2, 1407, 1240, 1465, 1364, 2, 1509, 1332, 1578, 1365, 2, 1450, 1211, 1509, 1332, 2, 1553, 1301, 1494, 1180, 2, 1635, 1340, 1553, 1301, 2, 1597, 1271, 1698, 1313, 2, 1539, 1148, 1597, 1271, 2, 1755, 657, 1878, 121, 2, 1933, 93, 1854, 133, -2, 1, 1681, 649, 1874, 73, 2, 1701, 691, 1681, 649, -2, 2, 1863, 128, 1711, 684, 2, 1892, 113, 1804, 626, 2, 1839, 603, 1911, 104, 2, 1938, 38, 1888, 573, -2, 3, 2001, 301, 1912, 316, 2, 2005, 58, 1933, 93, -2, 2, 1701, 691, 1951, 533, -2, 1, 1632, 712, 1701, 691, 2, 1593, 701, 1632, 712, 2, 1765, 249, 1593, 701, 2, 1809, 138, 1765, 249, 2, 1863, 75, 1809, 138, -2, 2, 2005, 2, 1874, 73, -2, 3, 2001, 428, 2005, 58, -2, 2, 1951, 533, 2001, 428, 2, 1909, 584, 1952, 615, 2, 1886, 599, 1921, 635, 2, 2215, 705, 2167, 670, 2, 2181, 726, 2160, 709, 2, 2110, 738, 2127, 757, 2, 2098, 774, 2081, 755, 2, 1991, 817, 1878, 861, 2, 1878, 851, 1991, 807, 2, 1989, 786, 1877, 843, 2, 1863, 803, 1974, 739, 2, 1941, 698, 1828, 762, 2, 1789, 743, 1879, 663, 2, 1846, 658, 1759, 739, 2, 1838, 923, 2232, 696, 2, 1303, 1311, 1848, 938, -2, 3, 2852, 984, 2803, 1014, 2, 2821, 1017, 2852, 984, 2, 2731, 954, 2671, 990, 2, 2689, 992, 2731, 954, 2, 2356, 859, 2269, 915, 2, 2289, 919, 2356, 859, 2, 2399, 870, 2311, 922, 2, 2341, 928, 2399, 870, 2, 2452, 883, 2367, 933, 2, 2386, 937, 2452, 883, 2, 2494, 894, 2418, 943, 2, 2436, 946, 2494, 894, 2, 2549, 908, 2463, 951, 2, 2491, 956, 2549, 908, 2, 2590, 918, 2518, 961, 2, 2537, 964, 2590, 918, 2, 2644, 932, 2566, 969, 2, 2604, 976, 2644, 932, 2, 2769, 963, 2719, 998, 2, 2733, 1001, 2769, 963, 2, 2887, 993, 2849, 1022, 2, 2868, 1025, 2887, 993, 2, 2935, 1005, 2895, 1031, 2, 2913, 1034, 2935, 1005, -2, 2, 2905, 1054, 2913, 1034, -2, 3, 2983, 1017, 2919, 1060, -2, 2, 2338, 964, 1986, 1201, 2, 2155, 1170, 2426, 978, 2, 2524, 994, 2311, 1143, 2, 2485, 1106, 2610, 1007, 2, 2743, 1029, 2675, 1080, 2, 1986, 1201, 1774, 1148, 2, 2133, 1173, 1843, 1104, 2, 2310, 1143, 1901, 1069, 2, 2448, 1111, 1986, 1027, -2, 3, 2277, 764, 2423, 775, -2, 2, 2310, 864, 2249, 766, 2, 2286, 875, 2223, 781, 2, 2235, 909, 2187, 801, 2, 2252, 895, 2149, 745, 2, 2203, 920, 2123, 760, 2, 2168, 938, 2119, 840, 2, 2134, 955, 2058, 797, 2, 2100, 972, 2046, 881, 2, 1980, 842, 2063, 991, 2, 2025, 1009, 1945, 863, 2, 1981, 1029, 1901, 888, 2, 1869, 981, 2270, 754, 2, 1848, 938, 1911, 1063, 2, 1868, 1088, 1809, 965, 2, 1765, 995, 1825, 1115, 2, 1774, 1148, 1722, 1025, 2, 1730, 1178, 1678, 1055, 2, 1889, 1236, 1713, 1190, 2, 1629, 1088, 1686, 1206, 2, 1646, 1236, 1584, 1119, 2, 1769, 1282, 1646, 1236, 2, 1421, 1393, 1458, 1417, 2, 1372, 1264, 1421, 1393, 2, 1372, 1427, 1317, 1301, 2, 1398, 1443, 1372, 1427, 2, 2074, 985, 2168, 938, 2, 1917, 1059, 2074, 985, 2, 1779, 1143, 1917, 1059, 2, 1372, 1427, 1779, 1143, 2, 1799, 1269, 1387, 1448, 2, 2001, 1195, 1799, 1269, 2, 2409, 1127, 2001, 1195, 2, 2448, 1111, 2409, 1127, 2, 2757, 1069, 2448, 1111, 2, 2804, 1038, 2757, 1069, 2, 2905, 1054, 2168, 938, -2, 1, 2943, 1071, 2905, 1054, 2, 1427, 1503, 1479, 1546, 2, 1463, 1480, 1528, 1524, 2, 1504, 1458, 1577, 1501, 2, 1547, 1431, 1631, 1476, 2, 1592, 1405, 1688, 1452, 2, 1646, 1373, 1743, 1425, 2, 1730, 1322, 1804, 1399, 2, 1795, 1297, 1858, 1375, 2, 1849, 1277, 1909, 1353, 2, 1918, 1251, 1978, 1329, 2, 1996, 1222, 2060, 1301, 2, 2059, 1213, 2092, 1295, 2, 2132, 1204, 2175, 1281, 2, 2214, 1192, 2259, 1266, 2, 2300, 1180, 2335, 1252, 2, 2368, 1171, 2405, 1240, 2, 2446, 1159, 2489, 1226, 2, 2531, 1148, 2571, 1211, 2, 2614, 1137, 2645, 1198, 2, 2714, 1122, 2736, 1182, 2, 2792, 1111, 2812, 1169, 2, 2826, 1096, 2873, 1127, 2, 2943, 1071, 2910, 1100, 2, 2871, 1075, 2910, 1100, 2, 2792, 1111, 2871, 1075, 2, 1996, 1222, 2792, 1111, 2, 1730, 1322, 1996, 1222, 2, 1421, 1506, 1730, 1322, 2, 1909, 1353, 1333, 1611, 2, 2060, 1301, 1909, 1353, 2, 2812, 1169, 2060, 1301, 2, 2910, 1100, 2812, 1169, -2, 3, 2998, 1022, 2943, 1071, -2, 2, 1878, 870, 1991, 827, 2, 1853, 876, 1878, 870, 2, 1730, 743, 1730, 754, 2, 1834, 633, 1730, 743, 2, 1986, 535, 1834, 633, 2, 2197, 533, 2178, 522, 2, 2256, 501, 2197, 533, 2, 2276, 517, 2256, 501, 2, 2295, 507, 2276, 517, 2, 2310, 528, 2295, 507, 2, 2295, 538, 2310, 528, 2, 2286, 606, 2295, 538, 2, 2232, 696, 2286, 606, 2, 2335, 854, 2232, 696, -2, 3, 2423, 775, 2335, 854, 2, 2351, 858, 2423, 775, -2, 2, 2644, 1085, 2074, 985, 2, 2605, 1090, 2600, 1077, 2, 2089, 1043, 2069, 985, 2, 1387, 1129, 1413, 1140, 2, 1590, 961, 1558, 855, 2, 1539, 957, 1507, 847, 2, 1634, 932, 1583, 733, 2, 1651, 999, 1640, 955, 2, 1697, 974, 1683, 918, 2, 1677, 895, 1641, 751, 2, 1727, 806, 1521, 776, 0 }; LOCAL GetPenColor(Pen) BEGIN LOCAL C := RGB(0, 0, 0); CASE IF Pen == 1 THEN C := RGB(255, 255, 0) END; IF Pen == 2 THEN C := RGB( 0, 255, 255) END; IF Pen == 3 THEN C := RGB( 0, 255, 0) END; IF Pen == 4 THEN C := RGB(255, 0, 0) END; IF Pen == 5 THEN C := RGB( 0, 0, 255) END; IF Pen == 6 THEN C := RGB(255, 255, 255) END; IF Pen == 7 THEN C := RGB(255, 0, 255) END; END; RETURN C; END; LOCAL GetPt(I) BEGIN RETURN {Data(I) / 9.375, Data(I+1) / 9.375}; END; EXPORT SHUTTLE() BEGIN LOCAL I, N, Color, Pt1, Pt2; Color := RGB(0, 0, 0); RECT_P(Color); I := 1; N := Data(I); WHILE N <> 0 DO I := I+1; IF N < 0 THEN N := -N; Color := GetPenColor(Data(I)); I := I+1; END; IF N > 0 THEN Pt1 := GetPt(I); I := I+2; N := N-1; WHILE N > 0 DO Pt2 := GetPt(I); I := I+2; N := N-1; LINE_P(Pt1(1), Pt1(2), Pt2(1), Pt2(2), Color); Pt1 := Pt2; END; END; N := Data(I); END; REPEAT UNTIL ISKEYDOWN(4); RETURN 0; END;

Comments