Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/samples/game-trianglepaint.ta
blob: 15cc669aecdc450162c1775ed15b89e757107e39 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
[[0, ["start", 2.0], 0, 180, [null, 60]],
[1, ["storein", 0], 0, 268, [60, 2, 3, 4]],
[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]]]