From da7e9ff107bf2b9298e3bd04a516bfd994b7a517 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter.bender@gmail.com>
Date: Sun, 20 Jan 2013 16:57:06 +0000
Subject: scale to fit screen

---
(limited to 'samples/game-trianglepaint.ta')

diff --git a/samples/game-trianglepaint.ta b/samples/game-trianglepaint.ta
index 15cc669..a6cd85a 100644
--- a/samples/game-trianglepaint.ta
+++ b/samples/game-trianglepaint.ta
@@ -1,552 +1,560 @@
-[[0, ["start", 2.0], 0, 180, [null, 60]],
-[1, ["storein", 0], 0, 268, [60, 2, 3, 4]],
+[[0, ["start", 2.0], 0, 180, [null, 58]],
+[1, ["storein", 0], 0, 268, [58, 2, 536, 540]],
 [2, ["string", "width"], 68, 268, [1, null]],
-[3, ["number", 60], 68, 310, [1, null]],
-[4, ["storein", 0], 0, 352, [1, 5, 6, 110]],
-[5, ["string", "height"], 68, 352, [4, null]],
-[6, ["number", 60], 68, 394, [4, null]],
-[7, "box", 736, 1846, [15, 8, null]],
-[8, ["string", "width"], 791, 1846, [7, null]],
-[9, "box", 736, 1762, [16, 10, null]],
-[10, ["string", "height"], 791, 1762, [9, null]],
-[11, "box", 712, 1554, [17, 12, null]],
-[12, ["string", "width"], 767, 1554, [11, null]],
-[13, "box", 712, 1928, [18, 14, null]],
-[14, ["string", "height"], 767, 1928, [13, null]],
-[15, ["minus2", 0], 658, 1804, [19, 23, 7]],
-[16, ["minus2", 0], 658, 1720, [20, 26, 9]],
-[17, ["plus2", 0], 658, 1554, [21, 11, 25]],
-[18, ["plus2", 0], 658, 1886, [19, 24, 13]],
-[19, ["setxy2", 20], 600, 1804, [22, 15, 18, null]],
-[20, ["setxy2", 0], 600, 1678, [21, 27, 16, 22]],
-[21, ["setxy2", 20], 600, 1554, [52, 17, 28, 20]],
-[22, ["vspace", 0], 600, 1762, [20, 19]],
-[23, "xcor", 712, 1804, [15, null]],
-[24, "ycor", 712, 1886, [18, null]],
-[25, "xcor", 712, 1596, [17, null]],
-[26, "ycor", 712, 1720, [16, null]],
-[27, "xcor", 658, 1678, [20, null]],
-[28, "ycor", 658, 1636, [21, null]],
-[29, ["setxy2", 20], 960, 1534, [54, 30, 37, 41]],
-[30, ["plus2", 0], 1018, 1534, [29, 31, 33]],
-[31, "box", 1072, 1534, [30, 32, null]],
-[32, ["string", "width"], 1127, 1534, [31, null]],
-[33, "xcor", 1072, 1576, [30, null]],
-[34, "ycor", 1018, 1782, [42, null]],
-[35, ["setxy2", 0], 960, 1824, [42, 36, 47, null]],
-[36, "xcor", 1018, 1824, [35, null]],
-[37, ["minus2", 0], 1018, 1616, [29, 38, 39]],
-[38, "ycor", 1072, 1616, [37, null]],
-[39, "box", 1096, 1658, [37, 40, null]],
-[40, ["string", "height"], 1151, 1658, [39, null]],
-[41, ["vspace", 0], 960, 1658, [29, 42]],
-[42, ["setxy2", 20], 960, 1700, [41, 43, 34, 35]],
-[43, ["minus2", 0], 1018, 1700, [42, 44, 45]],
-[44, "xcor", 1072, 1700, [43, null]],
-[45, "box", 1096, 1742, [43, 46, null]],
-[46, ["string", "width"], 1151, 1742, [45, null]],
-[47, ["plus2", 0], 1018, 1866, [35, 48, 49]],
-[48, "ycor", 1072, 1866, [47, null]],
-[49, "box", 1072, 1908, [47, 50, null]],
-[50, ["string", "height"], 1127, 1908, [49, null]],
-[51, ["vspace", 0], 360, 1952, [373, 360]],
-[52, "hat", 600, 1500, [null, 53, 21]],
-[53, ["string", "upper right"], 658, 1512, [52, null]],
-[54, "hat", 960, 1480, [null, 55, 29]],
-[55, ["string", "lower left"], 1018, 1492, [54, null]],
-[56, "stack", 496, 696, [483, 57, null]],
-[57, ["string", "upper left"], 554, 696, [56, null]],
-[58, "stack", 496, 756, [483, 59, null]],
-[59, ["string", "lower right"], 554, 756, [58, null]],
-[60, "setpensize", 0, 226, [0, 61, 1]],
-[61, ["number", 1], 102, 226, [60, null]],
-[62, ["storein", 0], 300, 834, [93, 63, 115, 64]],
-[63, ["string", "x"], 368, 834, [62, null]],
-[64, ["storein", 0], 300, 918, [62, 65, 113, 211]],
-[65, ["string", "y"], 368, 918, [64, null]],
-[66, "penup", 336, 1254, [75, 68]],
-[67, "pendown", 336, 1380, [68, 427]],
-[68, ["setxy2", 0], 336, 1296, [66, 69, 71, 67]],
-[69, "box", 394, 1296, [68, 70, null]],
-[70, ["string", "x"], 449, 1296, [69, null]],
-[71, "box", 394, 1338, [68, 72, null]],
-[72, ["string", "y"], 449, 1338, [71, null]],
-[73, ["repeat", 261], 300, 1170, [215, 74, 75, 217]],
-[74, ["number", 8], 359, 1170, [73, null]],
-[75, ["repeat", 126], 318, 1212, [73, 76, 66, 119]],
-[76, ["number", 7], 377, 1212, [75, null]],
-[77, ["storein", 0], 336, 1464, [427, 78, 81, null]],
-[78, ["string", "y"], 404, 1464, [77, null]],
-[79, "box", 458, 1506, [81, 80, null]],
-[80, ["string", "y"], 513, 1506, [79, null]],
-[81, ["minus2", 0], 404, 1506, [77, 79, 437]],
-[82, "box", 536, 1548, [437, 83, null]],
-[83, ["string", "height"], 591, 1548, [82, null]],
-[84, ["storein", 0], 318, 1608, [119, 85, 117, 86]],
-[85, ["string", "y"], 386, 1608, [84, null]],
-[86, ["storein", 0], 318, 1692, [84, 87, 92, null]],
-[87, ["string", "x"], 386, 1692, [86, null]],
-[88, "box", 440, 1734, [92, 89, null]],
-[89, ["string", "x"], 495, 1734, [88, null]],
-[90, "box", 494, 1776, [435, 91, null]],
-[91, ["string", "width"], 549, 1776, [90, null]],
-[92, ["plus2", 0], 386, 1734, [86, 88, 435]],
-[93, "hat", 300, 780, [null, 94, 62]],
-[94, ["string", "grid"], 358, 792, [93, null]],
-[95, "stack", 0, 604, [107, 96, 188]],
-[96, ["string", "grid"], 58, 604, [95, null]],
-[97, ["forever", 177], 860, 234, [98, 304, null]],
-[98, "hat", 860, 180, [null, 99, 97]],
-[99, ["string", "paint"], 918, 192, [98, null]],
-[100, "stack", 0, 688, [188, 101, null]],
-[101, ["string", "paint"], 58, 688, [100, null]],
-[102, "mousex", 1098, 1178, [125, null]],
-[103, "mousey", 1446, 1200, [133, null]],
-[104, "startfill", 896, 520, [139, 259]],
-[105, "stopfill", 896, 604, [259, null]],
-[106, ["ifelse", [0, 0]],
-478, 384, [485, 247, 121, 123, null]],
-[107, ["storein", 0], 0, 520, [110, 108, 109, 95]],
-[108, ["string", "top"], 68, 520, [107, null]],
-[109, ["number", 420], 68, 562, [107, null]],
-[110, ["storein", 0], 0, 436, [4, 111, 112, 107]],
-[111, ["string", "left"], 68, 436, [110, null]],
-[112, ["number", -400], 68, 478, [110, null]],
-[113, "box", 368, 960, [64, 114, null]],
-[114, ["string", "top"], 423, 960, [113, null]],
-[115, "box", 368, 876, [62, 116, null]],
-[116, ["string", "left"], 423, 876, [115, null]],
-[117, "box", 386, 1650, [84, 118, null]],
-[118, ["string", "top"], 441, 1650, [117, null]],
-[119, ["vspace", 0], 318, 1566, [75, 84]],
-[120, ["setxy2", 0], 1480, 324, [135, 225, 227, 136]],
-[121, "stack", 496, 450, [106, 122, null]],
-[122, ["string", "upper right"], 554, 450, [121, null]],
-[123, "stack", 496, 510, [106, 124, null]],
-[124, ["string", "lower left"], 554, 510, [123, null]],
-[125, ["minus2", 0], 1044, 1178, [127, 102, 445]],
-[126, "int", 936, 1178, [128, 127]],
-[127, ["division2", 20], 990, 1178, [126, 125, 317]],
-[128, ["product2", 40], 882, 1178, [129, 126, 313]],
-[129, ["plus2", 0], 828, 1136, [221, 443, 128]],
-[130, ["product2", 40], 1206, 1158, [134, 131, 323]],
-[131, "int", 1260, 1158, [130, 132]],
-[132, ["division2", 20], 1314, 1158, [131, 133, 321]],
-[133, ["minus2", 0], 1368, 1158, [132, 439, 103]],
-[134, ["minus2", 0], 1128, 1116, [223, 441, 130]],
-[135, "penup", 1480, 282, [455, 120]],
-[136, "pendown", 1480, 408, [120, 302]],
-[137, "hat", 1480, 60, [null, 138, 233]],
-[138, ["string", "xy"], 1538, 72, [137, null]],
-[139, "stack", 896, 478, [305, 140, 104]],
-[140, ["string", "xy"], 954, 478, [139, null]],
-[141, ["ifelse", [0, 84]],
-878, 310, [304, 143, 142, 305, null]],
-[142, "setcolor", 896, 376, [141, 154, null]],
-[143, ["less2", 0], 934, 276, [141, 156, 144, null]],
-[144, "box", 1004, 318, [143, 145, null]],
-[145, ["string", "left"], 1059, 318, [144, null]],
-[146, "mousey", 1213, 418, [149, null]],
-[147, "box", 1189, 376, [149, 148, null]],
-[148, ["string", "top"], 1244, 376, [147, null]],
-[149, ["minus2", 0], 1135, 376, [150, 147, 146]],
-[150, ["division2", 20], 1081, 376, [155, 149, 151]],
-[151, "box", 1159, 458, [150, 152, null]],
-[152, ["string", "height"], 1214, 458, [151, null]],
-[153, ["number", 10], 1027, 418, [154, null]],
-[154, ["product2", 0], 973, 376, [142, 155, 153]],
-[155, "int", 1027, 376, [154, 150]],
-[156, "mousex", 980, 276, [143, null]],
-[157, ["repeat", 188], 20, 960, [162, 158, 160, 179]],
-[158, ["number", 10], 79, 960, [157, null]],
-[159, ["setxy2", 20], 38, 1044, [160, 210, 166, 161]],
-[160, "penup", 38, 1002, [157, 159]],
-[161, "pendown", 38, 1168, [159, 184]],
-[162, ["storein", 0], 20, 876, [219, 163, 164, 157]],
-[163, ["string", "y"], 88, 876, [162, null]],
-[164, "box", 88, 918, [162, 165, null]],
-[165, ["string", "top"], 143, 918, [164, null]],
-[166, "box", 96, 1126, [159, 167, null]],
-[167, ["string", "y"], 151, 1126, [166, null]],
-[168, ["storein", 0], 38, 1336, [181, 169, 174, null]],
-[169, ["string", "y"], 106, 1336, [168, null]],
-[170, "box", 160, 1378, [174, 171, null]],
-[171, ["string", "y"], 215, 1378, [170, null]],
-[172, "box", 184, 1420, [174, 173, null]],
-[173, ["string", "height"], 239, 1420, [172, null]],
-[174, ["minus2", 0], 106, 1378, [168, 170, 172]],
-[175, "color", 169, 1252, [176, null]],
-[176, ["plus2", 0], 115, 1252, [178, 175, 177]],
-[177, ["number", 10], 169, 1294, [176, null]],
-[178, "setcolor", 38, 1252, [184, 176, 181]],
-[179, "setcolor", 20, 1438, [157, 180, null]],
-[180, ["number", 0], 97, 1438, [179, null]],
-[181, ["vspace", 0], 38, 1294, [178, 168]],
-[182, "hat", 1820, 1480, [null, 183, 198]],
-[183, ["string", "rect"], 1878, 1492, [182, null]],
-[184, "stack", 38, 1210, [161, 185, 178]],
-[185, ["string", "rect"], 96, 1210, [184, null]],
-[186, "hat", 20, 780, [null, 187, 219]],
-[187, ["string", "palette"], 78, 792, [186, null]],
-[188, "stack", 0, 646, [95, 189, 100]],
-[189, ["string", "palette"], 58, 646, [188, null]],
-[190, "startfill", 1820, 1576, [198, 200]],
-[191, "stopfill", 1820, 1846, [200, null]],
-[192, "forward", 1838, 1744, [195, 204, 193]],
-[193, "right", 1838, 1786, [192, 194, null]],
-[194, ["number", 90], 1896, 1786, [193, null]],
-[195, "right", 1838, 1702, [197, 196, 192]],
-[196, ["number", 90], 1896, 1702, [195, null]],
-[197, "forward", 1838, 1660, [200, 202, 195]],
-[198, "seth", 1820, 1534, [182, 199, 190]],
-[199, ["number", 90], 1878, 1534, [198, null]],
-[200, ["repeat", 63], 1820, 1618, [190, 201, 197, 191]],
-[201, ["number", 2], 1879, 1618, [200, null]],
-[202, "box", 1909, 1660, [197, 203, null]],
-[203, ["string", "width"], 1964, 1660, [202, null]],
-[204, "box", 1909, 1744, [192, 205, null]],
-[205, ["string", "height"], 1964, 1744, [204, null]],
-[206, "box", 150, 1044, [210, 207, null]],
-[207, ["string", "left"], 205, 1044, [206, null]],
-[208, "box", 228, 1086, [306, 209, null]],
-[209, ["string", "width"], 283, 1086, [208, null]],
-[210, ["minus2", 0], 96, 1044, [159, 206, 306]],
-[211, "fillscreen2", 300, 1002, [64, 214, 213, 212, 215]],
-[212, ["number", 0], 382, 1086, [211, null]],
-[213, ["number", 100], 382, 1044, [211, null]],
-[214, ["number", 0], 382, 1002, [211, null]],
-[215, "setgray", 300, 1128, [211, 216, 73]],
-[216, ["number", 0], 373, 1128, [215, null]],
-[217, "setgray", 300, 1794, [73, 218, null]],
-[218, ["number", 100], 373, 1794, [217, null]],
-[219, "setcolor", 20, 834, [186, 220, 162]],
-[220, ["number", 0], 97, 834, [219, null]],
-[221, ["storein", 0], 760, 1094, [231, 222, 129, null]],
-[222, ["string", "x"], 828, 1094, [221, null]],
-[223, ["storein", 0], 1060, 1074, [229, 224, 134, null]],
-[224, ["string", "y"], 1128, 1074, [223, null]],
-[225, "box", 1538, 324, [120, 226, null]],
-[226, ["string", "x"], 1593, 324, [225, null]],
-[227, "box", 1538, 366, [120, 228, null]],
-[228, ["string", "y"], 1593, 366, [227, null]],
-[229, "hat", 1060, 1020, [null, 230, 223]],
-[230, ["string", "calc x"], 1118, 1032, [229, null]],
-[231, "hat", 760, 1040, [null, 232, 221]],
-[232, ["string", "calc y"], 818, 1052, [231, null]],
-[233, "stack", 1480, 114, [137, 234, 235]],
-[234, ["string", "calc x"], 1538, 114, [233, null]],
-[235, "stack", 1480, 156, [233, 236, 481]],
-[236, ["string", "calc y"], 1538, 156, [235, null]],
-[237, ["minus2", 20], 2348, 742, [261, 242, 239]],
-[238, "mousey", 2402, 616, [246, null]],
-[239, "mousex", 2426, 824, [237, null]],
-[240, "box", 2456, 742, [242, 241, null]],
-[241, ["string", "x"], 2511, 742, [240, null]],
-[242, ["plus2", 0], 2402, 742, [237, 240, 315]],
-[243, ["plus2", 20], 2248, 156, [293, 267, 266]],
-[244, "box", 2426, 658, [246, 245, null]],
-[245, ["string", "y"], 2481, 658, [244, null]],
-[246, ["minus2", 0], 2348, 616, [263, 238, 244]],
-[247, ["less2", 0], 534, 350, [106, 297, 299, null]],
-[248, ["plus2", 20], 2248, 362, [295, 289, 290]],
-[249, "box", 2426, 950, [255, 250, null]],
-[250, ["string", "x"], 2481, 950, [249, null]],
-[251, "box", 2480, 1076, [292, 252, null]],
-[252, ["string", "y"], 2535, 1076, [251, null]],
-[253, "mousey", 2402, 1034, [256, null]],
-[254, "mousex", 2402, 908, [255, null]],
-[255, ["minus2", 0], 2348, 908, [276, 254, 249]],
-[256, ["minus2", 0], 2348, 1034, [278, 253, 292]],
-[257, "hat", 460, 180, [null, 258, 303]],
-[258, ["string", "action"], 518, 192, [257, null]],
-[259, "stack", 896, 562, [104, 260, 105]],
-[260, ["string", "action"], 954, 562, [259, null]],
-[261, ["storein", 0], 2280, 700, [265, 262, 237, 291]],
-[262, ["string", "dx0"], 2348, 700, [261, null]],
-[263, ["storein", 0], 2280, 574, [505, 264, 246, 265]],
-[264, ["string", "dy0"], 2348, 574, [263, null]],
-[265, ["vspace", 0], 2280, 658, [263, 261]],
-[266, ["product2", 0], 2302, 238, [243, 272, 274]],
-[267, ["product2", 0], 2302, 156, [243, 268, 270]],
-[268, "box", 2356, 156, [267, 269, null]],
-[269, ["string", "dx0"], 2411, 156, [268, null]],
-[270, "box", 2356, 198, [267, 271, null]],
-[271, ["string", "dx0"], 2411, 198, [270, null]],
-[272, "box", 2356, 238, [266, 273, null]],
-[273, ["string", "dy0"], 2411, 238, [272, null]],
-[274, "box", 2356, 280, [266, 275, null]],
-[275, ["string", "dy0"], 2411, 280, [274, null]],
-[276, ["storein", 0], 2280, 866, [291, 277, 255, 280]],
-[277, ["string", "dx1"], 2348, 866, [276, null]],
-[278, ["storein", 0], 2280, 992, [280, 279, 256, null]],
-[279, ["string", "dy1"], 2348, 992, [278, null]],
-[280, ["vspace", 0], 2280, 950, [276, 278]],
-[281, "box", 2356, 444, [290, 282, null]],
-[282, ["string", "dx1"], 2411, 444, [281, null]],
-[283, "box", 2356, 486, [290, 284, null]],
-[284, ["string", "dx1"], 2411, 486, [283, null]],
-[285, "box", 2356, 362, [289, 286, null]],
-[286, ["string", "dy1"], 2411, 362, [285, null]],
-[287, "box", 2356, 404, [289, 288, null]],
-[288, ["string", "dy1"], 2411, 404, [287, null]],
-[289, ["product2", 0], 2302, 362, [248, 285, 287]],
-[290, ["product2", 0], 2302, 444, [248, 281, 283]],
-[291, ["vspace", 20], 2280, 784, [261, 276]],
-[292, ["minus2", 0], 2426, 1076, [256, 251, 319]],
-[293, ["storein", 0], 2180, 114, [496, 294, 243, 301]],
-[294, ["string", "du"], 2248, 114, [293, null]],
-[295, ["storein", 0], 2180, 320, [301, 296, 248, null]],
-[296, ["string", "dl"], 2248, 320, [295, null]],
-[297, "box", 580, 350, [247, 298, null]],
-[298, ["string", "du"], 635, 350, [297, null]],
-[299, "box", 604, 392, [247, 300, null]],
-[300, ["string", "dl"], 659, 392, [299, null]],
-[301, ["vspace", 40], 2180, 198, [293, 295]],
-[302, ["vspace", 0], 1480, 450, [136, 498]],
-[303, ["vspace", 0], 460, 234, [257, 484]],
-[304, ["vspace", 0], 878, 268, [97, 141]],
-[305, ["vspace", 0], 896, 436, [141, 139]],
-[306, ["product2", 0], 174, 1086, [210, 208, 307]],
-[307, ["number", 2], 228, 1128, [306, null]],
-[308, ["if", 0], 640, 920, [null, 311, null, null]],
-[309, "see", 798, 878, [312, null]],
-[310, "color", 798, 920, [312, null]],
-[311, "not", 696, 920, [308, 312]],
-[312, ["equal2", 0], 752, 878, [311, 309, 310, null]],
-[313, "box", 936, 1300, [128, 314, null]],
-[314, ["string", "width"], 991, 1300, [313, null]],
-[315, "box", 2456, 784, [242, 316, null]],
-[316, ["string", "width"], 2511, 784, [315, null]],
-[317, "box", 1068, 1260, [127, 318, null]],
-[318, ["string", "width"], 1123, 1260, [317, null]],
-[319, "box", 2504, 1118, [292, 320, null]],
-[320, ["string", "height"], 2559, 1118, [319, null]],
-[321, "box", 1392, 1240, [132, 322, null]],
-[322, ["string", "height"], 1447, 1240, [321, null]],
-[323, "box", 1260, 1280, [130, 324, null]],
-[324, ["string", "height"], 1315, 1280, [323, null]],
-[325, "hat", 1300, 1500, [null, 326, 327]],
-[326, ["string", "upper left"], 1358, 1512, [325, null]],
-[327, ["setxy2", 20], 1300, 1554, [325, 328, 332, 340]],
-[328, ["plus2", 0], 1358, 1554, [327, 329, 331]],
-[329, "box", 1412, 1554, [328, 330, null]],
-[330, ["string", "width"], 1467, 1554, [329, null]],
-[331, "xcor", 1412, 1596, [328, null]],
-[332, "ycor", 1358, 1636, [327, null]],
-[333, ["setxy2", 0], 1300, 1844, [339, 334, 345, null]],
-[334, "xcor", 1358, 1844, [333, null]],
-[335, ["minus2", 0], 1358, 1760, [340, 336, 337]],
-[336, "ycor", 1412, 1760, [335, null]],
-[337, "box", 1436, 1802, [335, 338, null]],
-[338, ["string", "height"], 1491, 1802, [337, null]],
-[339, ["vspace", 0], 1300, 1802, [340, 333]],
-[340, ["setxy2", 20], 1300, 1678, [327, 341, 335, 339]],
-[341, ["minus2", 0], 1358, 1678, [340, 342, 343]],
-[342, "xcor", 1412, 1678, [341, null]],
-[343, "box", 1436, 1720, [341, 344, null]],
-[344, ["string", "width"], 1491, 1720, [343, null]],
-[345, ["plus2", 0], 1358, 1886, [333, 346, 347]],
-[346, "ycor", 1412, 1886, [345, null]],
-[347, "box", 1412, 1928, [345, 348, null]],
-[348, ["string", "height"], 1467, 1928, [347, null]],
-[349, "hat", 360, 1480, [null, 350, 371]],
-[350, ["string", "lower right"], 418, 1492, [349, null]],
-[351, ["setxy2", 20], 360, 1702, [372, 352, 388, 359]],
-[352, ["plus2", 0], 418, 1702, [351, 353, 355]],
-[353, "box", 472, 1702, [352, 354, null]],
-[354, ["string", "width"], 527, 1702, [353, null]],
-[355, "xcor", 472, 1744, [352, null]],
-[356, "ycor", 472, 1784, [388, null]],
-[357, "box", 472, 1826, [388, 358, null]],
-[358, ["string", "height"], 527, 1826, [357, null]],
-[359, ["vspace", 0], 360, 1826, [351, 373]],
-[360, ["setxy2", 20], 360, 1994, [51, 361, 365, 379]],
-[361, ["minus2", 0], 418, 1994, [360, 362, 363]],
-[362, "xcor", 472, 1994, [361, null]],
-[363, "box", 496, 2036, [361, 364, null]],
-[364, ["string", "width"], 551, 2036, [363, null]],
-[365, "ycor", 418, 2076, [360, null]],
-[366, ["setxy2", 0], 360, 1576, [371, 367, 387, 372]],
-[367, "xcor", 418, 1576, [366, null]],
-[368, "ycor", 472, 1618, [387, null]],
-[369, "box", 496, 1660, [387, 370, null]],
-[370, ["string", "height"], 551, 1660, [369, null]],
-[371, "penup", 360, 1534, [349, 366]],
-[372, "pendown", 360, 1660, [366, 351]],
-[373, ["setxy2", 0], 360, 1868, [359, 374, 378, 51]],
-[374, "xcor", 418, 1868, [373, null]],
-[375, "ycor", 472, 1910, [378, null]],
-[376, "box", 496, 1952, [378, 377, null]],
-[377, ["string", "height"], 551, 1952, [376, null]],
-[378, ["minus2", 0], 418, 1910, [373, 375, 376]],
-[379, "penup", 360, 2118, [360, 380]],
-[380, ["setxy2", 0], 360, 2160, [379, 381, 382, 386]],
-[381, "xcor", 418, 2160, [380, null]],
-[382, ["plus2", 0], 418, 2202, [380, 383, 384]],
-[383, "ycor", 472, 2202, [382, null]],
-[384, "box", 472, 2244, [382, 385, null]],
-[385, ["string", "height"], 527, 2244, [384, null]],
-[386, "pendown", 360, 2244, [380, null]],
-[387, ["minus2", 0], 418, 1618, [366, 368, 369]],
-[388, ["plus2", 0], 418, 1784, [351, 356, 357]],
-[389, "stack", 80, 1576, [391, 390, 399]],
-[390, ["string", "lower left"], 138, 1576, [389, null]],
-[391, "stack", 80, 1534, [425, 392, 389]],
-[392, ["string", "upper right"], 138, 1534, [391, null]],
-[393, "stack", 80, 1786, [395, 394, 404]],
-[394, ["string", "lower right"], 138, 1786, [393, null]],
-[395, "stack", 80, 1744, [403, 396, 393]],
-[396, ["string", "upper left"], 138, 1744, [395, null]],
-[397, "box", 216, 1702, [402, 398, null]],
-[398, ["string", "height"], 271, 1702, [397, null]],
-[399, ["setxy2", 0], 80, 1618, [389, 400, 402, 403]],
-[400, "xcor", 138, 1618, [399, null]],
-[401, "ycor", 192, 1660, [402, null]],
-[402, ["minus2", 0], 138, 1660, [399, 401, 397]],
-[403, ["vspace", 0], 80, 1702, [399, 395]],
-[404, ["setxy2", 20], 80, 1828, [393, 407, 405, 410]],
-[405, "ycor", 138, 1910, [404, null]],
-[406, "xcor", 192, 1828, [407, null]],
-[407, ["plus2", 0], 138, 1828, [404, 406, 408]],
-[408, "box", 192, 1870, [407, 409, null]],
-[409, ["string", "width"], 247, 1870, [408, null]],
-[410, "stack", 80, 1952, [404, 411, 412]],
-[411, ["string", "lower left"], 138, 1952, [410, null]],
-[412, "stack", 80, 1994, [410, 413, 418]],
-[413, ["string", "upper right"], 138, 1994, [412, null]],
-[414, "stack", 80, 2162, [422, 415, 416]],
-[415, ["string", "upper left"], 138, 2162, [414, null]],
-[416, "stack", 80, 2204, [414, 417, 429]],
-[417, ["string", "lower right"], 138, 2204, [416, null]],
-[418, ["setxy2", 0], 80, 2036, [412, 419, 421, 422]],
-[419, "xcor", 138, 2036, [418, null]],
-[420, "ycor", 192, 2078, [421, null]],
-[421, ["plus2", 0], 138, 2078, [418, 420, 423]],
-[422, ["vspace", 0], 80, 2120, [418, 414]],
-[423, "box", 192, 2120, [421, 424, null]],
-[424, ["string", "height"], 247, 2120, [423, null]],
-[425, "hat", 80, 1480, [null, 426, 391]],
-[426, ["string", "4 squares"], 138, 1492, [425, null]],
-[427, "stack", 336, 1422, [67, 428, 77]],
-[428, ["string", "4 squares"], 394, 1422, [427, null]],
-[429, ["setxy2", 20], 80, 2246, [416, 432, 431, null]],
-[430, "xcor", 192, 2246, [432, null]],
-[431, "ycor", 138, 2328, [429, null]],
-[432, ["minus2", 0], 138, 2246, [429, 430, 433]],
-[433, "box", 216, 2288, [432, 434, null]],
-[434, ["string", "width"], 271, 2288, [433, null]],
-[435, ["product2", 0], 440, 1776, [92, 90, 436]],
-[436, ["number", 2], 494, 1818, [435, null]],
-[437, ["product2", 0], 482, 1548, [81, 82, 438]],
-[438, ["number", 2], 536, 1590, [437, null]],
-[439, "box", 1422, 1158, [133, 440, null]],
-[440, ["string", "top"], 1477, 1158, [439, null]],
-[441, "box", 1182, 1116, [134, 442, null]],
-[442, ["string", "top"], 1237, 1116, [441, null]],
-[443, "box", 882, 1136, [129, 444, null]],
-[444, ["string", "left"], 937, 1136, [443, null]],
-[445, "box", 1122, 1220, [125, 446, null]],
-[446, ["string", "left"], 1177, 1220, [445, null]],
-[447, "box", 1430, 662, [459, 448, null]],
-[448, ["string", "x"], 1485, 662, [447, null]],
-[449, "box", 1454, 866, [458, 450, null]],
-[450, ["string", "y"], 1509, 866, [449, null]],
-[451, "box", 1400, 744, [456, 452, null]],
-[452, ["string", "width"], 1455, 744, [451, null]],
-[453, "box", 1400, 906, [457, 454, null]],
-[454, ["string", "height"], 1455, 906, [453, null]],
-[455, "print", 1480, 240, [481, 489, 135]],
-[456, ["division2", 20], 1322, 662, [464, 459, 451]],
-[457, ["division2", 20], 1322, 824, [466, 458, 453]],
-[458, ["minus2", 0], 1376, 824, [457, 460, 449]],
-[459, ["minus2", 0], 1376, 662, [456, 447, 462]],
-[460, "box", 1430, 824, [458, 461, null]],
-[461, ["string", "top"], 1485, 824, [460, null]],
-[462, "box", 1454, 704, [459, 463, null]],
-[463, ["string", "left"], 1509, 704, [462, null]],
-[464, ["remainder2", 40], 1262, 662, [475, 456, 465]],
-[465, ["number", 2.0], 1346, 784, [464, null]],
-[466, ["remainder2", 40], 1262, 824, [475, 457, 467]],
-[467, ["number", 2.0], 1346, 946, [466, null]],
-[468, ["storein", 0], 1178, 882, [470, 469, 471, null]],
-[469, ["string", "phase"], 1246, 882, [468, null]],
-[470, ["ifelse", [21, 21]],
-1160, 816, [476, 475, 468, 472, null]],
-[471, ["number", 0.0], 1246, 924, [468, null]],
-[472, ["storein", 0], 1178, 984, [470, 473, 474, null]],
-[473, ["string", "phase"], 1246, 984, [472, null]],
-[474, ["number", 1.0], 1246, 1026, [472, null]],
-[475, ["equal2", 60], 1216, 662, [470, 464, 466, null]],
-[476, ["vspace", 60], 1160, 654, [477, 470]],
-[477, "hat", 1160, 600, [null, 478, 476]],
-[478, ["string", "calc phase"], 1218, 612, [477, null]],
-[479, "box", 562, 242, [487, 480, null]],
-[480, ["string", "phase"], 617, 242, [479, null]],
-[481, "stack", 1480, 198, [235, 482, 455]],
-[482, ["string", "calc phase"], 1538, 198, [481, null]],
-[483, ["ifelse", [0, 0]],
-478, 630, [486, 491, 56, 58, null]],
-[484, ["ifelse", [93, 93]],
-460, 276, [303, 487, 485, 486, null]],
-[485, ["vspace", 0], 478, 342, [484, 106]],
-[486, ["vspace", 0], 478, 588, [484, 483]],
-[487, ["equal2", 0], 516, 242, [484, 479, 488, null]],
-[488, ["number", 0.0], 562, 284, [487, null]],
-[489, "box", 1538, 240, [455, 490, null]],
-[490, ["string", "phase"], 1593, 240, [489, null]],
-[491, ["less2", 0], 534, 596, [483, 492, 494, null]],
-[492, "box", 580, 596, [491, 493, null]],
-[493, ["string", "du"], 635, 596, [492, null]],
-[494, "box", 604, 638, [491, 495, null]],
-[495, ["string", "dl"], 659, 638, [494, null]],
-[496, "hat", 2180, 60, [null, 497, 293]],
-[497, ["string", "calc distances"], 2238, 72, [496, null]],
-[498, ["ifelse", [0, 0]],
-1480, 492, [302, 501, 509, 511, 499]],
-[499, "stack", 1480, 678, [498, 500, null]],
-[500, ["string", "calc distances"], 1538, 678, [499, null]],
-[501, ["equal2", 0], 1536, 458, [498, 503, 502, null]],
-[502, ["number", 0.0], 1582, 500, [501, null]],
-[503, "box", 1582, 458, [501, 504, null]],
-[504, ["string", "phase"], 1637, 458, [503, null]],
-[505, "hat", 2280, 520, [null, 506, 263]],
-[506, ["string", "phase 0"], 2338, 532, [505, null]],
-[507, "hat", 1800, 60, [null, 508, 513]],
-[508, ["string", "phase 1"], 1858, 72, [507, null]],
-[509, "stack", 1498, 558, [498, 510, null]],
-[510, ["string", "phase 0"], 1556, 558, [509, null]],
-[511, "stack", 1498, 618, [498, 512, null]],
-[512, ["string", "phase 1"], 1556, 618, [511, null]],
-[513, ["storein", 0], 1800, 114, [507, 514, 515, 519]],
-[514, ["string", "dy0"], 1868, 114, [513, null]],
-[515, ["minus2", 0], 1868, 156, [513, 516, 517]],
-[516, "mousey", 1922, 156, [515, null]],
-[517, "box", 1946, 198, [515, 518, null]],
-[518, ["string", "y"], 2001, 198, [517, null]],
-[519, ["vspace", 0], 1800, 198, [513, 520]],
-[520, ["storein", 0], 1800, 240, [519, 521, 522, 529]],
-[521, ["string", "dx0"], 1868, 240, [520, null]],
-[522, ["minus2", 0], 1868, 282, [520, 524, 528]],
-[523, ["plus2", 0], 1946, 490, [532, 534, 526]],
-[524, "box", 1922, 282, [522, 525, null]],
-[525, ["string", "x"], 1977, 282, [524, null]],
-[526, "box", 2000, 532, [523, 527, null]],
-[527, ["string", "width"], 2055, 532, [526, null]],
-[528, "mousex", 1946, 324, [522, null]],
-[529, ["vspace", 20], 1800, 324, [520, 530]],
-[530, ["storein", 0], 1800, 406, [529, 531, 532, 536]],
-[531, ["string", "dx1"], 1868, 406, [530, null]],
-[532, ["minus2", 0], 1868, 448, [530, 533, 523]],
-[533, "mousex", 1922, 448, [532, null]],
-[534, "box", 2000, 490, [523, 535, null]],
-[535, ["string", "x"], 2055, 490, [534, null]],
-[536, ["vspace", 0], 1800, 490, [530, 537]],
-[537, ["storein", 0], 1800, 532, [536, 538, 539, null]],
-[538, ["string", "dy1"], 1868, 532, [537, null]],
-[539, ["minus2", 0], 1868, 574, [537, 540, 541]],
-[540, "mousey", 1922, 574, [539, null]],
-[541, ["minus2", 0], 1946, 616, [539, 542, 544]],
-[542, "box", 2000, 616, [541, 543, null]],
-[543, ["string", "y"], 2055, 616, [542, null]],
-[544, "box", 2024, 658, [541, 545, null]],
-[545, ["string", "height"], 2079, 658, [544, null]]]
+[3, ["storein", 0], 0, 394, [540, 4, 538, 106]],
+[4, ["string", "height"], 68, 394, [3, null]],
+[5, "box", 736, 1846, [13, 6, null]],
+[6, ["string", "width"], 791, 1846, [5, null]],
+[7, "box", 736, 1762, [14, 8, null]],
+[8, ["string", "height"], 791, 1762, [7, null]],
+[9, "box", 712, 1554, [15, 10, null]],
+[10, ["string", "width"], 767, 1554, [9, null]],
+[11, "box", 712, 1928, [16, 12, null]],
+[12, ["string", "height"], 767, 1928, [11, null]],
+[13, ["minus2", 0], 658, 1804, [17, 21, 5]],
+[14, ["minus2", 0], 658, 1720, [18, 24, 7]],
+[15, ["plus2", 0], 658, 1554, [19, 9, 23]],
+[16, ["plus2", 0], 658, 1886, [17, 22, 11]],
+[17, ["setxy2", 20], 600, 1804, [20, 13, 16, null]],
+[18, ["setxy2", 0], 600, 1678, [19, 25, 14, 20]],
+[19, ["setxy2", 20], 600, 1554, [50, 15, 26, 18]],
+[20, ["vspace", 0], 600, 1762, [18, 17]],
+[21, "xcor", 712, 1804, [13, null]],
+[22, "ycor", 712, 1886, [16, null]],
+[23, "xcor", 712, 1596, [15, null]],
+[24, "ycor", 712, 1720, [14, null]],
+[25, "xcor", 658, 1678, [18, null]],
+[26, "ycor", 658, 1636, [19, null]],
+[27, ["setxy2", 20], 960, 1534, [52, 28, 35, 39]],
+[28, ["plus2", 0], 1018, 1534, [27, 29, 31]],
+[29, "box", 1072, 1534, [28, 30, null]],
+[30, ["string", "width"], 1127, 1534, [29, null]],
+[31, "xcor", 1072, 1576, [28, null]],
+[32, "ycor", 1018, 1782, [40, null]],
+[33, ["setxy2", 0], 960, 1824, [40, 34, 45, null]],
+[34, "xcor", 1018, 1824, [33, null]],
+[35, ["minus2", 0], 1018, 1616, [27, 36, 37]],
+[36, "ycor", 1072, 1616, [35, null]],
+[37, "box", 1096, 1658, [35, 38, null]],
+[38, ["string", "height"], 1151, 1658, [37, null]],
+[39, ["vspace", 0], 960, 1658, [27, 40]],
+[40, ["setxy2", 20], 960, 1700, [39, 41, 32, 33]],
+[41, ["minus2", 0], 1018, 1700, [40, 42, 43]],
+[42, "xcor", 1072, 1700, [41, null]],
+[43, "box", 1096, 1742, [41, 44, null]],
+[44, ["string", "width"], 1151, 1742, [43, null]],
+[45, ["plus2", 0], 1018, 1866, [33, 46, 47]],
+[46, "ycor", 1072, 1866, [45, null]],
+[47, "box", 1072, 1908, [45, 48, null]],
+[48, ["string", "height"], 1127, 1908, [47, null]],
+[49, ["vspace", 0], 360, 1952, [363, 350]],
+[50, "hat", 600, 1500, [null, 51, 19]],
+[51, ["string", "upper right"], 658, 1512, [50, null]],
+[52, "hat", 960, 1480, [null, 53, 27]],
+[53, ["string", "lower left"], 1018, 1492, [52, null]],
+[54, "stack", 496, 696, [472, 55, null]],
+[55, ["string", "upper left"], 554, 696, [54, null]],
+[56, "stack", 496, 756, [472, 57, null]],
+[57, ["string", "lower right"], 554, 756, [56, null]],
+[58, "setpensize", 0, 226, [0, 59, 1]],
+[59, ["number", 1], 102, 226, [58, null]],
+[60, ["storein", 0], 300, 834, [90, 61, 110, 62]],
+[61, ["string", "x"], 368, 834, [60, null]],
+[62, ["storein", 0], 300, 918, [60, 63, 108, 206]],
+[63, ["string", "y"], 368, 918, [62, null]],
+[64, "penup", 336, 1336, [72, 66]],
+[65, "pendown", 336, 1462, [66, 417]],
+[66, ["setxy2", 0], 336, 1378, [64, 67, 69, 65]],
+[67, "box", 394, 1378, [66, 68, null]],
+[68, ["string", "x"], 449, 1378, [67, null]],
+[69, "box", 394, 1420, [66, 70, null]],
+[70, ["string", "y"], 449, 1420, [69, null]],
+[71, ["repeat", 302], 300, 1170, [210, 547, 553, 212]],
+[72, ["repeat", 126], 318, 1294, [553, 73, 64, 114]],
+[73, ["number", 5.0], 377, 1294, [72, null]],
+[74, ["storein", 0], 336, 1546, [417, 75, 78, null]],
+[75, ["string", "y"], 404, 1546, [74, null]],
+[76, "box", 458, 1588, [78, 77, null]],
+[77, ["string", "y"], 513, 1588, [76, null]],
+[78, ["minus2", 0], 404, 1588, [74, 76, 427]],
+[79, "box", 536, 1630, [427, 80, null]],
+[80, ["string", "height"], 591, 1630, [79, null]],
+[81, ["storein", 0], 318, 1690, [114, 82, 112, 83]],
+[82, ["string", "y"], 386, 1690, [81, null]],
+[83, ["storein", 0], 318, 1774, [81, 84, 89, null]],
+[84, ["string", "x"], 386, 1774, [83, null]],
+[85, "box", 440, 1816, [89, 86, null]],
+[86, ["string", "x"], 495, 1816, [85, null]],
+[87, "box", 494, 1858, [425, 88, null]],
+[88, ["string", "width"], 549, 1858, [87, null]],
+[89, ["plus2", 0], 386, 1816, [83, 85, 425]],
+[90, "hat", 300, 780, [null, 91, 60]],
+[91, ["string", "grid"], 358, 792, [90, null]],
+[92, "stack", 0, 728, [104, 93, 183]],
+[93, ["string", "grid"], 58, 728, [92, null]],
+[94, ["forever", 177], 860, 234, [95, 299, null]],
+[95, "hat", 860, 180, [null, 96, 94]],
+[96, ["string", "paint"], 918, 192, [95, null]],
+[97, "stack", 0, 812, [183, 98, null]],
+[98, ["string", "paint"], 58, 812, [97, null]],
+[99, "mousex", 1098, 1178, [120, null]],
+[100, "mousey", 1446, 1200, [128, null]],
+[101, "startfill", 896, 520, [134, 254]],
+[102, "stopfill", 896, 604, [254, null]],
+[103, ["ifelse", [0, 0]],
+478, 384, [474, 242, 116, 118, null]],
+[104, ["storein", 0], 0, 644, [546, 105, 533, 92]],
+[105, ["string", "top"], 68, 644, [104, null]],
+[106, ["storein", 0], 0, 478, [3, 107, 541, 546]],
+[107, ["string", "left"], 68, 478, [106, null]],
+[108, "box", 368, 960, [62, 109, null]],
+[109, ["string", "top"], 423, 960, [108, null]],
+[110, "box", 368, 876, [60, 111, null]],
+[111, ["string", "left"], 423, 876, [110, null]],
+[112, "box", 386, 1732, [81, 113, null]],
+[113, ["string", "top"], 441, 1732, [112, null]],
+[114, ["vspace", 0], 318, 1648, [72, 81]],
+[115, ["setxy2", 0], 1480, 282, [130, 220, 222, 131]],
+[116, "stack", 496, 450, [103, 117, null]],
+[117, ["string", "upper right"], 554, 450, [116, null]],
+[118, "stack", 496, 510, [103, 119, null]],
+[119, ["string", "lower left"], 554, 510, [118, null]],
+[120, ["minus2", 0], 1044, 1178, [122, 99, 435]],
+[121, "int", 936, 1178, [123, 122]],
+[122, ["division2", 20], 990, 1178, [121, 120, 307]],
+[123, ["product2", 40], 882, 1178, [124, 121, 303]],
+[124, ["plus2", 0], 828, 1136, [216, 433, 123]],
+[125, ["product2", 40], 1206, 1158, [129, 126, 313]],
+[126, "int", 1260, 1158, [125, 127]],
+[127, ["division2", 20], 1314, 1158, [126, 128, 311]],
+[128, ["minus2", 0], 1368, 1158, [127, 429, 100]],
+[129, ["minus2", 0], 1128, 1116, [218, 431, 125]],
+[130, "penup", 1480, 240, [470, 115]],
+[131, "pendown", 1480, 366, [115, 297]],
+[132, "hat", 1480, 60, [null, 133, 228]],
+[133, ["string", "xy"], 1538, 72, [132, null]],
+[134, "stack", 896, 478, [300, 135, 101]],
+[135, ["string", "xy"], 954, 478, [134, null]],
+[136, ["ifelse", [0, 84]],
+878, 310, [299, 138, 137, 300, null]],
+[137, "setcolor", 896, 376, [136, 149, null]],
+[138, ["less2", 0], 934, 276, [136, 151, 139, null]],
+[139, "box", 1004, 318, [138, 140, null]],
+[140, ["string", "left"], 1059, 318, [139, null]],
+[141, "mousey", 1213, 418, [144, null]],
+[142, "box", 1189, 376, [144, 143, null]],
+[143, ["string", "top"], 1244, 376, [142, null]],
+[144, ["minus2", 0], 1135, 376, [145, 142, 141]],
+[145, ["division2", 20], 1081, 376, [150, 144, 146]],
+[146, "box", 1159, 458, [145, 147, null]],
+[147, ["string", "height"], 1214, 458, [146, null]],
+[148, ["number", 10], 1027, 418, [149, null]],
+[149, ["product2", 0], 973, 376, [137, 150, 148]],
+[150, "int", 1027, 376, [149, 145]],
+[151, "mousex", 980, 276, [138, null]],
+[152, ["repeat", 188], 20, 960, [157, 153, 155, 174]],
+[153, ["number", 10], 79, 960, [152, null]],
+[154, ["setxy2", 20], 38, 1044, [155, 205, 161, 156]],
+[155, "penup", 38, 1002, [152, 154]],
+[156, "pendown", 38, 1168, [154, 179]],
+[157, ["storein", 0], 20, 876, [214, 158, 159, 152]],
+[158, ["string", "y"], 88, 876, [157, null]],
+[159, "box", 88, 918, [157, 160, null]],
+[160, ["string", "top"], 143, 918, [159, null]],
+[161, "box", 96, 1126, [154, 162, null]],
+[162, ["string", "y"], 151, 1126, [161, null]],
+[163, ["storein", 0], 38, 1336, [176, 164, 169, null]],
+[164, ["string", "y"], 106, 1336, [163, null]],
+[165, "box", 160, 1378, [169, 166, null]],
+[166, ["string", "y"], 215, 1378, [165, null]],
+[167, "box", 184, 1420, [169, 168, null]],
+[168, ["string", "height"], 239, 1420, [167, null]],
+[169, ["minus2", 0], 106, 1378, [163, 165, 167]],
+[170, "color", 169, 1252, [171, null]],
+[171, ["plus2", 0], 115, 1252, [173, 170, 172]],
+[172, ["number", 10], 169, 1294, [171, null]],
+[173, "setcolor", 38, 1252, [179, 171, 176]],
+[174, "setcolor", 20, 1438, [152, 175, null]],
+[175, ["number", 0], 97, 1438, [174, null]],
+[176, ["vspace", 0], 38, 1294, [173, 163]],
+[177, "hat", 1820, 1480, [null, 178, 193]],
+[178, ["string", "rect"], 1878, 1492, [177, null]],
+[179, "stack", 38, 1210, [156, 180, 173]],
+[180, ["string", "rect"], 96, 1210, [179, null]],
+[181, "hat", 20, 780, [null, 182, 214]],
+[182, ["string", "palette"], 78, 792, [181, null]],
+[183, "stack", 0, 770, [92, 184, 97]],
+[184, ["string", "palette"], 58, 770, [183, null]],
+[185, "startfill", 1820, 1576, [193, 195]],
+[186, "stopfill", 1820, 1846, [195, null]],
+[187, "forward", 1838, 1744, [190, 199, 188]],
+[188, "right", 1838, 1786, [187, 189, null]],
+[189, ["number", 90], 1896, 1786, [188, null]],
+[190, "right", 1838, 1702, [192, 191, 187]],
+[191, ["number", 90], 1896, 1702, [190, null]],
+[192, "forward", 1838, 1660, [195, 197, 190]],
+[193, "seth", 1820, 1534, [177, 194, 185]],
+[194, ["number", 90], 1878, 1534, [193, null]],
+[195, ["repeat", 63], 1820, 1618, [185, 196, 192, 186]],
+[196, ["number", 2], 1879, 1618, [195, null]],
+[197, "box", 1909, 1660, [192, 198, null]],
+[198, ["string", "width"], 1964, 1660, [197, null]],
+[199, "box", 1909, 1744, [187, 200, null]],
+[200, ["string", "height"], 1964, 1744, [199, null]],
+[201, "box", 150, 1044, [205, 202, null]],
+[202, ["string", "left"], 205, 1044, [201, null]],
+[203, "box", 228, 1086, [301, 204, null]],
+[204, ["string", "width"], 283, 1086, [203, null]],
+[205, ["minus2", 0], 96, 1044, [154, 201, 301]],
+[206, "fillscreen2", 300, 1002, [62, 209, 208, 207, 210]],
+[207, ["number", 0], 382, 1086, [206, null]],
+[208, ["number", 100], 382, 1044, [206, null]],
+[209, ["number", 0], 382, 1002, [206, null]],
+[210, "setgray", 300, 1128, [206, 211, 71]],
+[211, ["number", 0], 373, 1128, [210, null]],
+[212, "setgray", 300, 1876, [71, 213, null]],
+[213, ["number", 100], 373, 1876, [212, null]],
+[214, "setcolor", 20, 834, [181, 215, 157]],
+[215, ["number", 0], 97, 834, [214, null]],
+[216, ["storein", 0], 760, 1094, [226, 217, 124, null]],
+[217, ["string", "x"], 828, 1094, [216, null]],
+[218, ["storein", 0], 1060, 1074, [224, 219, 129, null]],
+[219, ["string", "y"], 1128, 1074, [218, null]],
+[220, "box", 1538, 282, [115, 221, null]],
+[221, ["string", "x"], 1593, 282, [220, null]],
+[222, "box", 1538, 324, [115, 223, null]],
+[223, ["string", "y"], 1593, 324, [222, null]],
+[224, "hat", 1060, 1020, [null, 225, 218]],
+[225, ["string", "calc x"], 1118, 1032, [224, null]],
+[226, "hat", 760, 1040, [null, 227, 216]],
+[227, ["string", "calc y"], 818, 1052, [226, null]],
+[228, "stack", 1480, 114, [132, 229, 230]],
+[229, ["string", "calc x"], 1538, 114, [228, null]],
+[230, "stack", 1480, 156, [228, 231, 470]],
+[231, ["string", "calc y"], 1538, 156, [230, null]],
+[232, ["minus2", 20], 2348, 742, [256, 237, 234]],
+[233, "mousey", 2402, 616, [241, null]],
+[234, "mousex", 2426, 824, [232, null]],
+[235, "box", 2456, 742, [237, 236, null]],
+[236, ["string", "x"], 2511, 742, [235, null]],
+[237, ["plus2", 0], 2402, 742, [232, 235, 305]],
+[238, ["plus2", 20], 2248, 156, [288, 262, 261]],
+[239, "box", 2426, 658, [241, 240, null]],
+[240, ["string", "y"], 2481, 658, [239, null]],
+[241, ["minus2", 0], 2348, 616, [258, 233, 239]],
+[242, ["less2", 0], 534, 350, [103, 292, 294, null]],
+[243, ["plus2", 20], 2248, 362, [290, 284, 285]],
+[244, "box", 2426, 950, [250, 245, null]],
+[245, ["string", "x"], 2481, 950, [244, null]],
+[246, "box", 2480, 1076, [287, 247, null]],
+[247, ["string", "y"], 2535, 1076, [246, null]],
+[248, "mousey", 2402, 1034, [251, null]],
+[249, "mousex", 2402, 908, [250, null]],
+[250, ["minus2", 0], 2348, 908, [271, 249, 244]],
+[251, ["minus2", 0], 2348, 1034, [273, 248, 287]],
+[252, "hat", 460, 180, [null, 253, 298]],
+[253, ["string", "action"], 518, 192, [252, null]],
+[254, "stack", 896, 562, [101, 255, 102]],
+[255, ["string", "action"], 954, 562, [254, null]],
+[256, ["storein", 0], 2280, 700, [260, 257, 232, 286]],
+[257, ["string", "dx0"], 2348, 700, [256, null]],
+[258, ["storein", 0], 2280, 574, [492, 259, 241, 260]],
+[259, ["string", "dy0"], 2348, 574, [258, null]],
+[260, ["vspace", 0], 2280, 658, [258, 256]],
+[261, ["product2", 0], 2302, 238, [238, 267, 269]],
+[262, ["product2", 0], 2302, 156, [238, 263, 265]],
+[263, "box", 2356, 156, [262, 264, null]],
+[264, ["string", "dx0"], 2411, 156, [263, null]],
+[265, "box", 2356, 198, [262, 266, null]],
+[266, ["string", "dx0"], 2411, 198, [265, null]],
+[267, "box", 2356, 238, [261, 268, null]],
+[268, ["string", "dy0"], 2411, 238, [267, null]],
+[269, "box", 2356, 280, [261, 270, null]],
+[270, ["string", "dy0"], 2411, 280, [269, null]],
+[271, ["storein", 0], 2280, 866, [286, 272, 250, 275]],
+[272, ["string", "dx1"], 2348, 866, [271, null]],
+[273, ["storein", 0], 2280, 992, [275, 274, 251, null]],
+[274, ["string", "dy1"], 2348, 992, [273, null]],
+[275, ["vspace", 0], 2280, 950, [271, 273]],
+[276, "box", 2356, 444, [285, 277, null]],
+[277, ["string", "dx1"], 2411, 444, [276, null]],
+[278, "box", 2356, 486, [285, 279, null]],
+[279, ["string", "dx1"], 2411, 486, [278, null]],
+[280, "box", 2356, 362, [284, 281, null]],
+[281, ["string", "dy1"], 2411, 362, [280, null]],
+[282, "box", 2356, 404, [284, 283, null]],
+[283, ["string", "dy1"], 2411, 404, [282, null]],
+[284, ["product2", 0], 2302, 362, [243, 280, 282]],
+[285, ["product2", 0], 2302, 444, [243, 276, 278]],
+[286, ["vspace", 20], 2280, 784, [256, 271]],
+[287, ["minus2", 0], 2426, 1076, [251, 246, 309]],
+[288, ["storein", 0], 2180, 114, [483, 289, 238, 296]],
+[289, ["string", "du"], 2248, 114, [288, null]],
+[290, ["storein", 0], 2180, 320, [296, 291, 243, null]],
+[291, ["string", "dl"], 2248, 320, [290, null]],
+[292, "box", 580, 350, [242, 293, null]],
+[293, ["string", "du"], 635, 350, [292, null]],
+[294, "box", 604, 392, [242, 295, null]],
+[295, ["string", "dl"], 659, 392, [294, null]],
+[296, ["vspace", 40], 2180, 198, [288, 290]],
+[297, ["vspace", 0], 1480, 408, [131, 485]],
+[298, ["vspace", 0], 460, 234, [252, 473]],
+[299, ["vspace", 0], 878, 268, [94, 136]],
+[300, ["vspace", 0], 896, 436, [136, 134]],
+[301, ["product2", 0], 174, 1086, [205, 203, 302]],
+[302, ["number", 2], 228, 1128, [301, null]],
+[303, "box", 936, 1300, [123, 304, null]],
+[304, ["string", "width"], 991, 1300, [303, null]],
+[305, "box", 2456, 784, [237, 306, null]],
+[306, ["string", "width"], 2511, 784, [305, null]],
+[307, "box", 1068, 1260, [122, 308, null]],
+[308, ["string", "width"], 1123, 1260, [307, null]],
+[309, "box", 2504, 1118, [287, 310, null]],
+[310, ["string", "height"], 2559, 1118, [309, null]],
+[311, "box", 1392, 1240, [127, 312, null]],
+[312, ["string", "height"], 1447, 1240, [311, null]],
+[313, "box", 1260, 1280, [125, 314, null]],
+[314, ["string", "height"], 1315, 1280, [313, null]],
+[315, "hat", 1300, 1500, [null, 316, 317]],
+[316, ["string", "upper left"], 1358, 1512, [315, null]],
+[317, ["setxy2", 20], 1300, 1554, [315, 318, 322, 330]],
+[318, ["plus2", 0], 1358, 1554, [317, 319, 321]],
+[319, "box", 1412, 1554, [318, 320, null]],
+[320, ["string", "width"], 1467, 1554, [319, null]],
+[321, "xcor", 1412, 1596, [318, null]],
+[322, "ycor", 1358, 1636, [317, null]],
+[323, ["setxy2", 0], 1300, 1844, [329, 324, 335, null]],
+[324, "xcor", 1358, 1844, [323, null]],
+[325, ["minus2", 0], 1358, 1760, [330, 326, 327]],
+[326, "ycor", 1412, 1760, [325, null]],
+[327, "box", 1436, 1802, [325, 328, null]],
+[328, ["string", "height"], 1491, 1802, [327, null]],
+[329, ["vspace", 0], 1300, 1802, [330, 323]],
+[330, ["setxy2", 20], 1300, 1678, [317, 331, 325, 329]],
+[331, ["minus2", 0], 1358, 1678, [330, 332, 333]],
+[332, "xcor", 1412, 1678, [331, null]],
+[333, "box", 1436, 1720, [331, 334, null]],
+[334, ["string", "width"], 1491, 1720, [333, null]],
+[335, ["plus2", 0], 1358, 1886, [323, 336, 337]],
+[336, "ycor", 1412, 1886, [335, null]],
+[337, "box", 1412, 1928, [335, 338, null]],
+[338, ["string", "height"], 1467, 1928, [337, null]],
+[339, "hat", 360, 1480, [null, 340, 361]],
+[340, ["string", "lower right"], 418, 1492, [339, null]],
+[341, ["setxy2", 20], 360, 1702, [362, 342, 378, 349]],
+[342, ["plus2", 0], 418, 1702, [341, 343, 345]],
+[343, "box", 472, 1702, [342, 344, null]],
+[344, ["string", "width"], 527, 1702, [343, null]],
+[345, "xcor", 472, 1744, [342, null]],
+[346, "ycor", 472, 1784, [378, null]],
+[347, "box", 472, 1826, [378, 348, null]],
+[348, ["string", "height"], 527, 1826, [347, null]],
+[349, ["vspace", 0], 360, 1826, [341, 363]],
+[350, ["setxy2", 20], 360, 1994, [49, 351, 355, 369]],
+[351, ["minus2", 0], 418, 1994, [350, 352, 353]],
+[352, "xcor", 472, 1994, [351, null]],
+[353, "box", 496, 2036, [351, 354, null]],
+[354, ["string", "width"], 551, 2036, [353, null]],
+[355, "ycor", 418, 2076, [350, null]],
+[356, ["setxy2", 0], 360, 1576, [361, 357, 377, 362]],
+[357, "xcor", 418, 1576, [356, null]],
+[358, "ycor", 472, 1618, [377, null]],
+[359, "box", 496, 1660, [377, 360, null]],
+[360, ["string", "height"], 551, 1660, [359, null]],
+[361, "penup", 360, 1534, [339, 356]],
+[362, "pendown", 360, 1660, [356, 341]],
+[363, ["setxy2", 0], 360, 1868, [349, 364, 368, 49]],
+[364, "xcor", 418, 1868, [363, null]],
+[365, "ycor", 472, 1910, [368, null]],
+[366, "box", 496, 1952, [368, 367, null]],
+[367, ["string", "height"], 551, 1952, [366, null]],
+[368, ["minus2", 0], 418, 1910, [363, 365, 366]],
+[369, "penup", 360, 2118, [350, 370]],
+[370, ["setxy2", 0], 360, 2160, [369, 371, 372, 376]],
+[371, "xcor", 418, 2160, [370, null]],
+[372, ["plus2", 0], 418, 2202, [370, 373, 374]],
+[373, "ycor", 472, 2202, [372, null]],
+[374, "box", 472, 2244, [372, 375, null]],
+[375, ["string", "height"], 527, 2244, [374, null]],
+[376, "pendown", 360, 2244, [370, null]],
+[377, ["minus2", 0], 418, 1618, [356, 358, 359]],
+[378, ["plus2", 0], 418, 1784, [341, 346, 347]],
+[379, "stack", 80, 1576, [381, 380, 389]],
+[380, ["string", "lower left"], 138, 1576, [379, null]],
+[381, "stack", 80, 1534, [415, 382, 379]],
+[382, ["string", "upper right"], 138, 1534, [381, null]],
+[383, "stack", 80, 1786, [385, 384, 394]],
+[384, ["string", "lower right"], 138, 1786, [383, null]],
+[385, "stack", 80, 1744, [393, 386, 383]],
+[386, ["string", "upper left"], 138, 1744, [385, null]],
+[387, "box", 216, 1702, [392, 388, null]],
+[388, ["string", "height"], 271, 1702, [387, null]],
+[389, ["setxy2", 0], 80, 1618, [379, 390, 392, 393]],
+[390, "xcor", 138, 1618, [389, null]],
+[391, "ycor", 192, 1660, [392, null]],
+[392, ["minus2", 0], 138, 1660, [389, 391, 387]],
+[393, ["vspace", 0], 80, 1702, [389, 385]],
+[394, ["setxy2", 20], 80, 1828, [383, 397, 395, 400]],
+[395, "ycor", 138, 1910, [394, null]],
+[396, "xcor", 192, 1828, [397, null]],
+[397, ["plus2", 0], 138, 1828, [394, 396, 398]],
+[398, "box", 192, 1870, [397, 399, null]],
+[399, ["string", "width"], 247, 1870, [398, null]],
+[400, "stack", 80, 1952, [394, 401, 402]],
+[401, ["string", "lower left"], 138, 1952, [400, null]],
+[402, "stack", 80, 1994, [400, 403, 408]],
+[403, ["string", "upper right"], 138, 1994, [402, null]],
+[404, "stack", 80, 2162, [412, 405, 406]],
+[405, ["string", "upper left"], 138, 2162, [404, null]],
+[406, "stack", 80, 2204, [404, 407, 419]],
+[407, ["string", "lower right"], 138, 2204, [406, null]],
+[408, ["setxy2", 0], 80, 2036, [402, 409, 411, 412]],
+[409, "xcor", 138, 2036, [408, null]],
+[410, "ycor", 192, 2078, [411, null]],
+[411, ["plus2", 0], 138, 2078, [408, 410, 413]],
+[412, ["vspace", 0], 80, 2120, [408, 404]],
+[413, "box", 192, 2120, [411, 414, null]],
+[414, ["string", "height"], 247, 2120, [413, null]],
+[415, "hat", 80, 1480, [null, 416, 381]],
+[416, ["string", "4 squares"], 138, 1492, [415, null]],
+[417, "stack", 336, 1504, [65, 418, 74]],
+[418, ["string", "4 squares"], 394, 1504, [417, null]],
+[419, ["setxy2", 20], 80, 2246, [406, 422, 421, null]],
+[420, "xcor", 192, 2246, [422, null]],
+[421, "ycor", 138, 2328, [419, null]],
+[422, ["minus2", 0], 138, 2246, [419, 420, 423]],
+[423, "box", 216, 2288, [422, 424, null]],
+[424, ["string", "width"], 271, 2288, [423, null]],
+[425, ["product2", 0], 440, 1858, [89, 87, 426]],
+[426, ["number", 2], 494, 1900, [425, null]],
+[427, ["product2", 0], 482, 1630, [78, 79, 428]],
+[428, ["number", 2], 536, 1672, [427, null]],
+[429, "box", 1422, 1158, [128, 430, null]],
+[430, ["string", "top"], 1477, 1158, [429, null]],
+[431, "box", 1182, 1116, [129, 432, null]],
+[432, ["string", "top"], 1237, 1116, [431, null]],
+[433, "box", 882, 1136, [124, 434, null]],
+[434, ["string", "left"], 937, 1136, [433, null]],
+[435, "box", 1122, 1220, [120, 436, null]],
+[436, ["string", "left"], 1177, 1220, [435, null]],
+[437, "box", 1430, 662, [448, 438, null]],
+[438, ["string", "x"], 1485, 662, [437, null]],
+[439, "box", 1454, 866, [447, 440, null]],
+[440, ["string", "y"], 1509, 866, [439, null]],
+[441, "box", 1400, 744, [445, 442, null]],
+[442, ["string", "width"], 1455, 744, [441, null]],
+[443, "box", 1400, 906, [446, 444, null]],
+[444, ["string", "height"], 1455, 906, [443, null]],
+[445, ["division2", 20], 1322, 662, [453, 448, 441]],
+[446, ["division2", 20], 1322, 824, [455, 447, 443]],
+[447, ["minus2", 0], 1376, 824, [446, 449, 439]],
+[448, ["minus2", 0], 1376, 662, [445, 437, 451]],
+[449, "box", 1430, 824, [447, 450, null]],
+[450, ["string", "top"], 1485, 824, [449, null]],
+[451, "box", 1454, 704, [448, 452, null]],
+[452, ["string", "left"], 1509, 704, [451, null]],
+[453, ["remainder2", 40], 1262, 662, [464, 445, 454]],
+[454, ["number", 2], 1346, 784, [453, null]],
+[455, ["remainder2", 40], 1262, 824, [464, 446, 456]],
+[456, ["number", 2], 1346, 946, [455, null]],
+[457, ["storein", 0], 1178, 882, [459, 458, 460, null]],
+[458, ["string", "phase"], 1246, 882, [457, null]],
+[459, ["ifelse", [21, 21]],
+1160, 816, [465, 464, 457, 461, null]],
+[460, ["number", 0], 1246, 924, [457, null]],
+[461, ["storein", 0], 1178, 984, [459, 462, 463, null]],
+[462, ["string", "phase"], 1246, 984, [461, null]],
+[463, ["number", 1], 1246, 1026, [461, null]],
+[464, ["equal2", 60], 1216, 662, [459, 453, 455, null]],
+[465, ["vspace", 60], 1160, 654, [466, 459]],
+[466, "hat", 1160, 600, [null, 467, 465]],
+[467, ["string", "calc phase"], 1218, 612, [466, null]],
+[468, "box", 562, 242, [476, 469, null]],
+[469, ["string", "phase"], 617, 242, [468, null]],
+[470, "stack", 1480, 198, [230, 471, 130]],
+[471, ["string", "calc phase"], 1538, 198, [470, null]],
+[472, ["ifelse", [0, 0]],
+478, 630, [475, 478, 54, 56, null]],
+[473, ["ifelse", [93, 93]],
+460, 276, [298, 476, 474, 475, null]],
+[474, ["vspace", 0], 478, 342, [473, 103]],
+[475, ["vspace", 0], 478, 588, [473, 472]],
+[476, ["equal2", 0], 516, 242, [473, 468, 477, null]],
+[477, ["number", 0], 562, 284, [476, null]],
+[478, ["less2", 0], 534, 596, [472, 479, 481, null]],
+[479, "box", 580, 596, [478, 480, null]],
+[480, ["string", "du"], 635, 596, [479, null]],
+[481, "box", 604, 638, [478, 482, null]],
+[482, ["string", "dl"], 659, 638, [481, null]],
+[483, "hat", 2180, 60, [null, 484, 288]],
+[484, ["string", "calc distances"], 2238, 72, [483, null]],
+[485, ["ifelse", [0, 0]],
+1480, 450, [297, 488, 496, 498, 486]],
+[486, "stack", 1480, 636, [485, 487, null]],
+[487, ["string", "calc distances"], 1538, 636, [486, null]],
+[488, ["equal2", 0], 1536, 416, [485, 490, 489, null]],
+[489, ["number", 0], 1582, 458, [488, null]],
+[490, "box", 1582, 416, [488, 491, null]],
+[491, ["string", "phase"], 1637, 416, [490, null]],
+[492, "hat", 2280, 520, [null, 493, 258]],
+[493, ["string", "phase 0"], 2338, 532, [492, null]],
+[494, "hat", 1800, 60, [null, 495, 500]],
+[495, ["string", "phase 1"], 1858, 72, [494, null]],
+[496, "stack", 1498, 516, [485, 497, null]],
+[497, ["string", "phase 0"], 1556, 516, [496, null]],
+[498, "stack", 1498, 576, [485, 499, null]],
+[499, ["string", "phase 1"], 1556, 576, [498, null]],
+[500, ["storein", 0], 1800, 114, [494, 501, 502, 506]],
+[501, ["string", "dy0"], 1868, 114, [500, null]],
+[502, ["minus2", 0], 1868, 156, [500, 503, 504]],
+[503, "mousey", 1922, 156, [502, null]],
+[504, "box", 1946, 198, [502, 505, null]],
+[505, ["string", "y"], 2001, 198, [504, null]],
+[506, ["vspace", 0], 1800, 198, [500, 507]],
+[507, ["storein", 0], 1800, 240, [506, 508, 509, 516]],
+[508, ["string", "dx0"], 1868, 240, [507, null]],
+[509, ["minus2", 0], 1868, 282, [507, 511, 515]],
+[510, ["plus2", 0], 1946, 490, [519, 521, 513]],
+[511, "box", 1922, 282, [509, 512, null]],
+[512, ["string", "x"], 1977, 282, [511, null]],
+[513, "box", 2000, 532, [510, 514, null]],
+[514, ["string", "width"], 2055, 532, [513, null]],
+[515, "mousex", 1946, 324, [509, null]],
+[516, ["vspace", 20], 1800, 324, [507, 517]],
+[517, ["storein", 0], 1800, 406, [516, 518, 519, 523]],
+[518, ["string", "dx1"], 1868, 406, [517, null]],
+[519, ["minus2", 0], 1868, 448, [517, 520, 510]],
+[520, "mousex", 1922, 448, [519, null]],
+[521, "box", 2000, 490, [510, 522, null]],
+[522, ["string", "x"], 2055, 490, [521, null]],
+[523, ["vspace", 0], 1800, 490, [517, 524]],
+[524, ["storein", 0], 1800, 532, [523, 525, 526, null]],
+[525, ["string", "dy1"], 1868, 532, [524, null]],
+[526, ["minus2", 0], 1868, 574, [524, 527, 528]],
+[527, "mousey", 1922, 574, [526, null]],
+[528, ["minus2", 0], 1946, 616, [526, 529, 531]],
+[529, "box", 2000, 616, [528, 530, null]],
+[530, ["string", "y"], 2055, 616, [529, null]],
+[531, "box", 2024, 658, [528, 532, null]],
+[532, ["string", "height"], 2079, 658, [531, null]],
+[533, "toppos", 68, 686, [104, null]],
+[534, "leftpos", 122, 520, [541, null]],
+[535, "toppos", 122, 310, [536, null]],
+[536, ["division2", 0], 68, 310, [1, 535, 537]],
+[537, ["number", 5.0], 146, 352, [536, null]],
+[538, "box", 68, 436, [3, 539, null]],
+[539, ["string", "width"], 123, 436, [538, null]],
+[540, ["vspace", 0], 0, 352, [1, 3]],
+[541, ["plus2", 0], 68, 520, [106, 534, 544]],
+[542, "box", 176, 562, [544, 543, null]],
+[543, ["string", "width"], 231, 562, [542, null]],
+[544, ["product2", 0], 122, 562, [541, 542, 545]],
+[545, ["number", 2.0], 176, 604, [544, null]],
+[546, ["vspace", 20], 0, 562, [106, 104]],
+[547, ["division2", 0], 359, 1170, [71, 548, 549]],
+[548, "width", 413, 1170, [547, null]],
+[549, ["product2", 0], 437, 1212, [547, 551, 550]],
+[550, ["number", 2.0], 491, 1254, [549, null]],
+[551, "box", 491, 1212, [549, 552, null]],
+[552, ["string", "width"], 546, 1212, [551, null]],
+[553, ["vspace", 20], 318, 1212, [71, 72]]]
--
cgit v0.9.1