From 8aaec7024ac8d0e5a25fac174b32a6d851f19a5c Mon Sep 17 00:00:00 2001
From: Walter Bender <walter.bender@gmail.com>
Date: Wed, 23 Jan 2013 18:50:44 +0000
Subject: added new color palette; fixed some mouse tracking problems

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

diff --git a/samples/game-trianglepaint.ta b/samples/game-trianglepaint.ta
index a6cd85a..7b7e62a 100644
--- a/samples/game-trianglepaint.ta
+++ b/samples/game-trianglepaint.ta
@@ -1,8 +1,8 @@
-[[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, ["storein", 0], 0, 394, [540, 4, 538, 106]],
-[4, ["string", "height"], 68, 394, [3, null]],
+[[0, ["start", 2.0], 22, 181, [null, 615]],
+[1, ["storein", 0], 22, 731, [58, 2, 512, 516]],
+[2, ["string", "width"], 90, 731, [1, null]],
+[3, ["storein", 0], 22, 857, [516, 4, 514, 104]],
+[4, ["string", "height"], 90, 857, [3, null]],
 [5, "box", 736, 1846, [13, 6, null]],
 [6, ["string", "width"], 791, 1846, [5, null]],
 [7, "box", 736, 1762, [14, 8, null]],
@@ -47,514 +47,584 @@
 [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]],
+[49, ["vspace", 0], 360, 1952, [343, 330]],
 [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]],
+[54, "stack", 496, 696, [452, 55, null]],
 [55, ["string", "upper left"], 554, 696, [54, null]],
-[56, "stack", 496, 756, [472, 57, null]],
+[56, "stack", 496, 756, [452, 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]],
+[58, "setpensize", 22, 689, [561, 59, 1]],
+[59, ["number", 1], 124, 689, [58, null]],
+[60, ["storein", 0], 300, 834, [90, 61, 108, 62]],
 [61, ["string", "x"], 368, 834, [60, null]],
-[62, ["storein", 0], 300, 918, [60, 63, 108, 206]],
+[62, ["storein", 0], 300, 918, [60, 63, 106, 193]],
 [63, ["string", "y"], 368, 918, [62, null]],
 [64, "penup", 336, 1336, [72, 66]],
-[65, "pendown", 336, 1462, [66, 417]],
+[65, "pendown", 336, 1462, [66, 397]],
 [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]],
+[71, ["repeat", 302], 300, 1170, [197, 523, 529, 199]],
+[72, ["repeat", 126], 318, 1294, [529, 73, 64, 112]],
+[73, ["number", 5], 377, 1294, [72, null]],
+[74, ["storein", 0], 336, 1546, [397, 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]],
+[78, ["minus2", 0], 404, 1588, [74, 76, 407]],
+[79, "box", 536, 1630, [407, 80, null]],
 [80, ["string", "height"], 591, 1630, [79, null]],
-[81, ["storein", 0], 318, 1690, [114, 82, 112, 83]],
+[81, ["storein", 0], 318, 1690, [112, 82, 110, 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]],
+[87, "box", 494, 1858, [405, 88, null]],
 [88, ["string", "width"], 549, 1858, [87, null]],
-[89, ["plus2", 0], 386, 1816, [83, 85, 425]],
+[89, ["plus2", 0], 386, 1816, [83, 85, 405]],
 [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]],
+[92, "stack", 22, 1191, [102, 93, 170]],
+[93, ["string", "grid"], 80, 1191, [92, null]],
+[94, ["forever", 282], 860, 276, [620, 532, null]],
+[95, "hat", 860, 180, [null, 96, 620]],
 [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]]]
+[97, "stack", 22, 1275, [170, 98, null]],
+[98, ["string", "paint"], 80, 1275, [97, null]],
+[99, "startfill", 914, 754, [132, 235]],
+[100, "stopfill", 914, 838, [235, null]],
+[101, ["ifelse", [0, 0]],
+478, 384, [454, 225, 114, 116, null]],
+[102, ["storein", 0], 22, 1107, [522, 103, 509, 92]],
+[103, ["string", "top"], 90, 1107, [102, null]],
+[104, ["storein", 0], 22, 941, [3, 105, 517, 522]],
+[105, ["string", "left"], 90, 941, [104, null]],
+[106, "box", 368, 960, [62, 107, null]],
+[107, ["string", "top"], 423, 960, [106, null]],
+[108, "box", 368, 876, [60, 109, null]],
+[109, ["string", "left"], 423, 876, [108, null]],
+[110, "box", 386, 1732, [81, 111, null]],
+[111, ["string", "top"], 441, 1732, [110, null]],
+[112, ["vspace", 0], 318, 1648, [72, 81]],
+[113, ["setxy2", 0], 1480, 282, [128, 205, 207, 129]],
+[114, "stack", 496, 450, [101, 115, null]],
+[115, ["string", "upper right"], 554, 450, [114, null]],
+[116, "stack", 496, 510, [101, 117, null]],
+[117, ["string", "lower left"], 554, 510, [116, null]],
+[118, ["minus2", 0], 875, 1009, [120, 555, 415]],
+[119, "int", 767, 1009, [121, 120]],
+[120, ["division2", 20], 821, 1009, [119, 118, 287]],
+[121, ["product2", 40], 713, 1009, [122, 119, 283]],
+[122, ["plus2", 0], 659, 967, [201, 413, 121]],
+[123, ["product2", 40], 775, 1485, [127, 124, 293]],
+[124, "int", 829, 1485, [123, 125]],
+[125, ["division2", 20], 883, 1485, [124, 126, 291]],
+[126, ["minus2", 0], 937, 1485, [125, 409, 559]],
+[127, ["minus2", 0], 697, 1443, [203, 411, 123]],
+[128, "penup", 1480, 240, [450, 113]],
+[129, "pendown", 1480, 366, [113, 278]],
+[130, "hat", 1480, 60, [null, 131, 213]],
+[131, ["string", "xy"], 1538, 72, [130, null]],
+[132, "stack", 914, 712, [134, 133, 99]],
+[133, ["string", "xy"], 972, 712, [132, null]],
+[134, ["ifelse", [0, 63]],
+896, 586, [280, 136, 618, 132, null]],
+[135, "setcolor", 1178, 938, [611, 607, null]],
+[136, ["less2", 0], 952, 552, [134, 537, 137, null]],
+[137, "box", 1022, 594, [136, 138, null]],
+[138, ["string", "left"], 1077, 594, [137, null]],
+[139, "box", 1340, 880, [613, 140, null]],
+[140, ["string", "height"], 1395, 880, [139, null]],
+[141, "mousex", 946, 352, [532, null]],
+[142, ["repeat", 167], 272, 512, [147, 143, 160, 163]],
+[143, ["number", 10], 331, 512, [142, null]],
+[144, ["setxy2", 20], 290, 638, [145, 192, 151, 146]],
+[145, "penup", 290, 596, [160, 144]],
+[146, "pendown", 290, 762, [144, 166]],
+[147, ["storein", 0], 272, 428, [168, 148, 149, 142]],
+[148, ["string", "y"], 340, 428, [147, null]],
+[149, "box", 340, 470, [147, 150, null]],
+[150, ["string", "top"], 395, 470, [149, null]],
+[151, "box", 348, 720, [144, 152, null]],
+[152, ["string", "y"], 403, 720, [151, null]],
+[153, ["storein", 0], 290, 846, [166, 154, 159, null]],
+[154, ["string", "y"], 358, 846, [153, null]],
+[155, "box", 412, 888, [159, 156, null]],
+[156, ["string", "y"], 467, 888, [155, null]],
+[157, "box", 436, 930, [159, 158, null]],
+[158, ["string", "height"], 491, 930, [157, null]],
+[159, ["minus2", 0], 358, 888, [153, 155, 157]],
+[160, "setcolor", 290, 554, [142, 580, 145]],
+[161, "setcolor", 272, 990, [163, 162, null]],
+[162, ["number", 0], 349, 990, [161, null]],
+[163, ["vspace", 0], 272, 948, [142, 161]],
+[164, "hat", 1553, 1143, [null, 165, 180]],
+[165, ["string", "rect"], 1611, 1155, [164, null]],
+[166, "stack", 290, 804, [146, 167, 153]],
+[167, ["string", "rect"], 348, 804, [166, null]],
+[168, "hat", 272, 374, [null, 169, 147]],
+[169, ["string", "palette"], 330, 386, [168, null]],
+[170, "stack", 22, 1233, [92, 171, 97]],
+[171, ["string", "palette"], 80, 1233, [170, null]],
+[172, "startfill", 1553, 1239, [180, 182]],
+[173, "stopfill", 1553, 1509, [182, null]],
+[174, "forward", 1571, 1407, [177, 186, 175]],
+[175, "right", 1571, 1449, [174, 176, null]],
+[176, ["number", 90], 1629, 1449, [175, null]],
+[177, "right", 1571, 1365, [179, 178, 174]],
+[178, ["number", 90], 1629, 1365, [177, null]],
+[179, "forward", 1571, 1323, [182, 184, 177]],
+[180, "seth", 1553, 1197, [164, 181, 172]],
+[181, ["number", 90], 1611, 1197, [180, null]],
+[182, ["repeat", 63], 1553, 1281, [172, 183, 179, 173]],
+[183, ["number", 2], 1612, 1281, [182, null]],
+[184, "box", 1642, 1323, [179, 185, null]],
+[185, ["string", "width"], 1697, 1323, [184, null]],
+[186, "box", 1642, 1407, [174, 187, null]],
+[187, ["string", "height"], 1697, 1407, [186, null]],
+[188, "box", 402, 638, [192, 189, null]],
+[189, ["string", "left"], 457, 638, [188, null]],
+[190, "box", 480, 680, [281, 191, null]],
+[191, ["string", "width"], 535, 680, [190, null]],
+[192, ["minus2", 0], 348, 638, [144, 188, 281]],
+[193, "fillscreen2", 300, 1002, [62, 196, 195, 194, 197]],
+[194, ["number", 0], 382, 1086, [193, null]],
+[195, ["number", 100], 382, 1044, [193, null]],
+[196, ["number", 0], 382, 1002, [193, null]],
+[197, "setgray", 300, 1128, [193, 198, 71]],
+[198, ["number", 0], 373, 1128, [197, null]],
+[199, "setgray", 300, 1876, [71, 200, null]],
+[200, ["number", 100], 373, 1876, [199, null]],
+[201, ["storein", 0], 591, 925, [209, 202, 122, null]],
+[202, ["string", "x"], 659, 925, [201, null]],
+[203, ["storein", 0], 629, 1401, [211, 204, 127, null]],
+[204, ["string", "y"], 697, 1401, [203, null]],
+[205, "box", 1538, 282, [113, 206, null]],
+[206, ["string", "x"], 1593, 282, [205, null]],
+[207, "box", 1538, 324, [113, 208, null]],
+[208, ["string", "y"], 1593, 324, [207, null]],
+[209, "hat", 591, 871, [null, 210, 201]],
+[210, ["string", "calc x"], 649, 883, [209, null]],
+[211, "hat", 629, 1347, [null, 212, 203]],
+[212, ["string", "calc y"], 687, 1359, [211, null]],
+[213, "stack", 1480, 114, [130, 214, 215]],
+[214, ["string", "calc x"], 1538, 114, [213, null]],
+[215, "stack", 1480, 156, [213, 216, 450]],
+[216, ["string", "calc y"], 1538, 156, [215, null]],
+[217, ["minus2", 20], 2045, 280, [237, 220, 549]],
+[218, "box", 2153, 280, [220, 219, null]],
+[219, ["string", "x"], 2208, 280, [218, null]],
+[220, ["plus2", 0], 2099, 280, [217, 218, 285]],
+[221, ["plus2", 20], 1795, 794, [269, 243, 242]],
+[222, "box", 2123, 196, [224, 223, null]],
+[223, ["string", "y"], 2178, 196, [222, null]],
+[224, ["minus2", 0], 2045, 154, [239, 547, 222]],
+[225, ["less2", 0], 534, 350, [101, 273, 275, null]],
+[226, ["plus2", 20], 1795, 1000, [271, 265, 266]],
+[227, "box", 2123, 488, [231, 228, null]],
+[228, ["string", "x"], 2178, 488, [227, null]],
+[229, "box", 2177, 614, [268, 230, null]],
+[230, ["string", "y"], 2232, 614, [229, null]],
+[231, ["minus2", 0], 2045, 446, [252, 551, 227]],
+[232, ["minus2", 0], 2045, 572, [254, 553, 268]],
+[233, "hat", 460, 180, [null, 234, 279]],
+[234, ["string", "action"], 518, 192, [233, null]],
+[235, "stack", 914, 796, [99, 236, 100]],
+[236, ["string", "action"], 972, 796, [235, null]],
+[237, ["storein", 0], 1977, 238, [241, 238, 217, 267]],
+[238, ["string", "dx0"], 2045, 238, [237, null]],
+[239, ["storein", 0], 1977, 112, [472, 240, 224, 241]],
+[240, ["string", "dy0"], 2045, 112, [239, null]],
+[241, ["vspace", 0], 1977, 196, [239, 237]],
+[242, ["product2", 0], 1849, 876, [221, 248, 250]],
+[243, ["product2", 0], 1849, 794, [221, 244, 246]],
+[244, "box", 1903, 794, [243, 245, null]],
+[245, ["string", "dx0"], 1958, 794, [244, null]],
+[246, "box", 1903, 836, [243, 247, null]],
+[247, ["string", "dx0"], 1958, 836, [246, null]],
+[248, "box", 1903, 876, [242, 249, null]],
+[249, ["string", "dy0"], 1958, 876, [248, null]],
+[250, "box", 1903, 918, [242, 251, null]],
+[251, ["string", "dy0"], 1958, 918, [250, null]],
+[252, ["storein", 0], 1977, 404, [267, 253, 231, 256]],
+[253, ["string", "dx1"], 2045, 404, [252, null]],
+[254, ["storein", 0], 1977, 530, [256, 255, 232, null]],
+[255, ["string", "dy1"], 2045, 530, [254, null]],
+[256, ["vspace", 0], 1977, 488, [252, 254]],
+[257, "box", 1903, 1082, [266, 258, null]],
+[258, ["string", "dx1"], 1958, 1082, [257, null]],
+[259, "box", 1903, 1124, [266, 260, null]],
+[260, ["string", "dx1"], 1958, 1124, [259, null]],
+[261, "box", 1903, 1000, [265, 262, null]],
+[262, ["string", "dy1"], 1958, 1000, [261, null]],
+[263, "box", 1903, 1042, [265, 264, null]],
+[264, ["string", "dy1"], 1958, 1042, [263, null]],
+[265, ["product2", 0], 1849, 1000, [226, 261, 263]],
+[266, ["product2", 0], 1849, 1082, [226, 257, 259]],
+[267, ["vspace", 20], 1977, 322, [237, 252]],
+[268, ["minus2", 0], 2123, 614, [232, 229, 289]],
+[269, ["storein", 0], 1727, 752, [463, 270, 221, 277]],
+[270, ["string", "du"], 1795, 752, [269, null]],
+[271, ["storein", 0], 1727, 958, [277, 272, 226, null]],
+[272, ["string", "dl"], 1795, 958, [271, null]],
+[273, "box", 580, 350, [225, 274, null]],
+[274, ["string", "du"], 635, 350, [273, null]],
+[275, "box", 604, 392, [225, 276, null]],
+[276, ["string", "dl"], 659, 392, [275, null]],
+[277, ["vspace", 40], 1727, 836, [269, 271]],
+[278, ["vspace", 0], 1480, 408, [129, 465]],
+[279, ["vspace", 0], 460, 234, [233, 453]],
+[280, ["vspace", 0], 896, 544, [530, 134]],
+[281, ["product2", 0], 426, 680, [192, 190, 282]],
+[282, ["number", 2], 480, 722, [281, null]],
+[283, "box", 767, 1131, [121, 284, null]],
+[284, ["string", "width"], 822, 1131, [283, null]],
+[285, "box", 2153, 322, [220, 286, null]],
+[286, ["string", "width"], 2208, 322, [285, null]],
+[287, "box", 899, 1091, [120, 288, null]],
+[288, ["string", "width"], 954, 1091, [287, null]],
+[289, "box", 2201, 656, [268, 290, null]],
+[290, ["string", "height"], 2256, 656, [289, null]],
+[291, "box", 961, 1567, [125, 292, null]],
+[292, ["string", "height"], 1016, 1567, [291, null]],
+[293, "box", 829, 1607, [123, 294, null]],
+[294, ["string", "height"], 884, 1607, [293, null]],
+[295, "hat", 1300, 1500, [null, 296, 297]],
+[296, ["string", "upper left"], 1358, 1512, [295, null]],
+[297, ["setxy2", 20], 1300, 1554, [295, 298, 302, 310]],
+[298, ["plus2", 0], 1358, 1554, [297, 299, 301]],
+[299, "box", 1412, 1554, [298, 300, null]],
+[300, ["string", "width"], 1467, 1554, [299, null]],
+[301, "xcor", 1412, 1596, [298, null]],
+[302, "ycor", 1358, 1636, [297, null]],
+[303, ["setxy2", 0], 1300, 1844, [309, 304, 315, null]],
+[304, "xcor", 1358, 1844, [303, null]],
+[305, ["minus2", 0], 1358, 1760, [310, 306, 307]],
+[306, "ycor", 1412, 1760, [305, null]],
+[307, "box", 1436, 1802, [305, 308, null]],
+[308, ["string", "height"], 1491, 1802, [307, null]],
+[309, ["vspace", 0], 1300, 1802, [310, 303]],
+[310, ["setxy2", 20], 1300, 1678, [297, 311, 305, 309]],
+[311, ["minus2", 0], 1358, 1678, [310, 312, 313]],
+[312, "xcor", 1412, 1678, [311, null]],
+[313, "box", 1436, 1720, [311, 314, null]],
+[314, ["string", "width"], 1491, 1720, [313, null]],
+[315, ["plus2", 0], 1358, 1886, [303, 316, 317]],
+[316, "ycor", 1412, 1886, [315, null]],
+[317, "box", 1412, 1928, [315, 318, null]],
+[318, ["string", "height"], 1467, 1928, [317, null]],
+[319, "hat", 360, 1480, [null, 320, 341]],
+[320, ["string", "lower right"], 418, 1492, [319, null]],
+[321, ["setxy2", 20], 360, 1702, [342, 322, 358, 329]],
+[322, ["plus2", 0], 418, 1702, [321, 323, 325]],
+[323, "box", 472, 1702, [322, 324, null]],
+[324, ["string", "width"], 527, 1702, [323, null]],
+[325, "xcor", 472, 1744, [322, null]],
+[326, "ycor", 472, 1784, [358, null]],
+[327, "box", 472, 1826, [358, 328, null]],
+[328, ["string", "height"], 527, 1826, [327, null]],
+[329, ["vspace", 0], 360, 1826, [321, 343]],
+[330, ["setxy2", 20], 360, 1994, [49, 331, 335, 349]],
+[331, ["minus2", 0], 418, 1994, [330, 332, 333]],
+[332, "xcor", 472, 1994, [331, null]],
+[333, "box", 496, 2036, [331, 334, null]],
+[334, ["string", "width"], 551, 2036, [333, null]],
+[335, "ycor", 418, 2076, [330, null]],
+[336, ["setxy2", 0], 360, 1576, [341, 337, 357, 342]],
+[337, "xcor", 418, 1576, [336, null]],
+[338, "ycor", 472, 1618, [357, null]],
+[339, "box", 496, 1660, [357, 340, null]],
+[340, ["string", "height"], 551, 1660, [339, null]],
+[341, "penup", 360, 1534, [319, 336]],
+[342, "pendown", 360, 1660, [336, 321]],
+[343, ["setxy2", 0], 360, 1868, [329, 344, 348, 49]],
+[344, "xcor", 418, 1868, [343, null]],
+[345, "ycor", 472, 1910, [348, null]],
+[346, "box", 496, 1952, [348, 347, null]],
+[347, ["string", "height"], 551, 1952, [346, null]],
+[348, ["minus2", 0], 418, 1910, [343, 345, 346]],
+[349, "penup", 360, 2118, [330, 350]],
+[350, ["setxy2", 0], 360, 2160, [349, 351, 352, 356]],
+[351, "xcor", 418, 2160, [350, null]],
+[352, ["plus2", 0], 418, 2202, [350, 353, 354]],
+[353, "ycor", 472, 2202, [352, null]],
+[354, "box", 472, 2244, [352, 355, null]],
+[355, ["string", "height"], 527, 2244, [354, null]],
+[356, "pendown", 360, 2244, [350, null]],
+[357, ["minus2", 0], 418, 1618, [336, 338, 339]],
+[358, ["plus2", 0], 418, 1784, [321, 326, 327]],
+[359, "stack", 80, 1576, [361, 360, 369]],
+[360, ["string", "lower left"], 138, 1576, [359, null]],
+[361, "stack", 80, 1534, [395, 362, 359]],
+[362, ["string", "upper right"], 138, 1534, [361, null]],
+[363, "stack", 80, 1786, [365, 364, 374]],
+[364, ["string", "lower right"], 138, 1786, [363, null]],
+[365, "stack", 80, 1744, [373, 366, 363]],
+[366, ["string", "upper left"], 138, 1744, [365, null]],
+[367, "box", 216, 1702, [372, 368, null]],
+[368, ["string", "height"], 271, 1702, [367, null]],
+[369, ["setxy2", 0], 80, 1618, [359, 370, 372, 373]],
+[370, "xcor", 138, 1618, [369, null]],
+[371, "ycor", 192, 1660, [372, null]],
+[372, ["minus2", 0], 138, 1660, [369, 371, 367]],
+[373, ["vspace", 0], 80, 1702, [369, 365]],
+[374, ["setxy2", 20], 80, 1828, [363, 377, 375, 380]],
+[375, "ycor", 138, 1910, [374, null]],
+[376, "xcor", 192, 1828, [377, null]],
+[377, ["plus2", 0], 138, 1828, [374, 376, 378]],
+[378, "box", 192, 1870, [377, 379, null]],
+[379, ["string", "width"], 247, 1870, [378, null]],
+[380, "stack", 80, 1952, [374, 381, 382]],
+[381, ["string", "lower left"], 138, 1952, [380, null]],
+[382, "stack", 80, 1994, [380, 383, 388]],
+[383, ["string", "upper right"], 138, 1994, [382, null]],
+[384, "stack", 80, 2162, [392, 385, 386]],
+[385, ["string", "upper left"], 138, 2162, [384, null]],
+[386, "stack", 80, 2204, [384, 387, 399]],
+[387, ["string", "lower right"], 138, 2204, [386, null]],
+[388, ["setxy2", 0], 80, 2036, [382, 389, 391, 392]],
+[389, "xcor", 138, 2036, [388, null]],
+[390, "ycor", 192, 2078, [391, null]],
+[391, ["plus2", 0], 138, 2078, [388, 390, 393]],
+[392, ["vspace", 0], 80, 2120, [388, 384]],
+[393, "box", 192, 2120, [391, 394, null]],
+[394, ["string", "height"], 247, 2120, [393, null]],
+[395, "hat", 80, 1480, [null, 396, 361]],
+[396, ["string", "4 squares"], 138, 1492, [395, null]],
+[397, "stack", 336, 1504, [65, 398, 74]],
+[398, ["string", "4 squares"], 394, 1504, [397, null]],
+[399, ["setxy2", 20], 80, 2246, [386, 402, 401, null]],
+[400, "xcor", 192, 2246, [402, null]],
+[401, "ycor", 138, 2328, [399, null]],
+[402, ["minus2", 0], 138, 2246, [399, 400, 403]],
+[403, "box", 216, 2288, [402, 404, null]],
+[404, ["string", "width"], 271, 2288, [403, null]],
+[405, ["product2", 0], 440, 1858, [89, 87, 406]],
+[406, ["number", 2], 494, 1900, [405, null]],
+[407, ["product2", 0], 482, 1630, [78, 79, 408]],
+[408, ["number", 2], 536, 1672, [407, null]],
+[409, "box", 991, 1485, [126, 410, null]],
+[410, ["string", "top"], 1046, 1485, [409, null]],
+[411, "box", 751, 1443, [127, 412, null]],
+[412, ["string", "top"], 806, 1443, [411, null]],
+[413, "box", 713, 967, [122, 414, null]],
+[414, ["string", "left"], 768, 967, [413, null]],
+[415, "box", 953, 1051, [118, 416, null]],
+[416, ["string", "left"], 1008, 1051, [415, null]],
+[417, "box", 1481, 954, [428, 418, null]],
+[418, ["string", "x"], 1536, 954, [417, null]],
+[419, "box", 1505, 1158, [427, 420, null]],
+[420, ["string", "y"], 1560, 1158, [419, null]],
+[421, "box", 1451, 1036, [425, 422, null]],
+[422, ["string", "width"], 1506, 1036, [421, null]],
+[423, "box", 1451, 1198, [426, 424, null]],
+[424, ["string", "height"], 1506, 1198, [423, null]],
+[425, ["division2", 20], 1373, 954, [433, 428, 421]],
+[426, ["division2", 20], 1373, 1116, [435, 427, 423]],
+[427, ["minus2", 0], 1427, 1116, [426, 429, 419]],
+[428, ["minus2", 0], 1427, 954, [425, 417, 431]],
+[429, "box", 1481, 1116, [427, 430, null]],
+[430, ["string", "top"], 1536, 1116, [429, null]],
+[431, "box", 1505, 996, [428, 432, null]],
+[432, ["string", "left"], 1560, 996, [431, null]],
+[433, ["remainder2", 40], 1313, 954, [444, 425, 434]],
+[434, ["number", 2], 1397, 1076, [433, null]],
+[435, ["remainder2", 40], 1313, 1116, [444, 426, 436]],
+[436, ["number", 2], 1397, 1238, [435, null]],
+[437, ["storein", 0], 1229, 1174, [439, 438, 440, null]],
+[438, ["string", "phase"], 1297, 1174, [437, null]],
+[439, ["ifelse", [21, 21]],
+1211, 1108, [445, 444, 437, 441, null]],
+[440, ["number", 0], 1297, 1216, [437, null]],
+[441, ["storein", 0], 1229, 1276, [439, 442, 443, null]],
+[442, ["string", "phase"], 1297, 1276, [441, null]],
+[443, ["number", 1], 1297, 1318, [441, null]],
+[444, ["equal2", 60], 1267, 954, [439, 433, 435, null]],
+[445, ["vspace", 60], 1211, 946, [446, 439]],
+[446, "hat", 1211, 892, [null, 447, 445]],
+[447, ["string", "calc phase"], 1269, 904, [446, null]],
+[448, "box", 562, 242, [456, 449, null]],
+[449, ["string", "phase"], 617, 242, [448, null]],
+[450, "stack", 1480, 198, [215, 451, 128]],
+[451, ["string", "calc phase"], 1538, 198, [450, null]],
+[452, ["ifelse", [0, 0]],
+478, 630, [455, 458, 54, 56, null]],
+[453, ["ifelse", [93, 93]],
+460, 276, [279, 456, 454, 455, null]],
+[454, ["vspace", 0], 478, 342, [453, 101]],
+[455, ["vspace", 0], 478, 588, [453, 452]],
+[456, ["equal2", 0], 516, 242, [453, 448, 457, null]],
+[457, ["number", 0], 562, 284, [456, null]],
+[458, ["less2", 0], 534, 596, [452, 459, 461, null]],
+[459, "box", 580, 596, [458, 460, null]],
+[460, ["string", "du"], 635, 596, [459, null]],
+[461, "box", 604, 638, [458, 462, null]],
+[462, ["string", "dl"], 659, 638, [461, null]],
+[463, "hat", 1727, 698, [null, 464, 269]],
+[464, ["string", "calc distances"], 1785, 710, [463, null]],
+[465, ["ifelse", [0, 0]],
+1480, 450, [278, 468, 476, 478, 466]],
+[466, "stack", 1480, 636, [465, 467, null]],
+[467, ["string", "calc distances"], 1538, 636, [466, null]],
+[468, ["equal2", 0], 1536, 416, [465, 470, 469, null]],
+[469, ["number", 0], 1582, 458, [468, null]],
+[470, "box", 1582, 416, [468, 471, null]],
+[471, ["string", "phase"], 1637, 416, [470, null]],
+[472, "hat", 1977, 58, [null, 473, 239]],
+[473, ["string", "phase 0"], 2035, 70, [472, null]],
+[474, "hat", 1713, 65, [null, 475, 480]],
+[475, ["string", "phase 1"], 1771, 77, [474, null]],
+[476, "stack", 1498, 516, [465, 477, null]],
+[477, ["string", "phase 0"], 1556, 516, [476, null]],
+[478, "stack", 1498, 576, [465, 479, null]],
+[479, ["string", "phase 1"], 1556, 576, [478, null]],
+[480, ["storein", 0], 1713, 119, [474, 481, 482, 485]],
+[481, ["string", "dy0"], 1781, 119, [480, null]],
+[482, ["minus2", 0], 1781, 161, [480, 539, 483]],
+[483, "box", 1859, 203, [482, 484, null]],
+[484, ["string", "y"], 1914, 203, [483, null]],
+[485, ["vspace", 0], 1713, 203, [480, 486]],
+[486, ["storein", 0], 1713, 245, [485, 487, 488, 494]],
+[487, ["string", "dx0"], 1781, 245, [486, null]],
+[488, ["minus2", 0], 1781, 287, [486, 490, 541]],
+[489, ["plus2", 0], 1859, 495, [497, 498, 492]],
+[490, "box", 1835, 287, [488, 491, null]],
+[491, ["string", "x"], 1890, 287, [490, null]],
+[492, "box", 1913, 537, [489, 493, null]],
+[493, ["string", "width"], 1968, 537, [492, null]],
+[494, ["vspace", 20], 1713, 329, [486, 495]],
+[495, ["storein", 0], 1713, 411, [494, 496, 497, 500]],
+[496, ["string", "dx1"], 1781, 411, [495, null]],
+[497, ["minus2", 0], 1781, 453, [495, 545, 489]],
+[498, "box", 1913, 495, [489, 499, null]],
+[499, ["string", "x"], 1968, 495, [498, null]],
+[500, ["vspace", 0], 1713, 495, [495, 501]],
+[501, ["storein", 0], 1713, 537, [500, 502, 503, null]],
+[502, ["string", "dy1"], 1781, 537, [501, null]],
+[503, ["minus2", 0], 1781, 579, [501, 543, 504]],
+[504, ["minus2", 0], 1859, 621, [503, 505, 507]],
+[505, "box", 1913, 621, [504, 506, null]],
+[506, ["string", "y"], 1968, 621, [505, null]],
+[507, "box", 1937, 663, [504, 508, null]],
+[508, ["string", "height"], 1992, 663, [507, null]],
+[509, "toppos", 90, 1149, [102, null]],
+[510, "leftpos", 144, 983, [517, null]],
+[511, "toppos", 144, 773, [512, null]],
+[512, ["division2", 0], 90, 773, [1, 511, 513]],
+[513, ["number", 5], 168, 815, [512, null]],
+[514, "box", 90, 899, [3, 515, null]],
+[515, ["string", "width"], 145, 899, [514, null]],
+[516, ["vspace", 0], 22, 815, [1, 3]],
+[517, ["plus2", 0], 90, 983, [104, 510, 520]],
+[518, "box", 198, 1025, [520, 519, null]],
+[519, ["string", "width"], 253, 1025, [518, null]],
+[520, ["product2", 0], 144, 1025, [517, 518, 521]],
+[521, ["number", 2], 198, 1067, [520, null]],
+[522, ["vspace", 20], 22, 1025, [104, 102]],
+[523, ["division2", 0], 359, 1170, [71, 524, 525]],
+[524, "width", 413, 1170, [523, null]],
+[525, ["product2", 0], 437, 1212, [523, 527, 526]],
+[526, ["number", 2], 491, 1254, [525, null]],
+[527, "box", 491, 1212, [525, 528, null]],
+[528, ["string", "width"], 546, 1212, [527, null]],
+[529, ["vspace", 20], 318, 1212, [71, 72]],
+[530, ["if", 156], 878, 478, [534, 531, 280, null]],
+[531, "mousebutton2", 934, 494, [530, null]],
+[532, ["storein", 0], 878, 310, [94, 533, 141, 534]],
+[533, ["string", "mousex"], 946, 310, [532, null]],
+[534, ["storein", 0], 878, 394, [532, 535, 536, 530]],
+[535, ["string", "mousey"], 946, 394, [534, null]],
+[536, "mousey", 946, 436, [534, null]],
+[537, "box", 998, 552, [136, 538, null]],
+[538, ["string", "mousex"], 1053, 552, [537, null]],
+[539, "box", 1835, 161, [482, 540, null]],
+[540, ["string", "mousey"], 1890, 161, [539, null]],
+[541, "box", 1859, 329, [488, 542, null]],
+[542, ["string", "mousex"], 1914, 329, [541, null]],
+[543, "box", 1835, 579, [503, 544, null]],
+[544, ["string", "mousey"], 1890, 579, [543, null]],
+[545, "box", 1835, 453, [497, 546, null]],
+[546, ["string", "mousex"], 1890, 453, [545, null]],
+[547, "box", 2099, 154, [224, 548, null]],
+[548, ["string", "mousey"], 2154, 154, [547, null]],
+[549, "box", 2123, 362, [217, 550, null]],
+[550, ["string", "mousex"], 2178, 362, [549, null]],
+[551, "box", 2099, 446, [231, 552, null]],
+[552, ["string", "mousex"], 2154, 446, [551, null]],
+[553, "box", 2099, 572, [232, 554, null]],
+[554, ["string", "mousey"], 2154, 572, [553, null]],
+[555, "box", 929, 1009, [118, 556, null]],
+[556, ["string", "mousex"], 984, 1009, [555, null]],
+[557, "box", 1262, 838, [612, 558, null]],
+[558, ["string", "mousey"], 1317, 838, [557, null]],
+[559, "box", 1015, 1527, [126, 560, null]],
+[560, ["string", "mousey"], 1070, 1527, [559, null]],
+[561, "push", 22, 647, [569, 579, 58]],
+[562, "push", 22, 269, [615, 578, 563]],
+[563, "push", 22, 311, [562, 577, 564]],
+[564, "push", 22, 353, [563, 576, 570]],
+[565, "push", 22, 437, [570, 575, 566]],
+[566, "push", 22, 479, [565, 574, 567]],
+[567, "push", 22, 521, [566, 573, 568]],
+[568, "push", 22, 563, [567, 572, 569]],
+[569, "push", 22, 605, [568, 571, 561]],
+[570, "push", 22, 395, [564, 581, 565]],
+[571, "orange", 80, 605, [569, null]],
+[572, "yellow", 80, 563, [568, null]],
+[573, "green", 80, 521, [567, null]],
+[574, "cyan", 80, 479, [566, null]],
+[575, "blue", 80, 437, [565, null]],
+[576, "purple", 80, 353, [564, null]],
+[577, "white", 80, 311, [563, null]],
+[578, "black", 80, 269, [562, null]],
+[579, "red", 80, 647, [561, null]],
+[580, "pop", 367, 554, [160, null]],
+[581, ["number", 80], 80, 395, [570, null]],
+[582, ["ifelse", [83, 93]],
+1142, 538, [596, 598, 597, 614, null]],
+[583, "setcolor", 1160, 770, [586, 606, null]],
+[584, "setshade", 1160, 686, [597, 585, 586]],
+[585, ["number", 50], 1245, 686, [584, null]],
+[586, "setgray", 1160, 728, [584, 587, 583]],
+[587, ["number", 100], 1233, 728, [586, null]],
+[588, "box", 1244, 504, [598, 589, null]],
+[589, ["string", "mousey"], 1299, 504, [588, null]],
+[590, "box", 1376, 546, [592, 591, null]],
+[591, ["string", "height"], 1431, 546, [590, null]],
+[592, ["product2", 0], 1322, 546, [595, 590, 593]],
+[593, ["number", 2], 1376, 588, [592, null]],
+[594, "bottompos", 1322, 628, [595, null]],
+[595, ["plus2", 20], 1268, 546, [598, 592, 594]],
+[596, ["vspace", 0], 1142, 496, [601, 582]],
+[597, ["vspace", 20], 1160, 604, [582, 584]],
+[598, ["greater2", 0], 1198, 504, [582, 588, 595, null]],
+[599, ["setxy2", 0], 1142, 370, [600, 602, 604, 601]],
+[600, "penup", 1142, 328, [616, 599]],
+[601, "pendown", 1142, 454, [599, 596]],
+[602, "box", 1200, 370, [599, 603, null]],
+[603, ["string", "mousex"], 1255, 370, [602, null]],
+[604, "box", 1200, 412, [599, 605, null]],
+[605, ["string", "mousey"], 1255, 412, [604, null]],
+[606, "see", 1237, 770, [583, null]],
+[607, "white", 1255, 938, [135, null]],
+[608, "black", 1255, 998, [609, null]],
+[609, "setcolor", 1178, 998, [611, 608, null]],
+[610, "bottompos", 1340, 922, [613, null]],
+[611, ["ifelse", [0, 0]],
+1160, 872, [614, 612, 135, 609, null]],
+[612, ["greater2", 0], 1216, 838, [611, 557, 613, null]],
+[613, ["plus2", 0], 1286, 880, [612, 139, 610]],
+[614, ["vspace", 0], 1160, 830, [582, 611]],
+[615, "clean", 22, 227, [0, 562]],
+[616, "hat", 1142, 274, [null, 617, 600]],
+[617, ["string", "select color"], 1200, 286, [616, null]],
+[618, "stack", 914, 652, [134, 619, null]],
+[619, ["string", "select color"], 972, 652, [618, null]],
+[620, "setcolor", 860, 234, [95, 621, 94]],
+[621, "red", 937, 234, [620, null]]]
--
cgit v0.9.1