From 38c69b5dc4e9ced670f6f62f76c2b8c3671e16c8 Mon Sep 17 00:00:00 2001 From: Walter Bender Date: Thu, 05 May 2011 20:34:50 +0000 Subject: check for edge conditions --- (limited to 'samples') diff --git a/samples/scratch.ta b/samples/scratch.ta index 2dfb92a..1c3d0b9 100644 --- a/samples/scratch.ta +++ b/samples/scratch.ta @@ -1,81 +1,88 @@ -[[0, ["start", 2.0], 39, 179, [null, 14]], -[1, "skin", 907, 357, [20, 2, 7]], -[2, ["journal", "./samples/images/cat1-a.gif"], 1089, 357, [1, null]], -[3, "skin", 907, 483, [46, 4, 37]], -[4, ["journal", "./samples/images/cat1-b.gif"], 1089, 483, [3, null]], -[5, "addturtle", 907, 273, [80, 6, 20]], -[6, ["number", 1], 975, 273, [5, null]], -[7, "addturtle", 907, 399, [1, 8, 46]], -[8, ["number", 2], 975, 399, [7, null]], -[9, "show", 907, 189, [11, 10, 80]], -[10, ["journal", "./samples/images/basketball-court1-a.jpg"], 980, 189, [9, null]], -[11, "setscale", 907, 147, [47, 12, 9]], -[12, ["number", 100], 1003, 147, [11, null]], -[13, "hat1", 907, 63, [null, 47]], -[14, "stack1", 39, 221, [0, 74]], -[15, "stack2", 140, 533, [51, 58]], -[16, "hat2", 545, 88, [null, 28]], -[17, ["setxy2", 20], 608, 274, [21, 19, 44, 30]], -[18, "xcor", 725, 316, [19, null]], -[19, ["plus2", 0], 671, 274, [17, 52, 18]], -[20, "penup", 907, 315, [5, 1]], -[21, "addturtle", 608, 232, [29, 22, 17]], -[22, ["number", 1], 676, 232, [21, null]], -[23, "addturtle", 608, 440, [30, 24, 25]], -[24, ["number", 2], 676, 440, [23, null]], -[25, ["setxy2", 20], 608, 482, [23, 26, 45, 32]], -[26, ["plus2", 0], 671, 482, [25, 53, 27]], -[27, "xcor", 725, 524, [26, null]], -[28, "repeat", 545, 130, [16, 50, 29, null]], -[29, ["vspace", 0], 608, 190, [28, 21]], -[30, "wait", 608, 398, [17, 31, 23]], -[31, ["number", 0.5], 679, 398, [30, null]], -[32, "wait", 608, 606, [25, 33, null]], -[33, ["number", 0.25], 679, 606, [32, null]], -[34, ["setxy2", 0], 907, 567, [37, 36, 35, 39]], -[35, ["number", -100], 970, 609, [34, null]], -[36, "leftpos", 970, 567, [34, null]], -[37, "addturtle", 907, 525, [3, 38, 34]], -[38, ["number", 1], 975, 525, [37, null]], -[39, "addturtle", 907, 651, [34, 40, 41]], -[40, ["number", 2], 975, 651, [39, null]], -[41, ["setxy2", 0], 907, 693, [39, 42, 43, null]], -[42, "leftpos", 970, 693, [41, null]], -[43, ["number", -100], 970, 735, [41, null]], -[44, "ycor", 671, 356, [17, null]], -[45, "ycor", 671, 564, [25, null]], -[46, "penup", 907, 441, [7, 3]], -[47, "clean", 907, 105, [13, 11]], -[48, "width", 702, 130, [49, null]], -[49, ["division2", 0], 648, 130, [50, 48, 76]], -[50, ["identity2", 0], 594, 130, [28, 49]], -[51, "storeinbox1", 140, 491, [71, 77, 15]], -[52, "box1", 725, 274, [19, null]], -[53, "box1", 725, 482, [26, null]], -[54, "seth", 140, 617, [58, 55, 60]], -[55, ["number", 180.0], 238, 617, [54, null]], -[56, "seth", 140, 701, [60, 57, 63]], -[57, ["number", 180.0], 238, 701, [56, null]], -[58, "addturtle", 140, 575, [15, 59, 54]], -[59, ["number", 1.0], 208, 575, [58, null]], -[60, "addturtle", 140, 659, [54, 61, 56]], -[61, ["number", 2.0], 208, 659, [60, null]], -[62, "forever", 39, 305, [74, 65, null]], -[63, "storeinbox1", 140, 743, [56, 79, 73]], -[64, ["number", 0.0], 328, 743, [79, null]], -[65, "addturtle", 140, 323, [62, 66, 67]], -[66, ["number", 1], 208, 323, [65, null]], -[67, "seth", 140, 365, [65, 68, 69]], -[68, ["number", 0.0], 238, 365, [67, null]], -[69, "addturtle", 140, 407, [67, 70, 71]], -[70, ["number", 2], 208, 407, [69, null]], -[71, "seth", 140, 449, [69, 72, 51]], -[72, ["number", 0.0], 238, 449, [71, null]], -[73, "stack2", 140, 785, [63, null]], -[74, "storeinbox2", 39, 263, [14, 75, 62]], -[75, ["number", 20.0], 173, 263, [74, null]], -[76, "box2", 726, 172, [49, null]], -[77, "box2", 274, 491, [51, null]], -[78, "box2", 352, 785, [79, null]], -[79, ["minus2", 0], 274, 743, [63, 64, 78]], -[80, ["vspace", 0], 907, 231, [9, 5]]] +[[0, ["start", 2.0], 0, 180, [null, 14]], +[1, "skin", 720, 474, [20, 2, 7]], +[2, ["journal", "./samples/images/cat1-a.gif"], 902, 474, [1, null]], +[3, "skin", 720, 600, [44, 4, 35]], +[4, ["journal", "./samples/images/cat1-b.gif"], 902, 600, [3, null]], +[5, "addturtle", 720, 390, [74, 6, 20]], +[6, ["number", 1], 788, 390, [5, null]], +[7, "addturtle", 720, 516, [1, 8, 44]], +[8, ["number", 2], 788, 516, [7, null]], +[9, "show", 720, 306, [11, 10, 74]], +[10, ["journal", "./samples/images/basketball-court1-a.jpg"], 793, 306, [9, null]], +[11, "setscale", 720, 264, [45, 12, 9]], +[12, ["number", 100], 816, 264, [11, null]], +[13, "hat1", 720, 180, [null, 45]], +[14, "stack1", 0, 222, [0, 69]], +[15, "stack2", 101, 534, [46, 53]], +[16, "hat2", 360, 180, [null, 75]], +[17, ["setxy2", 20], 461, 282, [21, 19, 42, 28]], +[18, "xcor", 580, 324, [19, null]], +[19, ["plus2", 0], 526, 282, [17, 47, 18]], +[20, "penup", 720, 432, [5, 1]], +[21, "addturtle", 461, 240, [75, 22, 17]], +[22, ["number", 1], 529, 240, [21, null]], +[23, "addturtle", 461, 448, [28, 24, 25]], +[24, ["number", 2], 529, 448, [23, null]], +[25, ["setxy2", 20], 461, 490, [23, 26, 43, 30]], +[26, ["plus2", 0], 526, 490, [25, 48, 27]], +[27, "xcor", 580, 532, [26, null]], +[28, "wait", 461, 406, [17, 29, 23]], +[29, ["number", 0.5], 532, 406, [28, null]], +[30, "wait", 461, 614, [25, 31, 80]], +[31, ["number", 0.25], 532, 614, [30, null]], +[32, ["setxy2", 0], 720, 684, [35, 34, 33, 37]], +[33, ["number", -100], 785, 726, [32, null]], +[34, "leftpos", 785, 684, [32, null]], +[35, "addturtle", 720, 642, [3, 36, 32]], +[36, ["number", 1], 788, 642, [35, null]], +[37, "addturtle", 720, 768, [32, 38, 39]], +[38, ["number", 2], 788, 768, [37, null]], +[39, ["setxy2", 0], 720, 810, [37, 40, 41, null]], +[40, "leftpos", 785, 810, [39, null]], +[41, ["number", -100], 785, 852, [39, null]], +[42, "ycor", 526, 364, [17, null]], +[43, "ycor", 526, 572, [25, null]], +[44, "penup", 720, 558, [7, 3]], +[45, "clean", 720, 222, [13, 11]], +[46, "storeinbox1", 101, 492, [66, 71, 15]], +[47, "box1", 580, 282, [19, null]], +[48, "box1", 580, 490, [26, null]], +[49, "seth", 101, 618, [53, 50, 55]], +[50, ["number", 180], 199, 618, [49, null]], +[51, "seth", 101, 702, [55, 52, 58]], +[52, ["number", 180], 199, 702, [51, null]], +[53, "addturtle", 101, 576, [15, 54, 49]], +[54, ["number", 1], 169, 576, [53, null]], +[55, "addturtle", 101, 660, [49, 56, 51]], +[56, ["number", 2], 169, 660, [55, null]], +[57, "forever", 0, 306, [69, 60, null]], +[58, "storeinbox1", 101, 744, [51, 73, 68]], +[59, ["number", 0], 289, 744, [73, null]], +[60, "addturtle", 101, 324, [57, 61, 62]], +[61, ["number", 1], 169, 324, [60, null]], +[62, "seth", 101, 366, [60, 63, 64]], +[63, ["number", 0], 199, 366, [62, null]], +[64, "addturtle", 101, 408, [62, 65, 66]], +[65, ["number", 2], 169, 408, [64, null]], +[66, "seth", 101, 450, [64, 67, 46]], +[67, ["number", 0], 199, 450, [66, null]], +[68, "stack2", 101, 786, [58, null]], +[69, "storeinbox2", 0, 264, [14, 70, 57]], +[70, ["number", 20], 134, 264, [69, null]], +[71, "box2", 235, 492, [46, null]], +[72, "box2", 313, 786, [73, null]], +[73, ["minus2", 0], 235, 744, [58, 59, 72]], +[74, ["vspace", 0], 720, 348, [9, 5]], +[75, "forever", 360, 222, [16, 21, null]], +[76, ["vspace", 0], 461, 784, [77, 79]], +[77, "if", 461, 698, [80, 82, 78, 76]], +[78, "stopstack", 537, 766, [77, null]], +[79, "if", 461, 826, [76, 85, 81, null]], +[80, ["vspace", 0], 461, 656, [30, 77]], +[81, "stopstack", 537, 894, [79, null]], +[82, ["greater2", 0], 523, 664, [77, 83, 84, null]], +[83, "xcor", 569, 664, [82, null]], +[84, "rightpos", 593, 706, [82, null]], +[85, ["less2", 0], 523, 792, [79, 86, 87, null]], +[86, "xcor", 569, 792, [85, null]], +[87, "leftpos", 593, 834, [85, null]]] -- cgit v0.9.1