From eba6e303eaf72d59d988a248c6da6f6e436543cf Mon Sep 17 00:00:00 2001 From: Walter Bender Date: Sat, 29 Aug 2009 15:32:58 +0000 Subject: converting samples to json --- (limited to 'samples') diff --git a/samples/birds.ta b/samples/birds.ta index f485463..2619ead 100644 --- a/samples/birds.ta +++ b/samples/birds.ta @@ -1,319 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I668 -I127 -(lp2 -NaI1 -atp3 -a(I1 -S'setxy' -p4 -I680 -I177 -(lp5 -I0 -aI2 -aI5 -aI8 -atp6 -a(I2 -S'random' -p7 -I754 -I167 -(lp8 -I1 -aI3 -aI4 -aNatp9 -a(I3 -(S'number' -p10 -S'-600' -p11 -tp12 -I782 -I186 -(lp13 -I2 -aNatp14 -a(I4 -(g10 -S'600' -p15 -tp16 -I904 -I186 -(lp17 -I2 -aNatp18 -a(I5 -g7 -I754 -I204 -(lp19 -I1 -aI6 -aI7 -aNatp20 -a(I6 -(g10 -S'-450' -p21 -tp22 -I782 -I223 -(lp23 -I5 -aNatp24 -a(I7 -(g10 -S'450' -p25 -tp26 -I904 -I223 -(lp27 -I5 -aNatp28 -a(I8 -S'setpensize' -p29 -I680 -I253 -(lp30 -I1 -aI9 -aI10 -atp31 -a(I9 -(g10 -S'10' -p32 -tp33 -I754 -I270 -(lp34 -I8 -aNatp35 -a(I10 -S'repeat' -p36 -I680 -I307 -(lp37 -I8 -aI11 -aI12 -aNatp38 -a(I11 -(g10 -S'720' -p39 -tp40 -I766 -I316 -(lp41 -I10 -aNatp42 -a(I12 -S'forward' -p43 -I775 -I356 -(lp44 -I10 -aI13 -aI14 -atp45 -a(I13 -(g10 -S'200' -p46 -tp47 -I849 -I365 -(lp48 -I12 -aNatp49 -a(I14 -S'setcolor' -p50 -I775 -I395 -(lp51 -I12 -aI15 -aI18 -atp52 -a(I15 -S'xcor' -p53 -I849 -I412 -(lp54 -I14 -aI16 -atp55 -a(I16 -S'division' -p56 -I942 -I404 -(lp57 -I15 -aI17 -atp58 -a(I17 -(g10 -S'5' -p59 -tp60 -I981 -I412 -(lp61 -I16 -aNatp62 -a(I18 -S'setshade' -p63 -I775 -I449 -(lp64 -I14 -aI19 -aI20 -atp65 -a(I19 -S'heading' -p66 -I849 -I466 -(lp67 -I18 -aNatp68 -a(I20 -S'back' -p69 -I775 -I503 -(lp70 -I18 -aI21 -aI22 -atp71 -a(I21 -(g10 -S'400' -p72 -tp73 -I849 -I512 -(lp74 -I20 -aNatp75 -a(I22 -g43 -I775 -I542 -(lp76 -I20 -aI23 -aI26 -atp77 -a(I23 -g7 -I849 -I532 -(lp78 -I22 -aI24 -aI25 -aNatp79 -a(I24 -(g10 -S'190' -p80 -tp81 -I877 -I551 -(lp82 -I23 -aNatp83 -a(I25 -(g10 -S'210' -p84 -tp85 -I999 -I551 -(lp86 -I23 -aNatp87 -a(I26 -S'left' -p88 -I775 -I581 -(lp89 -I22 -aI27 -aNatp90 -a(I27 -(g10 -S'1' -p91 -tp92 -I849 -I590 -(lp93 -I26 -aNatp94 -a(I28 -S'clean' -p95 -I232 -I138 -(lp96 -NaI29 -atp97 -a(I29 -g36 -I232 -I177 -(lp98 -I28 -aI30 -aI31 -aNatp99 -a(I30 -(g10 -S'30' -p100 -tp101 -I318 -I186 -(lp102 -I29 -aNatp103 -a(I31 -S'stack1' -p104 -I327 -I226 -(lp105 -I29 -aNatp106 -a(I-1 -S'turtle' -p107 -F-383.13877876282021 -F-420.8404738372858 -F0.0 -F74.898245163485598 -F1.0 -F10.0 -tp108 -a. \ No newline at end of file +[[0, "start", 210, 23, [null, 1]], [1, "clean", 222, 73, [0, 2]], [2, "repeat", 222, 112, [1, 3, 4, null]], [3, ["number", "30"], 308, 121, [2, null]], [4, "setxy", 317, 161, [2, 5, 8, 11]], [5, "random", 391, 151, [4, 6, 7, null]], [6, ["number", "-600"], 419, 170, [5, null]], [7, ["number", "600"], 541, 170, [5, null]], [8, "random", 391, 188, [4, 9, 10, null]], [9, ["number", "-450"], 419, 207, [8, null]], [10, ["number", "450"], 541, 207, [8, null]], [11, "setpensize", 317, 237, [4, 12, 13]], [12, ["number", "10"], 391, 254, [11, null]], [13, "repeat", 317, 291, [11, 14, 15, null]], [14, ["number", "720"], 403, 300, [13, null]], [15, "forward", 412, 340, [13, 16, 17]], [16, ["number", "200"], 486, 349, [15, null]], [17, "setcolor", 412, 379, [15, 18, 21]], [18, "division2", 486, 372, [17, 19, 20]], [19, "xcor", 526, 380, [18, null]], [20, ["number", "5"], 545, 413, [18, null]], [21, "setshade", 412, 433, [17, 22, 23]], [22, "heading", 486, 450, [21, null]], [23, "back", 412, 487, [21, 24, 25]], [24, ["number", "400"], 486, 496, [23, null]], [25, "forward", 412, 526, [23, 26, 29]], [26, "random", 486, 516, [25, 27, 28, null]], [27, ["number", "190"], 514, 535, [26, null]], [28, ["number", "210"], 636, 535, [26, null]], [29, "left", 412, 565, [25, 30, null]], [30, ["number", "1"], 486, 574, [29, null]], [-1, "turtle", 397.92803801392898, 314.2997786718239, 29.0, 79.585607602785799, 29.0, 10.0]] \ No newline at end of file diff --git a/samples/bubbles.ta b/samples/bubbles.ta index dd60345..0989b81 100644 --- a/samples/bubbles.ta +++ b/samples/bubbles.ta @@ -1,262 +1 @@ -(lp0 -(I0 -S'setcolor' -p1 -I219 -I125 -(lp2 -I25 -aI1 -aI2 -atp3 -a(I1 -(S'number' -p4 -S'60' -p5 -tp6 -I293 -I142 -(lp7 -I0 -aNatp8 -a(I2 -S'repeat' -p9 -I219 -I179 -(lp10 -I0 -aI3 -aI4 -aNatp11 -a(I3 -(g4 -S'5000' -p12 -tp13 -I305 -I188 -(lp14 -I2 -aNatp15 -a(I4 -S'setxy' -p16 -I314 -I228 -(lp17 -I2 -aI5 -aI8 -aI11 -atp18 -a(I5 -S'random' -p19 -I388 -I218 -(lp20 -I4 -aI6 -aI7 -aNatp21 -a(I6 -(g4 -S'-600' -p22 -tp23 -I416 -I237 -(lp24 -I5 -aNatp25 -a(I7 -(g4 -S'600' -p26 -tp27 -I538 -I237 -(lp28 -I5 -aNatp29 -a(I8 -g19 -I388 -I255 -(lp30 -I4 -aI9 -aI10 -aNatp31 -a(I9 -(g4 -S'-450' -p32 -tp33 -I416 -I274 -(lp34 -I8 -aNatp35 -a(I10 -(g4 -S'450' -p36 -tp37 -I538 -I274 -(lp38 -I8 -aNatp39 -a(I11 -S'storeinbox1' -p40 -I314 -I304 -(lp41 -I4 -aI12 -aI15 -atp42 -a(I12 -S'ycor' -p43 -I388 -I321 -(lp44 -I11 -aI13 -atp45 -a(I13 -S'plus' -p46 -I481 -I313 -(lp47 -I12 -aI14 -atp48 -a(I14 -(g4 -S'900' -p49 -tp50 -I520 -I321 -(lp51 -I13 -aNatp52 -a(I15 -S'setpensize' -p53 -I314 -I358 -(lp54 -I11 -aI16 -aI19 -atp55 -a(I16 -S'box1' -p56 -I388 -I375 -(lp57 -I15 -aI17 -atp58 -a(I17 -S'division' -p59 -I481 -I367 -(lp60 -I16 -aI18 -atp61 -a(I18 -(g4 -S'9' -p62 -tp63 -I520 -I375 -(lp64 -I17 -aNatp65 -a(I19 -S'setshade' -p66 -I314 -I412 -(lp67 -I15 -aI20 -aI23 -atp68 -a(I20 -g56 -I388 -I429 -(lp69 -I19 -aI21 -atp70 -a(I21 -g59 -I481 -I421 -(lp71 -I20 -aI22 -atp72 -a(I22 -(g4 -S'12' -p73 -tp74 -I520 -I429 -(lp75 -I21 -aNatp76 -a(I23 -S'forward' -p77 -I314 -I466 -(lp78 -I19 -aI24 -aNatp79 -a(I24 -(g4 -S'1' -p80 -tp81 -I388 -I475 -(lp82 -I23 -aNatp83 -a(I25 -S'clean' -p84 -I219 -I86 -(lp85 -NaI0 -atp86 -a(I-1 -S'turtle' -p87 -I-204 -I-436 -I0 -F60.0 -F38.666666666666664 -F51.555555555555557 -tp88 -a. \ No newline at end of file +[[0, "setcolor", 219, 125, [16, 1, 2]], [1, ["number", "60"], 293, 142, [0, null]], [2, "repeat", 219, 179, [0, 3, 4, null]], [3, ["number", "5000"], 305, 188, [2, null]], [4, "setxy", 314, 228, [2, 5, 8, 11]], [5, "random", 388, 218, [4, 6, 7, null]], [6, ["number", "-600"], 416, 237, [5, null]], [7, ["number", "600"], 538, 237, [5, null]], [8, "random", 388, 255, [4, 9, 10, null]], [9, ["number", "-450"], 416, 274, [8, null]], [10, ["number", "450"], 538, 274, [8, null]], [11, "storeinbox1", 314, 304, [4, 18, 12]], [12, "setpensize", 314, 358, [11, 24, 13]], [13, "setshade", 314, 412, [12, 21, 14]], [14, "forward", 314, 466, [13, 15, null]], [15, ["number", "1"], 388, 475, [14, null]], [16, "clean", 219, 86, [17, 0]], [17, "start", 207, 36, [null, 16]], [18, "plus2", 388, 297, [11, 19, 20]], [19, "ycor", 428, 305, [18, null]], [20, ["number", "900"], 428, 338, [18, null]], [21, "division2", 388, 405, [13, 22, 23]], [22, "box1", 428, 413, [21, null]], [23, ["number", "12"], 447, 446, [21, null]], [24, "division2", 388, 351, [12, 25, 26]], [25, "box1", 428, 359, [24, null]], [26, ["number", "9"], 447, 392, [24, null]], [-1, "turtle", -516.0, -166.0, 0, 60.0, 61.083333333333336, 81.444444444444443]] \ No newline at end of file diff --git a/samples/candyvortex.ta b/samples/candyvortex.ta index c399cee..5e791ea 100644 --- a/samples/candyvortex.ta +++ b/samples/candyvortex.ta @@ -1,152 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I212 -I77 -(lp2 -NaI1 -atp3 -a(I1 -S'repeat' -p4 -I212 -I116 -(lp5 -I0 -aI2 -aI3 -aNatp6 -a(I2 -(S'number' -p7 -I350 -tp8 -I298 -I125 -(lp9 -I1 -aNatp10 -a(I3 -S'setpensize' -p11 -I307 -I165 -(lp12 -I1 -aI4 -aI5 -atp13 -a(I4 -S'heading' -p14 -I381 -I182 -(lp15 -I3 -aNatp16 -a(I5 -S'forward' -p17 -I307 -I219 -(lp18 -I3 -aI6 -aI7 -atp19 -a(I6 -(g7 -S'1000' -p20 -tp21 -I381 -I228 -(lp22 -I5 -aNatp23 -a(I7 -S'setcolor' -p24 -I307 -I258 -(lp25 -I5 -aI8 -aI9 -atp26 -a(I8 -S'xcor' -p27 -I381 -I275 -(lp28 -I7 -aNatp29 -a(I9 -S'setshade' -p30 -I307 -I312 -(lp31 -I7 -aI10 -aI11 -atp32 -a(I10 -S'ycor' -p33 -I381 -I329 -(lp34 -I9 -aNatp35 -a(I11 -S'back' -p36 -I307 -I366 -(lp37 -I9 -aI12 -aI13 -atp38 -a(I12 -(g7 -S'1000' -p39 -tp40 -I381 -I375 -(lp41 -I11 -aNatp42 -a(I13 -S'left' -p43 -I307 -I405 -(lp44 -I11 -aI14 -aNatp45 -a(I14 -(g7 -I1 -tp46 -I381 -I414 -(lp47 -I13 -aNatp48 -a(I-1 -S'turtle' -p49 -I-524 -I384 -F10.0 -F190.8089953765448 -F981.62718344766392 -F11.0 -tp50 -a. \ No newline at end of file +[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 562.0, -180.0, 0.0, 87.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/colors.ta b/samples/colors.ta index c7b7c16..cd98b34 100644 --- a/samples/colors.ta +++ b/samples/colors.ta @@ -1,134 +1 @@ -(lp0 -(I0 -S'setpensize' -p1 -I202 -I114 -(lp2 -I2 -aI1 -aI3 -atp3 -a(I1 -(S'number' -p4 -S'15' -p5 -tp6 -I276 -I131 -(lp7 -I0 -aNatp8 -a(I2 -S'clean' -p9 -I202 -I75 -(lp10 -NaI0 -atp11 -a(I3 -S'repeat' -p12 -I202 -I168 -(lp13 -I0 -aI4 -aI5 -aNatp14 -a(I4 -(g4 -I360 -tp15 -I288 -I177 -(lp16 -I3 -aNatp17 -a(I5 -S'setcolor' -p18 -I297 -I217 -(lp19 -I3 -aI6 -aI7 -atp20 -a(I6 -S'heading' -p21 -I371 -I234 -(lp22 -I5 -aNatp23 -a(I7 -S'forward' -p24 -I297 -I271 -(lp25 -I5 -aI8 -aI9 -atp26 -a(I8 -(g4 -I1000 -tp27 -I371 -I280 -(lp28 -I7 -aNatp29 -a(I9 -S'back' -p30 -I297 -I310 -(lp31 -I7 -aI10 -aI11 -atp32 -a(I10 -(g4 -I1000 -tp33 -I371 -I319 -(lp34 -I9 -aNatp35 -a(I11 -S'right' -p36 -I297 -I349 -(lp37 -I9 -aI12 -aNatp38 -a(I12 -(g4 -I1 -tp39 -I371 -I358 -(lp40 -I11 -aNatp41 -a(I-1 -S'turtle' -p42 -F0.0 -F0.0 -F0.0 -F359.0 -I50 -F15.0 -tp43 -a. \ No newline at end of file +[[0, "setpensize", 202, 114, [2, 1, 3]], [1, ["number", "15"], 276, 131, [0, null]], [2, "clean", 202, 75, [13, 0]], [3, "repeat", 202, 168, [0, 4, 5, null]], [4, ["number", 360], 288, 177, [3, null]], [5, "setcolor", 297, 217, [3, 6, 7]], [6, "heading", 371, 234, [5, null]], [7, "forward", 297, 271, [5, 8, 9]], [8, ["number", 1000], 371, 280, [7, null]], [9, "back", 297, 310, [7, 10, 11]], [10, ["number", 1000], 371, 319, [9, null]], [11, "right", 297, 349, [9, 12, null]], [12, ["number", 1], 371, 358, [11, null]], [13, "start", 190, 25, [null, 2]], [-1, "turtle", 0.0, 0.0, 0.0, 359.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/csquiral.ta b/samples/csquiral.ta index 647b5b2..5e791ea 100644 --- a/samples/csquiral.ta +++ b/samples/csquiral.ta @@ -1,210 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I207 -I67 -(lp2 -NaI1 -atp3 -a(I1 -S'setpensize' -p4 -I207 -I106 -(lp5 -I0 -aI2 -aI3 -atp6 -a(I2 -(S'number' -p7 -S'25' -p8 -tp9 -I281 -I123 -(lp10 -I1 -aNatp11 -a(I3 -S'storeinbox1' -p12 -I207 -I160 -(lp13 -I1 -aI4 -aI5 -atp14 -a(I4 -(g7 -S'0' -p15 -tp16 -I281 -I177 -(lp17 -I3 -aNatp18 -a(I5 -S'repeat' -p19 -I207 -I214 -(lp20 -I3 -aI6 -aI7 -aNatp21 -a(I6 -(g7 -S'1300' -p22 -tp23 -I293 -I223 -(lp24 -I5 -aNatp25 -a(I7 -S'setcolor' -p26 -I302 -I263 -(lp27 -I5 -aI8 -aI11 -atp28 -a(I8 -S'xcor' -p29 -I376 -I280 -(lp30 -I7 -aI9 -atp31 -a(I9 -S'division' -p32 -I469 -I272 -(lp33 -I8 -aI10 -atp34 -a(I10 -(g7 -S'6' -p35 -tp36 -I508 -I280 -(lp37 -I9 -aNatp38 -a(I11 -S'setshade' -p39 -I302 -I317 -(lp40 -I7 -aI12 -aI13 -atp41 -a(I12 -S'heading' -p42 -I376 -I334 -(lp43 -I11 -aNatp44 -a(I13 -S'forward' -p45 -I302 -I371 -(lp46 -I11 -aI14 -aI15 -atp47 -a(I14 -S'box1' -p48 -I376 -I380 -(lp49 -I13 -aNatp50 -a(I15 -S'right' -p51 -I302 -I410 -(lp52 -I13 -aI16 -aI17 -atp53 -a(I16 -(g7 -S'91' -p54 -tp55 -I376 -I419 -(lp56 -I15 -aNatp57 -a(I17 -g12 -I302 -I449 -(lp58 -I15 -aI18 -aNatp59 -a(I18 -g48 -I376 -I466 -(lp60 -I17 -aI19 -atp61 -a(I19 -S'plus' -p62 -I469 -I458 -(lp63 -I18 -aI20 -atp64 -a(I20 -(g7 -S'1' -p65 -tp66 -I508 -I466 -(lp67 -I19 -aNatp68 -a(I-1 -S'turtle' -p69 -F906.80942086435073 -F86.478356202884811 -F220.0 -F-17.117197178042431 -F129.0 -F25.0 -tp70 -a. \ No newline at end of file +[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 562.0, -180.0, 0.0, 87.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/curlygates.ta b/samples/curlygates.ta index b739008..7908cde 100644 --- a/samples/curlygates.ta +++ b/samples/curlygates.ta @@ -1,469 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I752 -I51 -(lp2 -NaI1 -atp3 -a(I1 -S'repeat' -p4 -I764 -I101 -(lp5 -I0 -aI2 -aI3 -aNatp6 -a(I2 -(S'number' -p7 -S'3' -p8 -tp9 -I850 -I110 -(lp10 -I1 -aNatp11 -a(I3 -S'storeinbox1' -p12 -I859 -I150 -(lp13 -I1 -aI4 -aI5 -atp14 -a(I4 -(g7 -S'200' -p15 -tp16 -I933 -I167 -(lp17 -I3 -aNatp18 -a(I5 -g4 -I859 -I204 -(lp19 -I3 -aI6 -aI7 -aNatp20 -a(I6 -(g7 -S'20' -p21 -tp22 -I945 -I213 -(lp23 -I5 -aNatp24 -a(I7 -S'arc' -p25 -I954 -I253 -(lp26 -I5 -aI8 -aI9 -aI10 -atp27 -a(I8 -(g7 -S'30' -p28 -tp29 -I1028 -I262 -(lp30 -I7 -aNatp31 -a(I9 -S'box1' -p32 -I1028 -I299 -(lp33 -I7 -aNatp34 -a(I10 -g12 -I954 -I329 -(lp35 -I7 -aI11 -aNatp36 -a(I11 -g32 -I1028 -I346 -(lp37 -I10 -aI12 -atp38 -a(I12 -S'division' -p39 -I1121 -I338 -(lp40 -I11 -aI13 -atp41 -a(I13 -(g7 -S'1.2' -p42 -tp43 -I1160 -I346 -(lp44 -I12 -aNatp45 -a(I14 -S'hat2' -p46 -I708 -I263 -(lp47 -NaI15 -atp48 -a(I15 -S'setcolor' -p49 -I720 -I313 -(lp50 -I14 -aI16 -aI17 -atp51 -a(I16 -(g7 -S'20' -p52 -tp53 -I794 -I330 -(lp54 -I15 -aNatp55 -a(I17 -S'setshade' -p56 -I720 -I367 -(lp57 -I15 -aI18 -aI19 -atp58 -a(I18 -(g7 -S'60' -p59 -tp60 -I794 -I384 -(lp61 -I17 -aNatp62 -a(I19 -S'setpensize' -p63 -I720 -I421 -(lp64 -I17 -aI20 -aI21 -atp65 -a(I20 -(g7 -S'20' -p66 -tp67 -I794 -I438 -(lp68 -I19 -aNatp69 -a(I21 -S'stack1' -p70 -I720 -I475 -(lp71 -I19 -aI22 -atp72 -a(I22 -g49 -I720 -I514 -(lp73 -I21 -aI23 -aI24 -atp74 -a(I23 -(g7 -S'0' -p75 -tp76 -I794 -I531 -(lp77 -I22 -aNatp78 -a(I24 -g56 -I720 -I568 -(lp79 -I22 -aI25 -aI28 -atp80 -a(I25 -S'random' -p81 -I794 -I566 -(lp82 -I24 -aI26 -aI27 -aNatp83 -a(I26 -(g7 -S'60' -p84 -tp85 -I822 -I585 -(lp86 -I25 -aNatp87 -a(I27 -(g7 -S'80' -p88 -tp89 -I944 -I585 -(lp90 -I25 -aNatp91 -a(I28 -g63 -I720 -I622 -(lp92 -I24 -aI29 -aI30 -atp93 -a(I29 -(g7 -S'12' -p94 -tp95 -I794 -I639 -(lp96 -I28 -aNatp97 -a(I30 -g70 -I720 -I676 -(lp98 -I28 -aNatp99 -a(I31 -S'fillscreen' -p100 -I224 -I113 -(lp101 -NaI32 -aI33 -aI34 -atp102 -a(I32 -(g7 -S'50' -p103 -tp104 -I298 -I122 -(lp105 -I31 -aNatp106 -a(I33 -(g7 -S'30' -p107 -tp108 -I298 -I159 -(lp109 -I31 -aNatp110 -a(I34 -g4 -I224 -I189 -(lp111 -I31 -aI35 -aI36 -aNatp112 -a(I35 -(g7 -S'20' -p113 -tp114 -I310 -I198 -(lp115 -I34 -aNatp116 -a(I36 -S'setxy' -p117 -I319 -I238 -(lp118 -I34 -aI37 -aI40 -aI43 -atp119 -a(I37 -g81 -I393 -I228 -(lp120 -I36 -aI38 -aI39 -aNatp121 -a(I38 -(g7 -S'-570' -p122 -tp123 -I421 -I247 -(lp124 -I37 -aNatp125 -a(I39 -(g7 -S'570' -p126 -tp127 -I543 -I247 -(lp128 -I37 -aNatp129 -a(I40 -g81 -I393 -I265 -(lp130 -I36 -aI41 -aI42 -aNatp131 -a(I41 -(g7 -S'-440' -p132 -tp133 -I421 -I284 -(lp134 -I40 -aNatp135 -a(I42 -(g7 -S'440' -p136 -tp137 -I543 -I284 -(lp138 -I40 -aNatp139 -a(I43 -S'seth' -p140 -I319 -I314 -(lp141 -I36 -aI44 -aI47 -atp142 -a(I44 -g81 -I393 -I304 -(lp143 -I43 -aI45 -aI46 -aNatp144 -a(I45 -(g7 -g75 -tp145 -I421 -I323 -(lp146 -I44 -aNatp147 -a(I46 -(g7 -S'360' -p148 -tp149 -I543 -I323 -(lp150 -I44 -aNatp151 -a(I47 -S'stack2' -p152 -I319 -I353 -(lp153 -I43 -aNatp154 -a(I-1 -S'turtle' -p155 -F397.99999999999983 -F-386.00000000000097 -F115.0 -F0.0 -I74 -F12.0 -tp156 -a. \ No newline at end of file +[[0, "start", 199, 22, [null, 1]], [1, "fillscreen", 211, 72, [0, 2, 3, 4]], [2, ["number", "50"], 285, 81, [1, null]], [3, ["number", "30"], 285, 118, [1, null]], [4, "repeat", 211, 148, [1, 5, 6, null]], [5, ["number", "20"], 297, 157, [4, null]], [6, "setxy", 306, 197, [4, 7, 10, 13]], [7, "random", 380, 187, [6, 8, 9, null]], [8, ["number", "-570"], 408, 206, [7, null]], [9, ["number", "570"], 530, 206, [7, null]], [10, "random", 380, 224, [6, 11, 12, null]], [11, ["number", "-440"], 408, 243, [10, null]], [12, ["number", "440"], 530, 243, [10, null]], [13, "seth", 306, 273, [6, 14, 17]], [14, "random", 380, 263, [13, 15, 16, null]], [15, ["number", "0"], 408, 282, [14, null]], [16, ["number", "360"], 530, 282, [14, null]], [17, "stack2", 306, 312, [13, null]], [18, "hat2", 666, 170, [null, 19]], [19, "setcolor", 678, 220, [18, 20, 21]], [20, ["number", "20"], 752, 237, [19, null]], [21, "setshade", 678, 274, [19, 22, 23]], [22, ["number", "60"], 752, 291, [21, null]], [23, "setpensize", 678, 328, [21, 24, 25]], [24, ["number", "20"], 752, 345, [23, null]], [25, "stack1", 678, 382, [23, 26]], [26, "setcolor", 678, 421, [25, 27, 28]], [27, ["number", "0"], 752, 438, [26, null]], [28, "setshade", 678, 475, [26, 29, 32]], [29, "random", 752, 473, [28, 30, 31, null]], [30, ["number", "60"], 780, 492, [29, null]], [31, ["number", "80"], 902, 492, [29, null]], [32, "setpensize", 678, 529, [28, 33, 34]], [33, ["number", "12"], 752, 546, [32, null]], [34, "stack1", 678, 583, [32, null]], [35, "hat1", 195, 317, [null, 36]], [36, "repeat", 207, 367, [35, 37, 38, null]], [37, ["number", "3"], 293, 376, [36, null]], [38, "storeinbox1", 302, 416, [36, 39, 40]], [39, ["number", "200"], 376, 433, [38, null]], [40, "repeat", 302, 470, [38, 41, 42, null]], [41, ["number", "20"], 388, 479, [40, null]], [42, "arc", 397, 519, [40, 43, 44, 45]], [43, ["number", "30"], 471, 528, [42, null]], [44, "box1", 471, 565, [42, null]], [45, "storeinbox1", 397, 595, [42, 46, null]], [46, "division2", 471, 588, [45, 47, 48]], [47, "box1", 511, 596, [46, null]], [48, ["number", "1.2"], 530, 629, [46, null]], [-1, "turtle", 498.00000000000017, -255.00000000000003, 322.0, 0.0, 61, 12.0]] \ No newline at end of file diff --git a/samples/dots.ta b/samples/dots.ta index 6c35cdc..5e791ea 100644 --- a/samples/dots.ta +++ b/samples/dots.ta @@ -1,233 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I241 -I62 -(lp2 -NaI1 -atp3 -a(I1 -S'setcolor' -p4 -I241 -I101 -(lp5 -I0 -aI2 -aI3 -atp6 -a(I2 -(S'number' -p7 -S'0' -p8 -tp9 -I315 -I118 -(lp10 -I1 -aNatp11 -a(I3 -g1 -I241 -I155 -(lp12 -I1 -aI4 -atp13 -a(I4 -S'setpensize' -p14 -I241 -I194 -(lp15 -I3 -aI5 -aI6 -atp16 -a(I5 -(g7 -S'20' -p17 -tp18 -I315 -I211 -(lp19 -I4 -aNatp20 -a(I6 -S'storeinbox1' -p21 -I241 -I248 -(lp22 -I4 -aI7 -aI8 -atp23 -a(I7 -(g7 -g8 -tp24 -I315 -I265 -(lp25 -I6 -aNatp26 -a(I8 -S'repeat' -p27 -I241 -I302 -(lp28 -I6 -aI9 -aI10 -aNatp29 -a(I9 -(g7 -S'1000' -p30 -tp31 -I327 -I311 -(lp32 -I8 -aNatp33 -a(I10 -S'pendown' -p34 -I336 -I351 -(lp35 -I8 -aI11 -atp36 -a(I11 -S'forward' -p37 -I336 -I390 -(lp38 -I10 -aI12 -aI13 -atp39 -a(I12 -(g7 -S'1' -p40 -tp41 -I410 -I399 -(lp42 -I11 -aNatp43 -a(I13 -S'penup' -p44 -I336 -I429 -(lp45 -I11 -aI14 -atp46 -a(I14 -g37 -I336 -I468 -(lp47 -I13 -aI15 -aI16 -atp48 -a(I15 -S'box1' -p49 -I410 -I477 -(lp50 -I14 -aNatp51 -a(I16 -S'right' -p52 -I336 -I507 -(lp53 -I14 -aI17 -aI18 -atp54 -a(I17 -(g7 -S'93' -p55 -tp56 -I410 -I516 -(lp57 -I16 -aNatp58 -a(I18 -g21 -I336 -I546 -(lp59 -I16 -aI19 -aI22 -atp60 -a(I19 -g49 -I410 -I563 -(lp61 -I18 -aI20 -atp62 -a(I20 -S'plus' -p63 -I503 -I555 -(lp64 -I19 -aI21 -atp65 -a(I21 -(g7 -g40 -tp66 -I542 -I563 -(lp67 -I20 -aNatp68 -a(I22 -g4 -I336 -I600 -(lp69 -I18 -aI23 -aNatp70 -a(I23 -g49 -I410 -I617 -(lp71 -I22 -aNatp72 -a(I-1 -S'turtle' -p73 -F-195.08137186354315 -F661.36192458837445 -F120.0 -F1000.0 -I50 -F20.0 -tp74 -a. \ No newline at end of file +[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 562.0, -180.0, 0.0, 87.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/flower.ta b/samples/flower.ta index 0f6ce72..402dc55 100644 --- a/samples/flower.ta +++ b/samples/flower.ta @@ -1,297 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I838 -I260 -(lp2 -NaI1 -atp3 -a(I1 -S'repeat' -p4 -I850 -I310 -(lp5 -I0 -aI2 -aI3 -aNatp6 -a(I2 -(S'number' -p7 -S'4' -p8 -tp9 -I936 -I319 -(lp10 -I1 -aNatp11 -a(I3 -S'forward' -p12 -I945 -I359 -(lp13 -I1 -aI4 -aI5 -atp14 -a(I4 -S'box1' -p15 -I1019 -I368 -(lp16 -I3 -aNatp17 -a(I5 -S'right' -p18 -I945 -I398 -(lp19 -I3 -aI6 -aNatp20 -a(I6 -(g7 -S'90' -p21 -tp22 -I1019 -I407 -(lp23 -I5 -aNatp24 -a(I7 -S'hat2' -p25 -I846 -I55 -(lp26 -NaI8 -atp27 -a(I8 -g4 -I858 -I105 -(lp28 -I7 -aI9 -aI10 -aNatp29 -a(I9 -(g7 -S'10' -p30 -tp31 -I944 -I114 -(lp32 -I8 -aNatp33 -a(I10 -S'stack1' -p34 -I953 -I154 -(lp35 -I8 -aI11 -atp36 -a(I11 -g18 -I953 -I193 -(lp37 -I10 -aI12 -aNatp38 -a(I12 -(g7 -S'36' -p39 -tp40 -I1027 -I202 -(lp41 -I11 -aNatp42 -a(I13 -S'storeinbox1' -p43 -I206 -I69 -(lp44 -I15 -aI14 -aI16 -atp45 -a(I14 -(g7 -S'0' -p46 -tp47 -I280 -I86 -(lp48 -I13 -aNatp49 -a(I15 -S'clean' -p50 -I206 -I30 -(lp51 -NaI13 -atp52 -a(I16 -g4 -I206 -I123 -(lp53 -I13 -aI17 -aI18 -aNatp54 -a(I17 -(g7 -S'300' -p55 -tp56 -I292 -I132 -(lp57 -I16 -aNatp58 -a(I18 -S'setshade' -p59 -I301 -I172 -(lp60 -I16 -aI19 -aI22 -atp61 -a(I19 -(g7 -S'100' -p62 -tp63 -I375 -I189 -(lp64 -I18 -aI20 -atp65 -a(I20 -S'minus' -p66 -I468 -I181 -(lp67 -I19 -aI21 -atp68 -a(I21 -g15 -I507 -I189 -(lp69 -I20 -aNatp70 -a(I22 -S'setcolor' -p71 -I301 -I226 -(lp72 -I18 -aI23 -aI26 -atp73 -a(I23 -g15 -I375 -I243 -(lp74 -I22 -aI24 -atp75 -a(I24 -S'division' -p76 -I468 -I235 -(lp77 -I23 -aI25 -atp78 -a(I25 -(g7 -S'3' -p79 -tp80 -I507 -I243 -(lp81 -I24 -aNatp82 -a(I26 -S'stack2' -p83 -I301 -I280 -(lp84 -I22 -aI27 -atp85 -a(I27 -g43 -I301 -I319 -(lp86 -I26 -aI28 -aNatp87 -a(I28 -g15 -I375 -I336 -(lp88 -I27 -aI29 -atp89 -a(I29 -S'plus' -p90 -I468 -I328 -(lp91 -I28 -aI30 -atp92 -a(I30 -(g7 -S'1' -p93 -tp94 -I507 -I336 -(lp95 -I29 -aNatp96 -a(I-1 -S'turtle' -p97 -F1.3812950783176348e-11 -F-7.4464878707658499e-11 -F0.0 -F99.666666666666671 -F-199.0 -I5 -tp98 -a. \ No newline at end of file +[[0, "hat1", 838, 260, [null, 1]], [1, "repeat", 850, 310, [0, 2, 3, null]], [2, ["number", "4"], 936, 319, [1, null]], [3, "forward", 945, 359, [1, 4, 5]], [4, "box1", 1019, 368, [3, null]], [5, "right", 945, 398, [3, 6, null]], [6, ["number", "90"], 1019, 407, [5, null]], [7, "hat2", 846, 55, [null, 8]], [8, "repeat", 858, 105, [7, 9, 10, null]], [9, ["number", "10"], 944, 114, [8, null]], [10, "stack1", 953, 154, [8, 11]], [11, "right", 953, 193, [10, 12, null]], [12, ["number", "36"], 1027, 202, [11, null]], [13, "start", 200, 19, [null, 14]], [14, "clean", 212, 69, [13, 15]], [15, "storeinbox1", 212, 108, [14, 16, 17]], [16, ["number", "0"], 286, 125, [15, null]], [17, "repeat", 212, 162, [15, 18, 19, null]], [18, ["number", "300"], 298, 171, [17, null]], [19, "setshade", 307, 211, [17, 20, 23]], [20, "minus2", 381, 204, [19, 21, 22]], [21, ["number", "100"], 421, 212, [20, null]], [22, "box1", 440, 245, [20, null]], [23, "setcolor", 307, 265, [19, 24, 27]], [24, "division2", 381, 258, [23, 25, 26]], [25, "box1", 421, 266, [24, null]], [26, ["number", "3"], 440, 299, [24, null]], [27, "stack2", 307, 319, [23, 28]], [28, "storeinbox1", 307, 358, [27, 29, null]], [29, "plus2", 381, 351, [28, 30, 31]], [30, "box1", 421, 359, [29, null]], [31, ["number", "1"], 421, 392, [29, null]], [-1, "turtle", 1.3812950783176348e-11, -7.4464878707658499e-11, 0.0, 99.666666666666671, -199.0, 5]] \ No newline at end of file diff --git a/samples/fountain.ta b/samples/fountain.ta index f6ca625..3a5ac57 100644 --- a/samples/fountain.ta +++ b/samples/fountain.ta @@ -1,419 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I632 -I54 -(lp2 -NaI1 -atp3 -a(I1 -S'repeat' -p4 -I644 -I104 -(lp5 -I0 -aI2 -aI3 -aNatp6 -a(I2 -(S'number' -p7 -S'400' -p8 -tp9 -I730 -I113 -(lp10 -I1 -aNatp11 -a(I3 -S'storeinbox1' -p12 -I739 -I153 -(lp13 -I1 -aI4 -aI7 -atp14 -a(I4 -S'heading' -p15 -I813 -I170 -(lp16 -I3 -aI5 -atp17 -a(I5 -S'division' -p18 -I906 -I162 -(lp19 -I4 -aI6 -atp20 -a(I6 -(g7 -I2 -tp21 -I945 -I170 -(lp22 -I5 -aNatp23 -a(I7 -S'storeinbox2' -p24 -I739 -I207 -(lp25 -I3 -aI8 -aI11 -atp26 -a(I8 -S'box1' -p27 -I813 -I224 -(lp28 -I7 -aI9 -atp29 -a(I9 -S'plus' -p30 -I906 -I216 -(lp31 -I8 -aI10 -atp32 -a(I10 -(g7 -I5 -tp33 -I945 -I224 -(lp34 -I9 -aNatp35 -a(I11 -S'setcolor' -p36 -I739 -I261 -(lp37 -I7 -aI12 -aI15 -atp38 -a(I12 -S'random' -p39 -I813 -I259 -(lp40 -I11 -aI13 -aI14 -aNatp41 -a(I13 -g27 -I841 -I278 -(lp42 -I12 -aNatp43 -a(I14 -S'box2' -p44 -I963 -I278 -(lp45 -I12 -aNatp46 -a(I15 -S'arc' -p47 -I739 -I315 -(lp48 -I11 -aI16 -aI17 -aI18 -atp49 -a(I16 -(g7 -I-40 -tp50 -I813 -I324 -(lp51 -I15 -aNatp52 -a(I17 -(g7 -I3000 -tp53 -I813 -I361 -(lp54 -I15 -aNatp55 -a(I18 -g47 -I739 -I391 -(lp56 -I15 -aI19 -aI20 -aI21 -atp57 -a(I19 -(g7 -I-40 -tp58 -I813 -I400 -(lp59 -I18 -aNatp60 -a(I20 -(g7 -I-3000 -tp61 -I813 -I437 -(lp62 -I18 -aNatp63 -a(I21 -S'right' -p64 -I739 -I467 -(lp65 -I18 -aI22 -aNatp66 -a(I22 -(g7 -S'.1' -p67 -tp68 -I813 -I476 -(lp69 -I21 -aNatp70 -a(I23 -S'fillscreen' -p71 -I214 -I46 -(lp72 -NaI24 -aI25 -aI26 -atp73 -a(I24 -(g7 -S'10' -p74 -tp75 -I288 -I55 -(lp76 -I23 -aNatp77 -a(I25 -(g7 -S'30' -p78 -tp79 -I288 -I92 -(lp80 -I23 -aNatp81 -a(I26 -S'setshade' -p82 -I214 -I122 -(lp83 -I23 -aI27 -aI28 -atp84 -a(I27 -(g7 -S'85' -p85 -tp86 -I288 -I139 -(lp87 -I26 -aNatp88 -a(I28 -S'setxy' -p89 -I214 -I176 -(lp90 -I26 -aI29 -aI30 -aI31 -atp91 -a(I29 -(g7 -S'-590' -p92 -tp93 -I288 -I185 -(lp94 -I28 -aNatp95 -a(I30 -(g7 -S'-450' -p96 -tp97 -I288 -I222 -(lp98 -I28 -aNatp99 -a(I31 -S'setpensize' -p100 -I214 -I252 -(lp101 -I28 -aI32 -aI33 -atp102 -a(I32 -(g7 -S'3' -p103 -tp104 -I288 -I269 -(lp105 -I31 -aNatp106 -a(I33 -g4 -I214 -I306 -(lp107 -I31 -aI34 -aI35 -aNatp108 -a(I34 -(g7 -S'6' -p109 -tp110 -I300 -I315 -(lp111 -I33 -aNatp112 -a(I35 -S'seth' -p113 -I309 -I355 -(lp114 -I33 -aI36 -aI37 -atp115 -a(I36 -(g7 -S'0' -p116 -tp117 -I383 -I364 -(lp118 -I35 -aNatp119 -a(I37 -S'stack1' -p120 -I309 -I394 -(lp121 -I35 -aI38 -atp122 -a(I38 -g89 -I309 -I433 -(lp123 -I37 -aI39 -aI42 -aNatp124 -a(I39 -S'xcor' -p125 -I383 -I442 -(lp126 -I38 -aI40 -atp127 -a(I40 -g30 -I476 -I434 -(lp128 -I39 -aI41 -atp129 -a(I41 -(g7 -S'200' -p130 -tp131 -I515 -I442 -(lp132 -I40 -aNatp133 -a(I42 -S'ycor' -p134 -I383 -I479 -(lp135 -I38 -aNatp136 -a(I-1 -S'turtle' -p137 -F609.99999999906686 -F-450.00000000254568 -F40.000000000009074 -I22 -F85.0 -F3.0 -tp138 -a. \ No newline at end of file +[[0, "fillscreen", 245, 98, [17, 1, 2, 3]], [1, ["number", "10"], 319, 107, [0, null]], [2, ["number", "30"], 319, 144, [0, null]], [3, "setshade", 245, 174, [0, 4, 5]], [4, ["number", "85"], 319, 191, [3, null]], [5, "setxy", 245, 228, [3, 6, 7, 8]], [6, ["number", "-590"], 319, 237, [5, null]], [7, ["number", "-450"], 319, 274, [5, null]], [8, "setpensize", 245, 304, [5, 9, 10]], [9, ["number", "3"], 319, 321, [8, null]], [10, "repeat", 245, 358, [8, 11, 12, null]], [11, ["number", "6"], 331, 367, [10, null]], [12, "seth", 340, 407, [10, 13, 14]], [13, ["number", "0"], 414, 416, [12, null]], [14, "stack1", 340, 446, [12, 15]], [15, "setxy", 340, 485, [14, 18, 16, null]], [16, "ycor", 414, 531, [15, null]], [17, "start", 233, 48, [null, 0]], [18, "plus2", 414, 470, [15, 19, 20]], [19, "xcor", 454, 478, [18, null]], [20, ["number", "200"], 454, 511, [18, null]], [21, "hat1", 474, 35, [null, 22]], [22, "repeat", 486, 85, [21, 23, 24, null]], [23, ["number", "400"], 572, 94, [22, null]], [24, "storeinbox1", 581, 134, [22, 25, 28]], [25, "division2", 655, 127, [24, 26, 27]], [26, "heading", 695, 135, [25, null]], [27, ["number", 2], 714, 168, [25, null]], [28, "storeinbox2", 581, 188, [24, 29, 32]], [29, "plus2", 655, 181, [28, 30, 31]], [30, "box1", 695, 189, [29, null]], [31, ["number", 5], 695, 222, [29, null]], [32, "setcolor", 581, 242, [28, 33, 36]], [33, "random", 655, 240, [32, 34, 35, null]], [34, "box1", 683, 259, [33, null]], [35, "box2", 805, 259, [33, null]], [36, "arc", 581, 296, [32, 37, 38, 39]], [37, ["number", -40], 655, 305, [36, null]], [38, ["number", 3000], 655, 342, [36, null]], [39, "arc", 581, 372, [36, 40, 41, 42]], [40, ["number", -40], 655, 381, [39, null]], [41, ["number", -3000], 655, 418, [39, null]], [42, "right", 581, 448, [39, 43, null]], [43, ["number", ".1"], 655, 457, [42, null]], [-1, "turtle", 609.99999999906686, -450.00000000254568, 40.000000000009074, 20, 85.0, 3.0]] \ No newline at end of file diff --git a/samples/rainbow.ta b/samples/rainbow.ta index 6ceaf12..5e791ea 100644 --- a/samples/rainbow.ta +++ b/samples/rainbow.ta @@ -1,194 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I227 -I63 -(lp2 -NaI1 -atp3 -a(I1 -S'setcolor' -p4 -I227 -I102 -(lp5 -I0 -aI2 -aI3 -atp6 -a(I2 -(S'number' -p7 -S'50' -p8 -tp9 -I301 -I119 -(lp10 -I1 -aNatp11 -a(I3 -S'setpensize' -p12 -I227 -I156 -(lp13 -I1 -aI4 -aI5 -atp14 -a(I4 -(g7 -S'15' -p15 -tp16 -I301 -I173 -(lp17 -I3 -aNatp18 -a(I5 -S'repeat' -p19 -I227 -I210 -(lp20 -I3 -aI6 -aI7 -aNatp21 -a(I6 -(g7 -I360 -tp22 -I313 -I219 -(lp23 -I5 -aNatp24 -a(I7 -g4 -I322 -I259 -(lp25 -I5 -aI8 -aI13 -atp26 -a(I8 -S'heading' -p27 -I396 -I276 -(lp28 -I7 -aI9 -atp29 -a(I9 -S'product' -p30 -I489 -I268 -(lp31 -I8 -aI10 -atp32 -a(I10 -(g7 -S'100' -p33 -tp34 -I528 -I276 -(lp35 -I9 -aI11 -atp36 -a(I11 -S'division' -p37 -I621 -I268 -(lp38 -I10 -aI12 -atp39 -a(I12 -(g7 -I360 -tp40 -I660 -I276 -(lp41 -I11 -aNatp42 -a(I13 -S'forward' -p43 -I322 -I313 -(lp44 -I7 -aI14 -aI15 -atp45 -a(I14 -(g7 -S'1000' -p46 -tp47 -I396 -I322 -(lp48 -I13 -aNatp49 -a(I15 -S'back' -p50 -I322 -I352 -(lp51 -I13 -aI16 -aI17 -atp52 -a(I16 -(g7 -S'1000' -p53 -tp54 -I396 -I361 -(lp55 -I15 -aNatp56 -a(I17 -S'right' -p57 -I322 -I391 -(lp58 -I15 -aI18 -aNatp59 -a(I18 -(g7 -I1 -tp60 -I396 -I400 -(lp61 -I17 -aNatp62 -a(I-1 -S'turtle' -p63 -F0.0 -F0.0 -F0.0 -F99.722222222222229 -I50 -F15.0 -tp64 -a. \ No newline at end of file +[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 562.0, -180.0, 0.0, 87.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/redwisp.ta b/samples/redwisp.ta index 497d3a6..5e791ea 100644 --- a/samples/redwisp.ta +++ b/samples/redwisp.ta @@ -1,363 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I750 -I100 -(lp2 -NaI1 -atp3 -a(I1 -S'repeat' -p4 -I762 -I150 -(lp5 -I0 -aI2 -aI3 -aI9 -atp6 -a(I2 -(S'number' -p7 -S'4' -p8 -tp9 -I848 -I159 -(lp10 -I1 -aNatp11 -a(I3 -S'arc' -p12 -I857 -I199 -(lp13 -I1 -aI4 -aI5 -aI6 -atp14 -a(I4 -(g7 -S'180' -p15 -tp16 -I931 -I208 -(lp17 -I3 -aNatp18 -a(I5 -(g7 -S'75' -p19 -tp20 -I931 -I245 -(lp21 -I3 -aNatp22 -a(I6 -g12 -I857 -I275 -(lp23 -I3 -aI7 -aI8 -aNatp24 -a(I7 -(g7 -S'-180' -p25 -tp26 -I931 -I284 -(lp27 -I6 -aNatp28 -a(I8 -(g7 -S'75' -p29 -tp30 -I931 -I321 -(lp31 -I6 -aNatp32 -a(I9 -S'vspace' -p33 -I762 -I240 -(lp34 -I1 -aI10 -atp35 -a(I10 -g33 -I762 -I309 -(lp36 -I9 -aI11 -atp37 -a(I11 -g4 -I762 -I378 -(lp38 -I10 -aI12 -aI13 -aI19 -atp39 -a(I12 -(g7 -g8 -tp40 -I848 -I387 -(lp41 -I11 -aNatp42 -a(I13 -g12 -I857 -I427 -(lp43 -I11 -aI14 -aI15 -aI16 -atp44 -a(I14 -(g7 -S'-180' -p45 -tp46 -I931 -I436 -(lp47 -I13 -aNatp48 -a(I15 -(g7 -S'-75' -p49 -tp50 -I931 -I473 -(lp51 -I13 -aNatp52 -a(I16 -g12 -I857 -I503 -(lp53 -I13 -aI17 -aI18 -aNatp54 -a(I17 -(g7 -S'180' -p55 -tp56 -I931 -I512 -(lp57 -I16 -aNatp58 -a(I18 -(g7 -S'-75' -p59 -tp60 -I931 -I549 -(lp61 -I16 -aNatp62 -a(I19 -g33 -I762 -I468 -(lp63 -I11 -aI20 -atp64 -a(I20 -g33 -I762 -I537 -(lp65 -I19 -aI21 -atp66 -a(I21 -S'right' -p67 -I762 -I606 -(lp68 -I20 -aI22 -aNatp69 -a(I22 -(g7 -S'1' -p70 -tp71 -I836 -I615 -(lp72 -I21 -aNatp73 -a(I23 -S'setpensize' -p74 -I228 -I140 -(lp75 -I25 -aI24 -aI26 -atp76 -a(I24 -(g7 -S'15' -p77 -tp78 -I302 -I157 -(lp79 -I23 -aNatp80 -a(I25 -S'clean' -p81 -I228 -I101 -(lp82 -NaI23 -atp83 -a(I26 -g4 -I228 -I194 -(lp84 -I23 -aI27 -aI28 -aNatp85 -a(I27 -(g7 -S'360' -p86 -tp87 -I314 -I203 -(lp88 -I26 -aNatp89 -a(I28 -S'storeinbox1' -p90 -I323 -I243 -(lp91 -I26 -aI29 -aI32 -atp92 -a(I29 -S'heading' -p93 -I397 -I260 -(lp94 -I28 -aI30 -atp95 -a(I30 -S'product' -p96 -I490 -I252 -(lp97 -I29 -aI31 -atp98 -a(I31 -(g7 -S'600' -p99 -tp100 -I529 -I260 -(lp101 -I30 -aNatp102 -a(I32 -S'setshade' -p103 -I323 -I297 -(lp104 -I28 -aI33 -aI36 -atp105 -a(I33 -S'box1' -p106 -I397 -I314 -(lp107 -I32 -aI34 -atp108 -a(I34 -S'division' -p109 -I490 -I306 -(lp110 -I33 -aI35 -atp111 -a(I35 -(g7 -S'360' -p112 -tp113 -I529 -I314 -(lp114 -I34 -aNatp115 -a(I36 -S'stack1' -p116 -I323 -I351 -(lp117 -I32 -aNatp118 -a(I-1 -S'turtle' -p119 -I-559 -I403 -F0.0 -I0 -F598.33333333333337 -F15.0 -tp120 -a. \ No newline at end of file +[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 562.0, -180.0, 0.0, 87.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/reflections.ta b/samples/reflections.ta index 77c6a7e..5e791ea 100644 --- a/samples/reflections.ta +++ b/samples/reflections.ta @@ -1,298 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I243 -I63 -(lp2 -NaI1 -atp3 -a(I1 -S'setpensize' -p4 -I243 -I102 -(lp5 -I0 -aI2 -aI3 -atp6 -a(I2 -(S'number' -p7 -S'15' -p8 -tp9 -I317 -I119 -(lp10 -I1 -aNatp11 -a(I3 -S'storeinbox1' -p12 -I243 -I156 -(lp13 -I1 -aI4 -aI5 -atp14 -a(I4 -(g7 -S'6200' -p15 -tp16 -I317 -I173 -(lp17 -I3 -aNatp18 -a(I5 -S'repeat' -p19 -I243 -I210 -(lp20 -I3 -aI6 -aI7 -aNatp21 -a(I6 -(g7 -S'6200' -p22 -tp23 -I329 -I219 -(lp24 -I5 -aNatp25 -a(I7 -S'storeinbox2' -p26 -I338 -I259 -(lp27 -I5 -aI8 -aI11 -atp28 -a(I8 -S'box1' -p29 -I412 -I276 -(lp30 -I7 -aI9 -atp31 -a(I9 -S'division' -p32 -I505 -I268 -(lp33 -I8 -aI10 -atp34 -a(I10 -(g7 -S'50' -p35 -tp36 -I544 -I276 -(lp37 -I9 -aNatp38 -a(I11 -S'setshade' -p39 -I338 -I313 -(lp40 -I7 -aI12 -aI15 -atp41 -a(I12 -(g7 -S'100' -p42 -tp43 -I412 -I330 -(lp44 -I11 -aI13 -atp45 -a(I13 -S'minus' -p46 -I505 -I322 -(lp47 -I12 -aI14 -atp48 -a(I14 -S'box2' -p49 -I544 -I330 -(lp50 -I13 -aNatp51 -a(I15 -S'forward' -p52 -I338 -I367 -(lp53 -I11 -aI16 -aI19 -atp54 -a(I16 -g29 -I412 -I376 -(lp55 -I15 -aI17 -atp56 -a(I17 -g32 -I505 -I368 -(lp57 -I16 -aI18 -atp58 -a(I18 -(g7 -S'8' -p59 -tp60 -I544 -I376 -(lp61 -I17 -aNatp62 -a(I19 -S'back' -p63 -I338 -I406 -(lp64 -I15 -aI20 -aI23 -atp65 -a(I20 -g29 -I412 -I415 -(lp66 -I19 -aI21 -atp67 -a(I21 -g32 -I505 -I407 -(lp68 -I20 -aI22 -atp69 -a(I22 -(g7 -g59 -tp70 -I544 -I415 -(lp71 -I21 -aNatp72 -a(I23 -S'right' -p73 -I338 -I445 -(lp74 -I19 -aI24 -aI25 -atp75 -a(I24 -(g7 -S'1' -p76 -tp77 -I412 -I454 -(lp78 -I23 -aNatp79 -a(I25 -g12 -I338 -I484 -(lp80 -I23 -aI26 -aI29 -atp81 -a(I26 -g29 -I412 -I501 -(lp82 -I25 -aI27 -atp83 -a(I27 -g46 -I505 -I493 -(lp84 -I26 -aI28 -atp85 -a(I28 -(g7 -g76 -tp86 -I544 -I501 -(lp87 -I27 -aNatp88 -a(I29 -S'setcolor' -p89 -I338 -I538 -(lp90 -I25 -aI30 -aNatp91 -a(I30 -g29 -I412 -I555 -(lp92 -I29 -aNatp93 -a(I-1 -S'turtle' -p94 -I-521 -I371 -F80.0 -F0.0 -F99.980000000000004 -F15.0 -tp95 -a. \ No newline at end of file +[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 562.0, -180.0, 0.0, 87.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/shades.ta b/samples/shades.ta index c9c9919..fb1ae00 100644 --- a/samples/shades.ta +++ b/samples/shades.ta @@ -1,194 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I241 -I77 -(lp2 -NaI1 -atp3 -a(I1 -S'setcolor' -p4 -I241 -I116 -(lp5 -I0 -aI2 -aI3 -atp6 -a(I2 -(S'number' -p7 -S'50' -p8 -tp9 -I315 -I133 -(lp10 -I1 -aNatp11 -a(I3 -S'setpensize' -p12 -I241 -I170 -(lp13 -I1 -aI4 -aI5 -atp14 -a(I4 -(g7 -S'15' -p15 -tp16 -I315 -I187 -(lp17 -I3 -aNatp18 -a(I5 -S'repeat' -p19 -I241 -I224 -(lp20 -I3 -aI6 -aI7 -aNatp21 -a(I6 -(g7 -I360 -tp22 -I327 -I233 -(lp23 -I5 -aNatp24 -a(I7 -S'setshade' -p25 -I336 -I273 -(lp26 -I5 -aI8 -aI13 -atp27 -a(I8 -S'heading' -p28 -I410 -I290 -(lp29 -I7 -aI9 -atp30 -a(I9 -S'product' -p31 -I503 -I282 -(lp32 -I8 -aI10 -atp33 -a(I10 -(g7 -I200 -tp34 -I542 -I290 -(lp35 -I9 -aI11 -atp36 -a(I11 -S'division' -p37 -I635 -I282 -(lp38 -I10 -aI12 -atp39 -a(I12 -(g7 -I360 -tp40 -I674 -I290 -(lp41 -I11 -aNatp42 -a(I13 -S'forward' -p43 -I336 -I327 -(lp44 -I7 -aI14 -aI15 -atp45 -a(I14 -(g7 -S'1000' -p46 -tp47 -I410 -I336 -(lp48 -I13 -aNatp49 -a(I15 -S'back' -p50 -I336 -I366 -(lp51 -I13 -aI16 -aI17 -atp52 -a(I16 -(g7 -S'1000' -p53 -tp54 -I410 -I375 -(lp55 -I15 -aNatp56 -a(I17 -S'right' -p57 -I336 -I405 -(lp58 -I15 -aI18 -aNatp59 -a(I18 -(g7 -I1 -tp60 -I410 -I414 -(lp61 -I17 -aNatp62 -a(I-1 -S'turtle' -p63 -F0.0 -F0.0 -F0.0 -F50.0 -F199.44444444444446 -F15.0 -tp64 -a. \ No newline at end of file +[[0, "start", 229, 27, [null, 1]], [1, "clean", 241, 77, [0, 2]], [2, "setcolor", 241, 116, [1, 3, 4]], [3, ["number", "50"], 315, 133, [2, null]], [4, "setpensize", 241, 170, [2, 5, 6]], [5, ["number", "15"], 315, 187, [4, null]], [6, "repeat", 241, 224, [4, 7, 8, null]], [7, ["number", 360], 327, 233, [6, null]], [8, "setshade", 336, 273, [6, 9, 15]], [9, "product2", 410, 266, [8, 10, 14]], [10, "identity2", 450, 238, [9, 11]], [11, "division2", 490, 221, [10, 12, 13]], [12, "heading", 530, 229, [11, null]], [13, ["number", 360], 549, 262, [11, null]], [14, ["number", 200], 450, 307, [9, null]], [15, "forward", 336, 327, [8, 16, 17]], [16, ["number", "1000"], 410, 336, [15, null]], [17, "back", 336, 366, [15, 18, 19]], [18, ["number", "1000"], 410, 375, [17, null]], [19, "right", 336, 405, [17, 20, null]], [20, ["number", 1], 410, 414, [19, null]], [-1, "turtle", 0.0, 0.0, 0.0, 50.0, 199.44444444444446, 15.0]] \ No newline at end of file diff --git a/samples/sierpquad.ta b/samples/sierpquad.ta index 7d79ceb..fa79187 100644 --- a/samples/sierpquad.ta +++ b/samples/sierpquad.ta @@ -1,487 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I687 -I-3 -(lp2 -NaI1 -atp3 -a(I1 -S'pendown' -p4 -I699 -I47 -(lp5 -I0 -aI2 -atp6 -a(I2 -S'setcolor' -p7 -I699 -I86 -(lp8 -I1 -aI3 -aI6 -atp9 -a(I3 -S'color' -p10 -I773 -I103 -(lp11 -I2 -aI4 -atp12 -a(I4 -S'plus' -p13 -I866 -I95 -(lp14 -I3 -aI5 -atp15 -a(I5 -(S'number' -p16 -S'8' -p17 -tp18 -I905 -I103 -(lp19 -I4 -aNatp20 -a(I6 -S'repeat' -p21 -I699 -I140 -(lp22 -I2 -aI7 -aI8 -aNatp23 -a(I7 -(g16 -S'4' -p24 -tp25 -I785 -I149 -(lp26 -I6 -aNatp27 -a(I8 -g7 -I794 -I189 -(lp28 -I6 -aI9 -aI12 -atp29 -a(I9 -g10 -I868 -I206 -(lp30 -I8 -aI10 -atp31 -a(I10 -S'minus' -p32 -I961 -I198 -(lp33 -I9 -aI11 -atp34 -a(I11 -(g16 -S'2' -p35 -tp36 -I1000 -I206 -(lp37 -I10 -aNatp38 -a(I12 -S'ifelse' -p39 -I794 -I243 -(lp40 -I8 -aI13 -aI15 -aI36 -aNatp41 -a(I13 -S'greater' -p42 -I874 -I253 -(lp43 -I12 -aI14 -aI40 -aNatp44 -a(I14 -S'box1' -p45 -I906 -I262 -(lp46 -I13 -aNatp47 -a(I15 -S'vspace' -p48 -I889 -I317 -(lp49 -I12 -aI16 -atp50 -a(I16 -S'storeinbox1' -p51 -I889 -I386 -(lp52 -I15 -aI17 -aI20 -atp53 -a(I17 -g45 -I963 -I403 -(lp54 -I16 -aI18 -atp55 -a(I18 -S'division' -p56 -I1056 -I395 -(lp57 -I17 -aI19 -atp58 -a(I19 -(g16 -S'3' -p59 -tp60 -I1095 -I403 -(lp61 -I18 -aNatp62 -a(I20 -S'stack1' -p63 -I889 -I440 -(lp64 -I16 -aI21 -atp65 -a(I21 -S'penup' -p66 -I889 -I479 -(lp67 -I20 -aI22 -atp68 -a(I22 -S'forward' -p69 -I889 -I518 -(lp70 -I21 -aI23 -aI24 -atp71 -a(I23 -g45 -I963 -I527 -(lp72 -I22 -aNatp73 -a(I24 -g63 -I889 -I557 -(lp74 -I22 -aI25 -atp75 -a(I25 -g66 -I889 -I596 -(lp76 -I24 -aI26 -atp77 -a(I26 -g69 -I889 -I635 -(lp78 -I25 -aI27 -aI30 -atp79 -a(I27 -g45 -I963 -I644 -(lp80 -I26 -aI28 -atp81 -a(I28 -S'product' -p82 -I1056 -I636 -(lp83 -I27 -aI29 -atp84 -a(I29 -(g16 -g35 -tp85 -I1095 -I644 -(lp86 -I28 -aNatp87 -a(I30 -g51 -I889 -I674 -(lp88 -I26 -aI31 -aI34 -atp89 -a(I31 -g45 -I963 -I691 -(lp90 -I30 -aI32 -atp91 -a(I32 -g82 -I1056 -I683 -(lp92 -I31 -aI33 -atp93 -a(I33 -(g16 -g59 -tp94 -I1095 -I691 -(lp95 -I32 -aNatp96 -a(I34 -S'right' -p97 -I889 -I728 -(lp98 -I30 -aI35 -aNatp99 -a(I35 -(g16 -S'90' -p100 -tp101 -I963 -I737 -(lp102 -I34 -aNatp103 -a(I36 -g69 -I974 -I317 -(lp104 -I12 -aI37 -aI38 -atp105 -a(I37 -g45 -I1048 -I326 -(lp106 -I36 -aNatp107 -a(I38 -g97 -I974 -I356 -(lp108 -I36 -aI39 -aNatp109 -a(I39 -(g16 -S'90' -p110 -tp111 -I1048 -I365 -(lp112 -I38 -aNatp113 -a(I40 -(g16 -S'10' -p114 -tp115 -I1055 -I262 -(lp116 -I13 -aNatp117 -a(I41 -S'clean' -p118 -I699 -I361 -(lp119 -NaI42 -atp120 -a(I42 -S'setpensize' -p121 -I699 -I400 -(lp122 -I41 -aI43 -aI44 -atp123 -a(I43 -(g16 -S'1' -p124 -tp125 -I773 -I417 -(lp126 -I42 -aNatp127 -a(I44 -S'setxy' -p128 -I699 -I454 -(lp129 -I42 -aI45 -aI46 -aI47 -atp130 -a(I45 -(g16 -S'130' -p131 -tp132 -I773 -I463 -(lp133 -I44 -aNatp134 -a(I46 -(g16 -S'-440' -p135 -tp136 -I773 -I500 -(lp137 -I44 -aNatp138 -a(I47 -S'left' -p139 -I699 -I530 -(lp140 -I44 -aI48 -aI49 -atp141 -a(I48 -(g16 -S'90' -p142 -tp143 -I773 -I539 -(lp144 -I47 -aNatp145 -a(I49 -g51 -I699 -I569 -(lp146 -I47 -aI50 -aI51 -atp147 -a(I50 -(g16 -S'729' -p148 -tp149 -I773 -I586 -(lp150 -I49 -aNatp151 -a(I51 -g63 -I699 -I623 -(lp152 -I49 -aNatp153 -a(I-1 -S'turtle' -p154 -F130.00000000000065 -F-440.00000000000091 -F270.0 -F0.0 -I50 -F1.0 -tp155 -a. \ No newline at end of file +[[0, "hat1", 687, -3, [null, 1]], [1, "pendown", 699, 47, [0, 2]], [2, "setcolor", 699, 86, [1, 44, 3]], [3, "repeat", 699, 140, [2, 4, 5, null]], [4, ["number", "4"], 785, 149, [3, null]], [5, "setcolor", 794, 189, [3, 6, 9]], [6, "color", 868, 206, [5, 7]], [7, "minus", 961, 198, [6, 8]], [8, ["number", "2"], 1000, 206, [7, null]], [9, "ifelse", 794, 243, [5, 10, 12, 21, null]], [10, "greater", 874, 253, [9, 11, 25, null]], [11, "box1", 906, 262, [10, null]], [12, "vspace", 889, 317, [9, 13]], [13, "storeinbox1", 889, 386, [12, 38, 14]], [14, "stack1", 889, 440, [13, 15]], [15, "penup", 889, 479, [14, 16]], [16, "forward", 889, 518, [15, 17, 18]], [17, "box1", 963, 527, [16, null]], [18, "stack1", 889, 557, [16, 19]], [19, "penup", 889, 596, [18, 20]], [20, "forward", 889, 635, [19, 41, 47]], [21, "forward", 974, 317, [9, 22, 23]], [22, "box1", 1048, 326, [21, null]], [23, "right", 974, 356, [21, 24, null]], [24, ["number", "90"], 1048, 365, [23, null]], [25, ["number", "10"], 1055, 262, [10, null]], [26, "clean", 699, 361, [37, 27]], [27, "setpensize", 699, 400, [26, 28, 29]], [28, ["number", "1"], 773, 417, [27, null]], [29, "setxy", 699, 454, [27, 30, 31, 32]], [30, ["number", "130"], 773, 463, [29, null]], [31, ["number", "-440"], 773, 500, [29, null]], [32, "left", 699, 530, [29, 33, 34]], [33, ["number", "90"], 773, 539, [32, null]], [34, "storeinbox1", 699, 569, [32, 35, 36]], [35, ["number", "729"], 773, 586, [34, null]], [36, "stack1", 699, 623, [34, null]], [37, "start", 687, 311, [null, 26]], [38, "division2", 963, 379, [13, 39, 40]], [39, "box1", 1003, 387, [38, null]], [40, ["number", "3"], 1022, 420, [38, null]], [41, "product2", 963, 620, [20, 42, 43]], [42, "box1", 1003, 628, [41, null]], [43, ["number", "2"], 1003, 661, [41, null]], [44, "plus2", 773, 79, [2, 45, 46]], [45, "color", 813, 87, [44, null]], [46, ["number", "8"], 813, 120, [44, null]], [47, "vspace", 889, 674, [20, 48]], [48, "storeinbox1", 889, 743, [47, 49, 52]], [49, "product2", 963, 736, [48, 50, 51]], [50, "box1", 1003, 744, [49, null]], [51, ["number", "3"], 1003, 777, [49, null]], [52, "right", 889, 797, [48, 53, null]], [53, ["number", "90"], 963, 806, [52, null]], [-1, "turtle", 130.00000000000065, -440.00000000000091, 270.0, 0.0, 50, 1.0]] \ No newline at end of file diff --git a/samples/sierpquad2.ta b/samples/sierpquad2.ta index ede1a22..86e2a7d 100644 --- a/samples/sierpquad2.ta +++ b/samples/sierpquad2.ta @@ -1,695 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I512 -I-8 -(lp2 -NaI1 -atp3 -a(I1 -S'penup' -p4 -I524 -I42 -(lp5 -I0 -aI2 -atp6 -a(I2 -S'setcolor' -p7 -I524 -I81 -(lp8 -I1 -aI3 -aI6 -atp9 -a(I3 -S'color' -p10 -I598 -I98 -(lp11 -I2 -aI4 -atp12 -a(I4 -S'plus' -p13 -I691 -I90 -(lp14 -I3 -aI5 -atp15 -a(I5 -(S'number' -p16 -S'8' -p17 -tp18 -I730 -I98 -(lp19 -I4 -aNatp20 -a(I6 -S'storeinbox1' -p21 -I524 -I135 -(lp22 -I2 -aI7 -aI10 -atp23 -a(I7 -S'box1' -p24 -I598 -I152 -(lp25 -I6 -aI8 -atp26 -a(I8 -S'division' -p27 -I691 -I144 -(lp28 -I7 -aI9 -atp29 -a(I9 -(g16 -S'3' -p30 -tp31 -I730 -I152 -(lp32 -I8 -aNatp33 -a(I10 -S'repeat' -p34 -I524 -I189 -(lp35 -I6 -aI11 -aI12 -aI53 -atp36 -a(I11 -(g16 -S'4' -p37 -tp38 -I610 -I198 -(lp39 -I10 -aNatp40 -a(I12 -S'hspace' -p41 -I619 -I229 -(lp42 -I10 -aI13 -atp43 -a(I13 -g41 -I710 -I228 -(lp44 -I12 -aI14 -atp45 -a(I14 -g7 -I801 -I236 -(lp46 -I13 -aI15 -aI18 -atp47 -a(I15 -g10 -I875 -I253 -(lp48 -I14 -aI16 -atp49 -a(I16 -S'minus' -p50 -I968 -I245 -(lp51 -I15 -aI17 -atp52 -a(I17 -(g16 -S'2' -p53 -tp54 -I1007 -I253 -(lp55 -I16 -aNatp56 -a(I18 -S'if' -p57 -I801 -I290 -(lp58 -I14 -aI19 -aI21 -aI41 -atp59 -a(I19 -S'greater' -p60 -I881 -I300 -(lp61 -I18 -aI20 -aI69 -aNatp62 -a(I20 -g24 -I913 -I309 -(lp63 -I19 -aNatp64 -a(I21 -S'stack1' -p65 -I896 -I364 -(lp66 -I18 -aI22 -atp67 -a(I22 -S'forward' -p68 -I896 -I403 -(lp69 -I21 -aI23 -aI24 -atp70 -a(I23 -g24 -I970 -I412 -(lp71 -I22 -aNatp72 -a(I24 -g65 -I896 -I442 -(lp73 -I22 -aI25 -atp74 -a(I25 -g34 -I896 -I481 -(lp75 -I24 -aI26 -aI27 -aI31 -atp76 -a(I26 -(g16 -S'2' -p77 -tp78 -I982 -I490 -(lp79 -I25 -aNatp80 -a(I27 -g68 -I991 -I530 -(lp81 -I25 -aI28 -aI29 -atp82 -a(I28 -g24 -I1065 -I539 -(lp83 -I27 -aNatp84 -a(I29 -S'right' -p85 -I991 -I569 -(lp86 -I27 -aI30 -aNatp87 -a(I30 -(g16 -S'90' -p88 -tp89 -I1065 -I578 -(lp90 -I29 -aNatp91 -a(I31 -S'pendown' -p92 -I896 -I571 -(lp93 -I25 -aI32 -atp94 -a(I32 -g68 -I896 -I610 -(lp95 -I31 -aI33 -aI34 -atp96 -a(I33 -g24 -I970 -I619 -(lp97 -I32 -aNatp98 -a(I34 -g4 -I896 -I649 -(lp99 -I32 -aI35 -atp100 -a(I35 -g34 -I896 -I688 -(lp101 -I34 -aI36 -aI37 -aNatp102 -a(I36 -(g16 -g77 -tp103 -I982 -I697 -(lp104 -I35 -aNatp105 -a(I37 -g68 -I991 -I737 -(lp106 -I35 -aI38 -aI39 -atp107 -a(I38 -g24 -I1065 -I746 -(lp108 -I37 -aNatp109 -a(I39 -g85 -I991 -I776 -(lp110 -I37 -aI40 -aNatp111 -a(I40 -(g16 -S'90' -p112 -tp113 -I1065 -I785 -(lp114 -I39 -aNatp115 -a(I41 -S'vspace' -p116 -I801 -I405 -(lp117 -I18 -aI42 -atp118 -a(I42 -g116 -I801 -I474 -(lp119 -I41 -aI43 -atp120 -a(I43 -g116 -I801 -I543 -(lp121 -I42 -aI44 -atp122 -a(I44 -g116 -I801 -I612 -(lp123 -I43 -aI45 -atp124 -a(I45 -g116 -I801 -I681 -(lp125 -I44 -aI46 -atp126 -a(I46 -g116 -I801 -I750 -(lp127 -I45 -aI47 -atp128 -a(I47 -g68 -I801 -I819 -(lp129 -I46 -aI48 -aI51 -atp130 -a(I48 -g24 -I875 -I828 -(lp131 -I47 -aI49 -atp132 -a(I49 -S'product' -p133 -I968 -I820 -(lp134 -I48 -aI50 -atp135 -a(I50 -(g16 -S'3' -p136 -tp137 -I1007 -I828 -(lp138 -I49 -aNatp139 -a(I51 -g85 -I801 -I858 -(lp140 -I47 -aI52 -aNatp141 -a(I52 -(g16 -S'90' -p142 -tp143 -I875 -I867 -(lp144 -I51 -aNatp145 -a(I53 -g21 -I524 -I279 -(lp146 -I10 -aI54 -aNatp147 -a(I54 -g24 -I598 -I296 -(lp148 -I53 -aI55 -atp149 -a(I55 -g133 -I691 -I288 -(lp150 -I54 -aI56 -atp151 -a(I56 -(g16 -g30 -tp152 -I730 -I296 -(lp153 -I55 -aNatp154 -a(I57 -S'clean' -p155 -I512 -I373 -(lp156 -NaI58 -atp157 -a(I58 -S'setpensize' -p158 -I512 -I412 -(lp159 -I57 -aI59 -aI60 -atp160 -a(I59 -(g16 -S'1' -p161 -tp162 -I586 -I429 -(lp163 -I58 -aNatp164 -a(I60 -S'setxy' -p165 -I512 -I466 -(lp166 -I58 -aI68 -aI67 -aI61 -atp167 -a(I61 -S'left' -p168 -I512 -I542 -(lp169 -I60 -aI62 -aI63 -atp170 -a(I62 -(g16 -S'90' -p171 -tp172 -I586 -I551 -(lp173 -I61 -aNatp174 -a(I63 -g21 -I512 -I581 -(lp175 -I61 -aI64 -aI65 -atp176 -a(I64 -(g16 -S'729' -p177 -tp178 -I586 -I598 -(lp179 -I63 -aNatp180 -a(I65 -g65 -I512 -I635 -(lp181 -I63 -aI66 -atp182 -a(I66 -g92 -I512 -I674 -(lp183 -I65 -aI70 -atp184 -a(I67 -(g16 -S'-375' -p185 -tp186 -I586 -I512 -(lp187 -I60 -aNatp188 -a(I68 -(g16 -S'350' -p189 -tp190 -I586 -I475 -(lp191 -I60 -aNatp192 -a(I69 -(g16 -S'1' -p193 -tp194 -I1062 -I309 -(lp195 -I19 -aNatp196 -a(I70 -g34 -I512 -I713 -(lp197 -I66 -aI71 -aI72 -aNatp198 -a(I71 -(g16 -S'4' -p199 -tp200 -I598 -I722 -(lp201 -I70 -aNatp202 -a(I72 -g68 -I607 -I762 -(lp203 -I70 -aI73 -aI74 -atp204 -a(I73 -g24 -I681 -I771 -(lp205 -I72 -aNatp206 -a(I74 -g85 -I607 -I801 -(lp207 -I72 -aI75 -aNatp208 -a(I75 -(g16 -S'90' -p209 -tp210 -I681 -I810 -(lp211 -I74 -aNatp212 -a(I-1 -S'turtle' -p213 -F350.00000000000148 -F-375.00000000000279 -F270.0 -F0.0 -I50 -F1.0 -tp214 -a. \ No newline at end of file +[[0, "start", 227, 13, [null, 1]], [1, "clean", 239, 63, [0, 2]], [2, "setpensize", 239, 102, [1, 3, 4]], [3, ["number", "1"], 313, 119, [2, null]], [4, "setxy", 239, 156, [2, 5, 6, 7]], [5, ["number", "350"], 313, 165, [4, null]], [6, ["number", "-375"], 313, 202, [4, null]], [7, "left", 239, 232, [4, 8, 9]], [8, ["number", "90"], 313, 241, [7, null]], [9, "storeinbox1", 239, 271, [7, 10, 11]], [10, ["number", "729"], 313, 288, [9, null]], [11, "stack1", 239, 325, [9, 12]], [12, "pendown", 239, 364, [11, 13]], [13, "repeat", 239, 403, [12, 14, 15, null]], [14, ["number", "4"], 325, 412, [13, null]], [15, "forward", 334, 452, [13, 16, 17]], [16, "box1", 408, 461, [15, null]], [17, "right", 334, 491, [15, 18, null]], [18, ["number", "90"], 408, 500, [17, null]], [19, "hat1", 452, 35, [null, 20]], [20, "penup", 464, 85, [19, 21]], [21, "setcolor", 464, 124, [20, 66, 22]], [22, "storeinbox1", 464, 178, [21, 69, 23]], [23, "repeat", 464, 232, [22, 24, 25, 41]], [24, ["number", "4"], 550, 241, [23, null]], [25, "hspace", 559, 272, [23, 26]], [26, "setcolor", 650, 280, [25, 27, 30]], [27, "color", 724, 297, [26, 28]], [28, "minus", 817, 289, [27, 29]], [29, ["number", "2"], 856, 297, [28, null]], [30, "if", 650, 334, [26, 31, 34, 35]], [31, "greater", 730, 344, [30, 32, 33, null]], [32, "box1", 762, 353, [31, null]], [33, ["number", "1"], 911, 353, [31, null]], [34, "stack2", 745, 408, [30, null]], [35, "forward", 650, 449, [30, 36, 39]], [36, "product2", 724, 434, [35, 37, 38]], [37, "box1", 764, 442, [36, null]], [38, ["number", "3"], 764, 475, [36, null]], [39, "right", 650, 488, [35, 40, null]], [40, ["number", "90"], 724, 497, [39, null]], [41, "storeinbox1", 464, 322, [23, 42, null]], [42, "product2", 538, 315, [41, 43, 44]], [43, "box1", 578, 323, [42, null]], [44, ["number", "3"], 578, 356, [42, null]], [45, "hat2", 833, 26, [null, 46]], [46, "stack1", 845, 76, [45, 47]], [47, "forward", 845, 115, [46, 48, 49]], [48, "box1", 919, 124, [47, null]], [49, "stack1", 845, 154, [47, 50]], [50, "repeat", 845, 193, [49, 51, 52, 56]], [51, ["number", "2"], 931, 202, [50, null]], [52, "forward", 940, 242, [50, 53, 54]], [53, "box1", 1014, 251, [52, null]], [54, "right", 940, 281, [52, 55, null]], [55, ["number", "90"], 1014, 290, [54, null]], [56, "pendown", 845, 283, [50, 57]], [57, "forward", 845, 322, [56, 58, 59]], [58, "box1", 919, 331, [57, null]], [59, "penup", 845, 361, [57, 60]], [60, "repeat", 845, 400, [59, 61, 62, null]], [61, ["number", "2"], 931, 409, [60, null]], [62, "forward", 940, 449, [60, 63, 64]], [63, "box1", 1014, 458, [62, null]], [64, "right", 940, 488, [62, 65, null]], [65, ["number", "90"], 1014, 497, [64, null]], [66, "plus2", 538, 117, [21, 67, 68]], [67, "color", 578, 125, [66, null]], [68, ["number", "8"], 578, 158, [66, null]], [69, "division2", 538, 171, [22, 70, 71]], [70, "box1", 578, 179, [69, null]], [71, ["number", "3"], 597, 212, [69, null]], [-1, "turtle", -303.99999999999949, -303.00000000000051, 0.0, 18.0, 50, 1.0]] \ No newline at end of file diff --git a/samples/sierptri.ta b/samples/sierptri.ta index 25a258b..5e60749 100644 --- a/samples/sierptri.ta +++ b/samples/sierptri.ta @@ -1,416 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I688 -I-4 -(lp2 -NaI1 -atp3 -a(I1 -S'pendown' -p4 -I700 -I46 -(lp5 -I0 -aI2 -atp6 -a(I2 -S'setcolor' -p7 -I700 -I85 -(lp8 -I1 -aI3 -aI6 -atp9 -a(I3 -S'color' -p10 -I774 -I102 -(lp11 -I2 -aI4 -atp12 -a(I4 -S'plus' -p13 -I867 -I94 -(lp14 -I3 -aI5 -atp15 -a(I5 -(S'number' -p16 -S'6' -p17 -tp18 -I906 -I102 -(lp19 -I4 -aNatp20 -a(I6 -S'repeat' -p21 -I700 -I139 -(lp22 -I2 -aI7 -aI8 -aNatp23 -a(I7 -(g16 -S'3' -p24 -tp25 -I786 -I148 -(lp26 -I6 -aNatp27 -a(I8 -g7 -I795 -I188 -(lp28 -I6 -aI9 -aI12 -atp29 -a(I9 -g10 -I869 -I205 -(lp30 -I8 -aI10 -atp31 -a(I10 -S'minus' -p32 -I962 -I197 -(lp33 -I9 -aI11 -atp34 -a(I11 -(g16 -S'2' -p35 -tp36 -I1001 -I205 -(lp37 -I10 -aNatp38 -a(I12 -S'if' -p39 -I795 -I242 -(lp40 -I8 -aI13 -aI16 -aI26 -atp41 -a(I13 -S'greater' -p42 -I875 -I252 -(lp43 -I12 -aI14 -aI15 -aNatp44 -a(I14 -S'box1' -p45 -I907 -I261 -(lp46 -I13 -aNatp47 -a(I15 -(g16 -S'16' -p48 -tp49 -I1056 -I261 -(lp50 -I13 -aNatp51 -a(I16 -S'storeinbox1' -p52 -I890 -I316 -(lp53 -I12 -aI17 -aI20 -atp54 -a(I17 -g45 -I964 -I333 -(lp55 -I16 -aI18 -atp56 -a(I18 -S'division' -p57 -I1057 -I325 -(lp58 -I17 -aI19 -atp59 -a(I19 -(g16 -g35 -tp60 -I1096 -I333 -(lp61 -I18 -aNatp62 -a(I20 -S'stack1' -p63 -I890 -I370 -(lp64 -I16 -aI21 -atp65 -a(I21 -g52 -I890 -I409 -(lp66 -I20 -aI22 -aI25 -atp67 -a(I22 -g45 -I964 -I426 -(lp68 -I21 -aI23 -atp69 -a(I23 -S'product' -p70 -I1057 -I418 -(lp71 -I22 -aI24 -atp72 -a(I24 -(g16 -g35 -tp73 -I1096 -I426 -(lp74 -I23 -aNatp75 -a(I25 -S'penup' -p76 -I890 -I463 -(lp77 -I21 -aNatp78 -a(I26 -S'vspace' -p79 -I795 -I357 -(lp80 -I12 -aI27 -atp81 -a(I27 -g79 -I795 -I426 -(lp82 -I26 -aI28 -atp83 -a(I28 -g79 -I795 -I495 -(lp84 -I27 -aI29 -atp85 -a(I29 -S'forward' -p86 -I795 -I564 -(lp87 -I28 -aI30 -aI31 -atp88 -a(I30 -g45 -I869 -I573 -(lp89 -I29 -aNatp90 -a(I31 -S'right' -p91 -I795 -I603 -(lp92 -I29 -aI32 -aNatp93 -a(I32 -(g16 -S'120' -p94 -tp95 -I869 -I612 -(lp96 -I31 -aNatp97 -a(I33 -S'clean' -p98 -I519 -I1 -(lp99 -NaI34 -atp100 -a(I34 -S'setpensize' -p101 -I519 -I40 -(lp102 -I33 -aI35 -aI36 -atp103 -a(I35 -(g16 -g35 -tp104 -I593 -I57 -(lp105 -I34 -aNatp106 -a(I36 -S'setxy' -p107 -I519 -I94 -(lp108 -I34 -aI37 -aI38 -aI39 -atp109 -a(I37 -(g16 -S'200' -p110 -tp111 -I593 -I103 -(lp112 -I36 -aNatp113 -a(I38 -(g16 -S'-375' -p114 -tp115 -I593 -I140 -(lp116 -I36 -aNatp117 -a(I39 -S'left' -p118 -I519 -I170 -(lp119 -I36 -aI40 -aI41 -atp120 -a(I40 -(g16 -S'90' -p121 -tp122 -I593 -I179 -(lp123 -I39 -aNatp124 -a(I41 -g52 -I519 -I209 -(lp125 -I39 -aI42 -aI43 -atp126 -a(I42 -(g16 -S'768' -p127 -tp128 -I593 -I226 -(lp129 -I41 -aNatp130 -a(I43 -g63 -I519 -I263 -(lp131 -I41 -aNatp132 -a(I-1 -S'turtle' -p133 -F199.9999999999994 -F-375.00000000000165 -F270.0 -F0.0 -I50 -F2.0 -tp134 -a. \ No newline at end of file +[[0, "hat1", 688, -4, [null, 1]], [1, "pendown", 700, 46, [0, 2]], [2, "setcolor", 700, 85, [1, 33, 3]], [3, "repeat", 700, 139, [2, 4, 5, null]], [4, ["number", "3"], 786, 148, [3, null]], [5, "setcolor", 795, 188, [3, 36, 6]], [6, "if", 795, 242, [5, 7, 10, 14]], [7, "greater", 875, 252, [6, 8, 9, null]], [8, "box1", 907, 261, [7, null]], [9, ["number", "16"], 1056, 261, [7, null]], [10, "storeinbox1", 890, 316, [6, 39, 11]], [11, "stack1", 890, 370, [10, 12]], [12, "storeinbox1", 890, 409, [11, 42, 13]], [13, "penup", 890, 463, [12, null]], [14, "vspace", 795, 357, [6, 15]], [15, "vspace", 795, 426, [14, 16]], [16, "vspace", 795, 495, [15, 17]], [17, "forward", 795, 564, [16, 18, 19]], [18, "box1", 869, 573, [17, null]], [19, "right", 795, 603, [17, 20, null]], [20, ["number", "120"], 869, 612, [19, null]], [21, "start", 490, 16, [null, 22]], [22, "clean", 502, 66, [21, 23]], [23, "setpensize", 502, 105, [22, 24, 25]], [24, ["number", "2"], 576, 122, [23, null]], [25, "setxy", 502, 159, [23, 26, 27, 28]], [26, ["number", "200"], 576, 168, [25, null]], [27, ["number", "-375"], 576, 205, [25, null]], [28, "left", 502, 235, [25, 29, 30]], [29, ["number", "90"], 576, 244, [28, null]], [30, "storeinbox1", 502, 274, [28, 31, 32]], [31, ["number", "768"], 576, 291, [30, null]], [32, "stack1", 502, 328, [30, null]], [33, "plus2", 774, 78, [2, 34, 35]], [34, "color", 814, 86, [33, null]], [35, ["number", "6"], 814, 119, [33, null]], [36, "minus2", 869, 181, [5, 37, 38]], [37, "color", 909, 189, [36, null]], [38, ["number", "2"], 928, 222, [36, null]], [39, "division2", 964, 309, [10, 40, 41]], [40, "box1", 1004, 317, [39, null]], [41, ["number", "2"], 1023, 350, [39, null]], [42, "product2", 964, 402, [12, 43, 44]], [43, "box1", 1004, 410, [42, null]], [44, ["number", "2"], 1004, 443, [42, null]], [-1, "turtle", 199.9999999999994, -375.00000000000165, 270.0, 0.0, 50, 2.0]] \ No newline at end of file diff --git a/samples/smoothcandy.ta b/samples/smoothcandy.ta index 5002195..5e791ea 100644 --- a/samples/smoothcandy.ta +++ b/samples/smoothcandy.ta @@ -1,243 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I212 -I39 -(lp2 -NaI1 -atp3 -a(I1 -S'repeat' -p4 -I212 -I78 -(lp5 -I0 -aI2 -aI3 -aNatp6 -a(I2 -(S'number' -p7 -I350 -tp8 -I298 -I87 -(lp9 -I1 -aNatp10 -a(I3 -S'setpensize' -p11 -I307 -I127 -(lp12 -I1 -aI4 -aI7 -atp13 -a(I4 -S'heading' -p14 -I381 -I144 -(lp15 -I3 -aI5 -atp16 -a(I5 -S'plus' -p17 -I474 -I136 -(lp18 -I4 -aI6 -atp19 -a(I6 -(g7 -I4 -tp20 -I513 -I144 -(lp21 -I5 -aNatp22 -a(I7 -S'forward' -p23 -I307 -I181 -(lp24 -I3 -aI8 -aI9 -atp25 -a(I8 -(g7 -S'1000' -p26 -tp27 -I381 -I190 -(lp28 -I7 -aNatp29 -a(I9 -S'setcolor' -p30 -I307 -I220 -(lp31 -I7 -aI10 -aI13 -atp32 -a(I10 -g14 -I381 -I237 -(lp33 -I9 -aI11 -atp34 -a(I11 -S'division' -p35 -I474 -I229 -(lp36 -I10 -aI12 -atp37 -a(I12 -(g7 -I3 -tp38 -I513 -I237 -(lp39 -I11 -aNatp40 -a(I13 -S'storeinbox1' -p41 -I307 -I274 -(lp42 -I9 -aI14 -aI17 -atp43 -a(I14 -g14 -I381 -I291 -(lp44 -I13 -aI15 -atp45 -a(I15 -g35 -I474 -I283 -(lp46 -I14 -aI16 -atp47 -a(I16 -(g7 -I2 -tp48 -I513 -I291 -(lp49 -I15 -aNatp50 -a(I17 -S'setshade' -p51 -I307 -I328 -(lp52 -I13 -aI18 -aI21 -atp53 -a(I18 -(g7 -I100 -tp54 -I381 -I345 -(lp55 -I17 -aI19 -atp56 -a(I19 -S'minus' -p57 -I474 -I337 -(lp58 -I18 -aI20 -atp59 -a(I20 -S'box1' -p60 -I513 -I345 -(lp61 -I19 -aNatp62 -a(I21 -S'back' -p63 -I307 -I382 -(lp64 -I17 -aI22 -aI23 -atp65 -a(I22 -(g7 -S'1000' -p66 -tp67 -I381 -I391 -(lp68 -I21 -aNatp69 -a(I23 -S'left' -p70 -I307 -I421 -(lp71 -I21 -aI24 -aNatp72 -a(I24 -(g7 -I1 -tp73 -I381 -I430 -(lp74 -I23 -aNatp75 -a(I-1 -S'turtle' -p76 -I-563 -I412 -F10.0 -F3.6666666666666665 -F94.5 -F15.0 -tp77 -a. \ No newline at end of file +[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 562.0, -180.0, 0.0, 87.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/snowflake.ta b/samples/snowflake.ta index 055573d..db11cdd 100644 --- a/samples/snowflake.ta +++ b/samples/snowflake.ta @@ -1,461 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I783 -I-1 -(lp2 -NaI1 -atp3 -a(I1 -S'ifelse' -p4 -I795 -I49 -(lp5 -I0 -aI2 -aI4 -aI12 -aNatp6 -a(I2 -S'greater' -p7 -I875 -I59 -(lp8 -I1 -aI3 -aI33 -aNatp9 -a(I3 -S'box1' -p10 -I907 -I68 -(lp11 -I2 -aNatp12 -a(I4 -S'vspace' -p13 -I890 -I123 -(lp14 -I1 -aI5 -atp15 -a(I5 -S'storeinbox1' -p16 -I890 -I192 -(lp17 -I4 -aI6 -aI9 -atp18 -a(I6 -g10 -I964 -I209 -(lp19 -I5 -aI7 -atp20 -a(I7 -S'division' -p21 -I1057 -I201 -(lp22 -I6 -aI8 -atp23 -a(I8 -(S'number' -p24 -S'3' -p25 -tp26 -I1096 -I209 -(lp27 -I7 -aNatp28 -a(I9 -S'stack1' -p29 -I890 -I246 -(lp30 -I5 -aI10 -atp31 -a(I10 -S'left' -p32 -I890 -I285 -(lp33 -I9 -aI11 -aI14 -atp34 -a(I11 -(g24 -S'60' -p35 -tp36 -I964 -I294 -(lp37 -I10 -aNatp38 -a(I12 -S'forward' -p39 -I975 -I123 -(lp40 -I1 -aI13 -aNatp41 -a(I13 -g10 -I1049 -I132 -(lp42 -I12 -aNatp43 -a(I14 -S'setcolor' -p44 -I890 -I324 -(lp45 -I10 -aI15 -aI17 -atp46 -a(I15 -S'color' -p47 -I964 -I341 -(lp48 -I14 -aI16 -atp49 -a(I16 -S'plus' -p50 -I1057 -I333 -(lp51 -I15 -aI31 -atp52 -a(I17 -g29 -I890 -I378 -(lp53 -I14 -aI18 -atp54 -a(I18 -S'right' -p55 -I890 -I417 -(lp56 -I17 -aI19 -aI20 -atp57 -a(I19 -(g24 -S'120' -p58 -tp59 -I964 -I426 -(lp60 -I18 -aNatp61 -a(I20 -g29 -I890 -I456 -(lp62 -I18 -aI21 -atp63 -a(I21 -g44 -I890 -I495 -(lp64 -I20 -aI22 -aI24 -atp65 -a(I22 -g47 -I964 -I512 -(lp66 -I21 -aI23 -atp67 -a(I23 -S'minus' -p68 -I1057 -I504 -(lp69 -I22 -aI32 -atp70 -a(I24 -g32 -I890 -I549 -(lp71 -I21 -aI25 -aI26 -atp72 -a(I25 -(g24 -S'60' -p73 -tp74 -I964 -I558 -(lp75 -I24 -aNatp76 -a(I26 -g29 -I890 -I588 -(lp77 -I24 -aI27 -atp78 -a(I27 -g16 -I890 -I627 -(lp79 -I26 -aI28 -aNatp80 -a(I28 -g10 -I964 -I644 -(lp81 -I27 -aI29 -atp82 -a(I29 -S'product' -p83 -I1057 -I636 -(lp84 -I28 -aI30 -atp85 -a(I30 -(g24 -g25 -tp86 -I1096 -I644 -(lp87 -I29 -aNatp88 -a(I31 -(g24 -S'7' -p89 -tp90 -I1096 -I341 -(lp91 -I16 -aNatp92 -a(I32 -(g24 -g89 -tp93 -I1096 -I512 -(lp94 -I23 -aNatp95 -a(I33 -(g24 -g25 -tp96 -I1056 -I68 -(lp97 -I2 -aNatp98 -a(I34 -S'clean' -p99 -I375 -I238 -(lp100 -NaI35 -atp101 -a(I35 -S'setpensize' -p102 -I375 -I277 -(lp103 -I34 -aI36 -aI37 -atp104 -a(I36 -(g24 -g25 -tp105 -I449 -I294 -(lp106 -I35 -aNatp107 -a(I37 -S'setxy' -p108 -I375 -I331 -(lp109 -I35 -aI38 -aI39 -aI40 -atp110 -a(I38 -(g24 -S'200' -p111 -tp112 -I449 -I340 -(lp113 -I37 -aNatp114 -a(I39 -(g24 -S'-220' -p115 -tp116 -I449 -I377 -(lp117 -I37 -aNatp118 -a(I40 -g32 -I375 -I407 -(lp119 -I37 -aI41 -aI42 -atp120 -a(I41 -(g24 -S'90' -p121 -tp122 -I449 -I416 -(lp123 -I40 -aNatp124 -a(I42 -g16 -I375 -I446 -(lp125 -I40 -aI43 -aI44 -atp126 -a(I43 -(g24 -S'729' -p127 -tp128 -I449 -I463 -(lp129 -I42 -aNatp130 -a(I44 -S'repeat' -p131 -I375 -I500 -(lp132 -I42 -aI45 -aI46 -aNatp133 -a(I45 -(g24 -g25 -tp134 -I461 -I509 -(lp135 -I44 -aNatp136 -a(I46 -g29 -I470 -I549 -(lp137 -I44 -aI47 -atp138 -a(I47 -g55 -I470 -I588 -(lp139 -I46 -aI48 -aNatp140 -a(I48 -(g24 -S'120' -p141 -tp142 -I544 -I597 -(lp143 -I47 -aNatp144 -a(I-1 -S'turtle' -p145 -F200.0 -F-220.00000000000006 -F270.0 -F0.0 -I50 -F3.0 -tp146 -a. \ No newline at end of file +[[0, "hat1", 783, -1, [null, 1]], [1, "ifelse", 795, 49, [0, 2, 4, 9, null]], [2, "greater", 875, 59, [1, 3, 21, null]], [3, "box1", 907, 68, [2, null]], [4, "vspace", 890, 123, [1, 5]], [5, "storeinbox1", 890, 192, [4, 38, 6]], [6, "stack1", 890, 246, [5, 7]], [7, "left", 890, 285, [6, 8, 11]], [8, ["number", "60"], 964, 294, [7, null]], [9, "forward", 975, 123, [1, 10, null]], [10, "box1", 1049, 132, [9, null]], [11, "setcolor", 890, 324, [7, 41, 12]], [12, "stack1", 890, 378, [11, 13]], [13, "right", 890, 417, [12, 14, 15]], [14, ["number", "120"], 964, 426, [13, null]], [15, "stack1", 890, 456, [13, 16]], [16, "setcolor", 890, 495, [15, 44, 17]], [17, "left", 890, 549, [16, 18, 19]], [18, ["number", "60"], 964, 558, [17, null]], [19, "stack1", 890, 588, [17, 20]], [20, "storeinbox1", 890, 627, [19, 47, null]], [21, ["number", "3"], 1056, 68, [2, null]], [22, "clean", 375, 238, [37, 23]], [23, "setpensize", 375, 277, [22, 24, 25]], [24, ["number", "3"], 449, 294, [23, null]], [25, "setxy", 375, 331, [23, 26, 27, 28]], [26, ["number", "200"], 449, 340, [25, null]], [27, ["number", "-220"], 449, 377, [25, null]], [28, "left", 375, 407, [25, 29, 30]], [29, ["number", "90"], 449, 416, [28, null]], [30, "storeinbox1", 375, 446, [28, 31, 32]], [31, ["number", "729"], 449, 463, [30, null]], [32, "repeat", 375, 500, [30, 33, 34, null]], [33, ["number", "3"], 461, 509, [32, null]], [34, "stack1", 470, 549, [32, 35]], [35, "right", 470, 588, [34, 36, null]], [36, ["number", "120"], 544, 597, [35, null]], [37, "start", 363, 188, [null, 22]], [38, "division2", 964, 185, [5, 39, 40]], [39, "box1", 1004, 193, [38, null]], [40, ["number", "3"], 1023, 226, [38, null]], [41, "plus2", 964, 317, [11, 42, 43]], [42, "color", 1004, 325, [41, null]], [43, ["number", "7"], 1004, 358, [41, null]], [44, "minus2", 964, 488, [16, 45, 46]], [45, "color", 1004, 496, [44, null]], [46, ["number", "7"], 1023, 529, [44, null]], [47, "product2", 964, 620, [20, 48, 49]], [48, "box1", 1004, 628, [47, null]], [49, ["number", "3"], 1004, 661, [47, null]], [-1, "turtle", 200.0, -220.00000000000006, 270.0, 0.0, 50, 3.0]] \ No newline at end of file diff --git a/samples/square.ta b/samples/square.ta index 6f394b2..60273be 100644 --- a/samples/square.ta +++ b/samples/square.ta @@ -1,68 +1 @@ -(lp0 -(I0 -S'repeat' -p1 -I245 -I139 -(lp2 -NaI1 -aI2 -aNatp3 -a(I1 -(S'number' -p4 -I4 -tp5 -I331 -I148 -(lp6 -I0 -aNatp7 -a(I2 -S'forward' -p8 -I340 -I188 -(lp9 -I0 -aI3 -aI4 -atp10 -a(I3 -(g4 -I200 -tp11 -I414 -I197 -(lp12 -I2 -aNatp13 -a(I4 -S'right' -p14 -I340 -I227 -(lp15 -I2 -aI5 -aNatp16 -a(I5 -(g4 -I90 -tp17 -I414 -I236 -(lp18 -I4 -aNatp19 -a(I-1 -S'turtle' -p20 -F2.8421709430404007e-14 -F-3.6738190614671318e-14 -F0.0 -I0 -I50 -I5 -tp21 -a. \ No newline at end of file +[[0, "repeat", 245, 139, [null, 1, 2, null]], [1, ["number", 4], 331, 148, [0, null]], [2, "forward", 340, 188, [0, 3, 4]], [3, ["number", 200], 414, 197, [2, null]], [4, "right", 340, 227, [2, 5, null]], [5, ["number", 90], 414, 236, [4, null]], [-1, "turtle", 8.5265128291212022e-14, -9.3581609475479333e-14, 0.0, 0, 50, 5]] \ No newline at end of file diff --git a/samples/squares.ta b/samples/squares.ta index e8e86f0..39b9608 100644 --- a/samples/squares.ta +++ b/samples/squares.ta @@ -1,123 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I261 -I118 -(lp2 -NaI1 -atp3 -a(I1 -S'repeat' -p4 -I261 -I157 -(lp5 -I0 -aI2 -aI3 -aNatp6 -a(I2 -(S'number' -p7 -I36 -tp8 -I347 -I166 -(lp9 -I1 -aNatp10 -a(I3 -g4 -I356 -I206 -(lp11 -I1 -aI4 -aI5 -aI9 -atp12 -a(I4 -(g7 -I4 -tp13 -I442 -I215 -(lp14 -I3 -aNatp15 -a(I5 -S'forward' -p16 -I451 -I255 -(lp17 -I3 -aI6 -aI7 -atp18 -a(I6 -(g7 -S'300' -p19 -tp20 -I525 -I264 -(lp21 -I5 -aNatp22 -a(I7 -S'right' -p23 -I451 -I294 -(lp24 -I5 -aI8 -aNatp25 -a(I8 -(g7 -I90 -tp26 -I525 -I303 -(lp27 -I7 -aNatp28 -a(I9 -S'vspace' -p29 -I356 -I296 -(lp30 -I3 -aI10 -atp31 -a(I10 -g23 -I356 -I365 -(lp32 -I9 -aI11 -aNatp33 -a(I11 -(g7 -I10 -tp34 -I430 -I374 -(lp35 -I10 -aNatp36 -a(I-1 -S'turtle' -p37 -F-2.8421709430404007e-13 -F-1.0587086762825493e-12 -F0.0 -I0 -I50 -I5 -tp38 -a. \ No newline at end of file +[[0, "clean", 261, 118, [null, 1]], [1, "repeat", 261, 157, [0, 2, 3, null]], [2, ["number", 36], 347, 166, [1, null]], [3, "repeat", 356, 206, [1, 4, 5, 9]], [4, ["number", 4], 442, 215, [3, null]], [5, "forward", 451, 255, [3, 6, 7]], [6, ["number", "300"], 525, 264, [5, null]], [7, "right", 451, 294, [5, 8, null]], [8, ["number", 90], 525, 303, [7, null]], [9, "vspace", 356, 296, [3, 10]], [10, "right", 356, 365, [9, 11, null]], [11, ["number", 10], 430, 374, [10, null]], [-1, "turtle", -2.8421709430404007e-13, -1.0587086762825493e-12, 0.0, 0, 50, 5]] \ No newline at end of file diff --git a/samples/squiral.ta b/samples/squiral.ta index 0dda1a5..bec4abd 100644 --- a/samples/squiral.ta +++ b/samples/squiral.ta @@ -1,131 +1 @@ -(lp0 -(I0 -S'clean' -p1 -I258 -I72 -(lp2 -NaI1 -atp3 -a(I1 -S'storeinbox1' -p4 -I258 -I111 -(lp5 -I0 -aI2 -aI3 -atp6 -a(I2 -(S'number' -p7 -I0 -tp8 -I332 -I128 -(lp9 -I1 -aNatp10 -a(I3 -S'repeat' -p11 -I258 -I165 -(lp12 -I1 -aI4 -aI5 -aNatp13 -a(I4 -(g7 -S'300' -p14 -tp15 -I344 -I174 -(lp16 -I3 -aNatp17 -a(I5 -S'forward' -p18 -I353 -I214 -(lp19 -I3 -aI6 -aI7 -atp20 -a(I6 -S'box1' -p21 -I427 -I223 -(lp22 -I5 -aNatp23 -a(I7 -S'right' -p24 -I353 -I253 -(lp25 -I5 -aI8 -aI9 -atp26 -a(I8 -(g7 -I91 -tp27 -I427 -I262 -(lp28 -I7 -aNatp29 -a(I9 -g4 -I353 -I292 -(lp30 -I7 -aI10 -aNatp31 -a(I10 -g21 -I427 -I309 -(lp32 -I9 -aI11 -atp33 -a(I11 -S'plus' -p34 -I520 -I301 -(lp35 -I10 -aI12 -atp36 -a(I12 -(g7 -I5 -tp37 -I559 -I309 -(lp38 -I11 -aNatp39 -a(I-1 -S'turtle' -p40 -F278.8796530912756 -F-1014.5091542600603 -F300.0 -I0 -I50 -I5 -tp41 -a. \ No newline at end of file +[[0, "clean", 258, 72, [19, 1]], [1, "storeinbox1", 258, 111, [0, 2, 3]], [2, ["number", 0], 332, 128, [1, null]], [3, "repeat", 258, 165, [1, 4, 5, null]], [4, ["number", "300"], 344, 174, [3, null]], [5, "forward", 353, 214, [3, 6, 7]], [6, "box1", 427, 223, [5, null]], [7, "right", 353, 253, [5, 8, 9]], [8, ["number", 91], 427, 262, [7, null]], [9, "storeinbox1", 353, 292, [7, 10, 13]], [10, "plus2", 427, 285, [9, 11, 12]], [11, "box1", 467, 293, [10, null]], [12, ["number", 5], 467, 326, [10, null]], [13, "setcolor", 353, 346, [9, 14, null]], [14, "product2", 427, 339, [13, 15, 18]], [15, "division2", 467, 323, [14, 16, 17]], [16, "heading", 507, 331, [15, null]], [17, ["number", "360"], 526, 364, [15, null]], [18, ["number", 100], 467, 380, [14, null]], [19, "start", 246, 22, [null, 0]], [-1, "turtle", 278.8796530912756, -1014.5091542600603, 300.0, 83.333333333333343, 50, 5]] \ No newline at end of file diff --git a/samples/sunrise.ta b/samples/sunrise.ta index d42ec63..9fd3d65 100644 --- a/samples/sunrise.ta +++ b/samples/sunrise.ta @@ -1,491 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I714 -I94 -(lp2 -NaI1 -atp3 -a(I1 -S'setxy' -p4 -I726 -I144 -(lp5 -I0 -aI2 -aI3 -aI4 -atp6 -a(I2 -(S'number' -p7 -S'0' -p8 -tp9 -I800 -I153 -(lp10 -I1 -aNatp11 -a(I3 -(g7 -g8 -tp12 -I800 -I190 -(lp13 -I1 -aNatp14 -a(I4 -S'seth' -p15 -I726 -I220 -(lp16 -I1 -aI5 -aI8 -atp17 -a(I5 -S'random' -p18 -I800 -I210 -(lp19 -I4 -aI6 -aI7 -aNatp20 -a(I6 -(g7 -g8 -tp21 -I828 -I229 -(lp22 -I5 -aNatp23 -a(I7 -(g7 -S'360' -p24 -tp25 -I950 -I229 -(lp26 -I5 -aNatp27 -a(I8 -S'repeat' -p28 -I726 -I259 -(lp29 -I4 -aI9 -aI10 -aNatp30 -a(I9 -(g7 -S'20' -p31 -tp32 -I812 -I268 -(lp33 -I8 -aNatp34 -a(I10 -S'setcolor' -p35 -I821 -I308 -(lp36 -I8 -aI11 -aI14 -atp37 -a(I11 -g18 -I895 -I306 -(lp38 -I10 -aI12 -aI13 -aNatp39 -a(I12 -S'box1' -p40 -I923 -I325 -(lp41 -I11 -aNatp42 -a(I13 -S'box2' -p43 -I1045 -I325 -(lp44 -I11 -aNatp45 -a(I14 -S'forward' -p46 -I821 -I362 -(lp47 -I10 -aI15 -aI18 -atp48 -a(I15 -g18 -I895 -I352 -(lp49 -I14 -aI16 -aI17 -aNatp50 -a(I16 -(g7 -S'10' -p51 -tp52 -I923 -I371 -(lp53 -I15 -aNatp54 -a(I17 -(g7 -S'30' -p55 -tp56 -I1045 -I371 -(lp57 -I15 -aNatp58 -a(I18 -S'right' -p59 -I821 -I401 -(lp60 -I14 -aI19 -aI22 -atp61 -a(I19 -g18 -I895 -I391 -(lp62 -I18 -aI20 -aI21 -aNatp63 -a(I20 -(g7 -S'30' -p64 -tp65 -I923 -I410 -(lp66 -I19 -aNatp67 -a(I21 -(g7 -S'40' -p68 -tp69 -I1045 -I410 -(lp70 -I19 -aNatp71 -a(I22 -g35 -I821 -I440 -(lp72 -I18 -aI23 -aI26 -atp73 -a(I23 -g18 -I895 -I438 -(lp74 -I22 -aI24 -aI25 -aNatp75 -a(I24 -g40 -I923 -I457 -(lp76 -I23 -aNatp77 -a(I25 -g43 -I1045 -I457 -(lp78 -I23 -aNatp79 -a(I26 -g46 -I821 -I494 -(lp80 -I22 -aI27 -aI30 -atp81 -a(I27 -g18 -I895 -I484 -(lp82 -I26 -aI28 -aI29 -aNatp83 -a(I28 -(g7 -S'10' -p84 -tp85 -I923 -I503 -(lp86 -I27 -aNatp87 -a(I29 -(g7 -S'30' -p88 -tp89 -I1045 -I503 -(lp90 -I27 -aNatp91 -a(I30 -S'left' -p92 -I821 -I533 -(lp93 -I26 -aI31 -aNatp94 -a(I31 -g18 -I895 -I523 -(lp95 -I30 -aI32 -aI33 -aNatp96 -a(I32 -(g7 -S'30' -p97 -tp98 -I923 -I542 -(lp99 -I31 -aNatp100 -a(I33 -(g7 -S'40' -p101 -tp102 -I1045 -I542 -(lp103 -I31 -aNatp104 -a(I34 -S'fillscreen' -p105 -I232 -I98 -(lp106 -NaI35 -aI36 -aI37 -atp107 -a(I35 -(g7 -g8 -tp108 -I306 -I107 -(lp109 -I34 -aNatp110 -a(I36 -(g7 -g8 -tp111 -I306 -I144 -(lp112 -I34 -aNatp113 -a(I37 -S'setpensize' -p114 -I232 -I174 -(lp115 -I34 -aI38 -aI39 -atp116 -a(I38 -(g7 -S'6' -p117 -tp118 -I306 -I191 -(lp119 -I37 -aNatp120 -a(I39 -g28 -I232 -I228 -(lp121 -I37 -aI40 -aI41 -aNatp122 -a(I40 -(g7 -S'300' -p123 -tp124 -I318 -I237 -(lp125 -I39 -aNatp126 -a(I41 -S'storeinbox1' -p127 -I327 -I277 -(lp128 -I39 -aI42 -aI43 -atp129 -a(I42 -(g7 -S'15' -p130 -tp131 -I401 -I294 -(lp132 -I41 -aNatp133 -a(I43 -S'storeinbox2' -p134 -I327 -I331 -(lp135 -I41 -aI44 -aI45 -atp136 -a(I44 -(g7 -S'20' -p137 -tp138 -I401 -I348 -(lp139 -I43 -aNatp140 -a(I45 -S'stack1' -p141 -I327 -I385 -(lp142 -I43 -aI46 -atp143 -a(I46 -g127 -I327 -I424 -(lp144 -I45 -aI47 -aI48 -atp145 -a(I47 -(g7 -g8 -tp146 -I401 -I441 -(lp147 -I46 -aNatp148 -a(I48 -g134 -I327 -I478 -(lp149 -I46 -aI49 -aI50 -atp150 -a(I49 -(g7 -S'10' -p151 -tp152 -I401 -I495 -(lp153 -I48 -aNatp154 -a(I50 -g141 -I327 -I532 -(lp155 -I48 -aNatp156 -a(I-1 -S'turtle' -p157 -F-235.93079498629464 -F738.84933308777579 -I325 -I4 -I50 -F6.0 -tp158 -a. \ No newline at end of file +[[0, "fillscreen", 232, 98, [17, 1, 2, 3]], [1, ["number", "0"], 306, 107, [0, null]], [2, ["number", "0"], 306, 144, [0, null]], [3, "setpensize", 232, 174, [0, 4, 5]], [4, ["number", "6"], 306, 191, [3, null]], [5, "repeat", 232, 228, [3, 6, 7, null]], [6, ["number", "300"], 318, 237, [5, null]], [7, "storeinbox1", 327, 277, [5, 8, 9]], [8, ["number", "15"], 401, 294, [7, null]], [9, "storeinbox2", 327, 331, [7, 10, 11]], [10, ["number", "20"], 401, 348, [9, null]], [11, "stack1", 327, 385, [9, 12]], [12, "storeinbox1", 327, 424, [11, 13, 14]], [13, ["number", "0"], 401, 441, [12, null]], [14, "storeinbox2", 327, 478, [12, 15, 16]], [15, ["number", "10"], 401, 495, [14, null]], [16, "stack1", 327, 532, [14, null]], [17, "start", 220, 48, [null, 0]], [18, "hat1", 522, 18, [null, 19]], [19, "setxy", 534, 68, [18, 20, 21, 22]], [20, ["number", "0"], 608, 77, [19, null]], [21, ["number", "0"], 608, 114, [19, null]], [22, "seth", 534, 144, [19, 23, 26]], [23, "random", 608, 134, [22, 24, 25, null]], [24, ["number", "0"], 636, 153, [23, null]], [25, ["number", "360"], 758, 153, [23, null]], [26, "repeat", 534, 183, [22, 27, 28, null]], [27, ["number", "20"], 620, 192, [26, null]], [28, "setcolor", 629, 232, [26, 29, 32]], [29, "random", 703, 230, [28, 30, 31, null]], [30, "box1", 731, 249, [29, null]], [31, "box2", 853, 249, [29, null]], [32, "forward", 629, 286, [28, 33, 36]], [33, "random", 703, 276, [32, 34, 35, null]], [34, ["number", "10"], 731, 295, [33, null]], [35, ["number", "30"], 853, 295, [33, null]], [36, "right", 629, 325, [32, 37, 40]], [37, "random", 703, 315, [36, 38, 39, null]], [38, ["number", "30"], 731, 334, [37, null]], [39, ["number", "40"], 853, 334, [37, null]], [40, "setcolor", 629, 364, [36, 41, 44]], [41, "random", 703, 362, [40, 42, 43, null]], [42, "box1", 731, 381, [41, null]], [43, "box2", 853, 381, [41, null]], [44, "forward", 629, 418, [40, 45, 48]], [45, "random", 703, 408, [44, 46, 47, null]], [46, ["number", "10"], 731, 427, [45, null]], [47, ["number", "30"], 853, 427, [45, null]], [48, "left", 629, 457, [44, 49, null]], [49, "random", 703, 447, [48, 50, 51, null]], [50, ["number", "30"], 731, 466, [49, null]], [51, ["number", "40"], 853, 466, [49, null]], [-1, "turtle", 74.35903566767675, 101.77401082082446, 57, 17, 50, 6.0]] \ No newline at end of file diff --git a/samples/tree.ta b/samples/tree.ta index 660ddcd..c01dc0a 100644 --- a/samples/tree.ta +++ b/samples/tree.ta @@ -1,656 +1 @@ -(lp0 -(I0 -S'division' -p1 -I82 -I93 -(lp2 -NaNatp3 -a(I1 -S'hat1' -p4 -I510 -I28 -(lp5 -NaI2 -atp6 -a(I2 -S'pendown' -p7 -I522 -I78 -(lp8 -I1 -aI3 -atp9 -a(I3 -S'if' -p10 -I522 -I117 -(lp11 -I2 -aI4 -aI7 -aI9 -atp12 -a(I4 -S'greater' -p13 -I602 -I127 -(lp14 -I3 -aI5 -aI6 -aNatp15 -a(I5 -S'box1' -p16 -I634 -I136 -(lp17 -I4 -aNatp18 -a(I6 -(S'number' -p19 -S'10' -p20 -tp21 -I783 -I136 -(lp22 -I4 -aNatp23 -a(I7 -S'hspace' -p24 -I617 -I182 -(lp25 -I3 -aI8 -atp26 -a(I8 -g24 -I708 -I181 -(lp27 -I7 -aI36 -atp28 -a(I9 -S'storeinbox2' -p29 -I522 -I232 -(lp30 -I3 -aI10 -aI12 -atp31 -a(I10 -S'random' -p32 -I596 -I230 -(lp33 -I9 -aI11 -aI61 -aNatp34 -a(I11 -(g19 -S'0' -p35 -tp36 -I624 -I249 -(lp37 -I10 -aNatp38 -a(I12 -g10 -I522 -I286 -(lp39 -I9 -aI13 -aI15 -aNatp40 -a(I13 -S'equal' -p41 -I602 -I296 -(lp42 -I12 -aI14 -aI58 -aNatp43 -a(I14 -S'box2' -p44 -I634 -I305 -(lp45 -I13 -aNatp46 -a(I15 -S'penup' -p47 -I617 -I360 -(lp48 -I12 -aI16 -atp49 -a(I16 -S'forward' -p50 -I617 -I399 -(lp51 -I15 -aI17 -aI20 -atp52 -a(I17 -g16 -I691 -I408 -(lp53 -I16 -aI18 -atp54 -a(I18 -g1 -I784 -I400 -(lp55 -I17 -aI19 -atp56 -a(I19 -(g19 -S'2' -p57 -tp58 -I823 -I408 -(lp59 -I18 -aNatp60 -a(I20 -S'setcolor' -p61 -I617 -I438 -(lp62 -I16 -aI21 -aI22 -atp63 -a(I21 -(g19 -S'40' -p64 -tp65 -I691 -I455 -(lp66 -I20 -aNatp67 -a(I22 -S'setpensize' -p68 -I617 -I492 -(lp69 -I20 -aI23 -aI24 -atp70 -a(I23 -(g19 -S'20' -p71 -tp72 -I691 -I509 -(lp73 -I22 -aNatp74 -a(I24 -g50 -I617 -I546 -(lp75 -I22 -aI25 -aI26 -atp76 -a(I25 -(g19 -S'1' -p77 -tp78 -I691 -I555 -(lp79 -I24 -aNatp80 -a(I26 -g7 -I617 -I585 -(lp81 -I24 -aI27 -atp82 -a(I27 -S'back' -p83 -I617 -I624 -(lp84 -I26 -aI28 -aI29 -atp85 -a(I28 -(g19 -g77 -tp86 -I691 -I633 -(lp87 -I27 -aNatp88 -a(I29 -g61 -I617 -I663 -(lp89 -I27 -aI30 -aI31 -atp90 -a(I30 -(g19 -S'10' -p91 -tp92 -I691 -I680 -(lp93 -I29 -aNatp94 -a(I31 -g68 -I617 -I717 -(lp95 -I29 -aI32 -aI33 -atp96 -a(I32 -(g19 -S'5' -p97 -tp98 -I691 -I734 -(lp99 -I31 -aNatp100 -a(I33 -g47 -I617 -I771 -(lp101 -I31 -aI34 -atp102 -a(I34 -g83 -I617 -I810 -(lp103 -I33 -aI35 -aNatp104 -a(I35 -g16 -I691 -I819 -(lp105 -I34 -aI59 -atp106 -a(I36 -g24 -I799 -I180 -(lp107 -I8 -aI37 -atp108 -a(I37 -g50 -I890 -I188 -(lp109 -I36 -aI38 -aI39 -atp110 -a(I38 -g16 -I964 -I197 -(lp111 -I37 -aNatp112 -a(I39 -S'storeinbox1' -p113 -I890 -I227 -(lp114 -I37 -aI40 -aI43 -atp115 -a(I40 -g16 -I964 -I244 -(lp116 -I39 -aI41 -atp117 -a(I41 -g1 -I1057 -I236 -(lp118 -I40 -aI42 -atp119 -a(I42 -(g19 -S'1.5' -p120 -tp121 -I1096 -I244 -(lp122 -I41 -aNatp123 -a(I43 -S'right' -p124 -I890 -I281 -(lp125 -I39 -aI44 -aI45 -atp126 -a(I44 -(g19 -S'30' -p127 -tp128 -I964 -I290 -(lp129 -I43 -aNatp130 -a(I45 -S'stack1' -p131 -I890 -I320 -(lp132 -I43 -aI46 -atp133 -a(I46 -S'left' -p134 -I890 -I359 -(lp135 -I45 -aI47 -aI48 -atp136 -a(I47 -(g19 -S'60' -p137 -tp138 -I964 -I368 -(lp139 -I46 -aNatp140 -a(I48 -g131 -I890 -I398 -(lp141 -I46 -aI49 -atp142 -a(I49 -g124 -I890 -I437 -(lp143 -I48 -aI50 -aI51 -atp144 -a(I50 -(g19 -S'30' -p145 -tp146 -I964 -I446 -(lp147 -I49 -aNatp148 -a(I51 -g113 -I890 -I476 -(lp149 -I49 -aI52 -aI55 -atp150 -a(I52 -g16 -I964 -I493 -(lp151 -I51 -aI53 -atp152 -a(I53 -S'product' -p153 -I1057 -I485 -(lp154 -I52 -aI54 -atp155 -a(I54 -(g19 -S'1.5' -p156 -tp157 -I1096 -I493 -(lp158 -I53 -aNatp159 -a(I55 -g47 -I890 -I530 -(lp160 -I51 -aI56 -atp161 -a(I56 -g83 -I890 -I569 -(lp162 -I55 -aI57 -aNatp163 -a(I57 -g16 -I964 -I578 -(lp164 -I56 -aNatp165 -a(I58 -(g19 -g35 -tp166 -I783 -I305 -(lp167 -I13 -aNatp168 -a(I59 -g1 -I784 -I811 -(lp169 -I35 -aI60 -atp170 -a(I60 -(g19 -g57 -tp171 -I823 -I819 -(lp172 -I59 -aNatp173 -a(I61 -(g19 -g57 -tp174 -I746 -I249 -(lp175 -I10 -aNatp176 -a(I62 -S'clean' -p177 -I297 -I88 -(lp178 -NaI63 -atp179 -a(I63 -S'setxy' -p180 -I297 -I127 -(lp181 -I62 -aI64 -aI65 -aI66 -atp182 -a(I64 -(g19 -g35 -tp183 -I371 -I136 -(lp184 -I63 -aNatp185 -a(I65 -(g19 -S'-400' -p186 -tp187 -I371 -I173 -(lp188 -I63 -aNatp189 -a(I66 -g113 -I297 -I203 -(lp190 -I63 -aI67 -aI68 -atp191 -a(I67 -(g19 -S'300' -p192 -tp193 -I371 -I220 -(lp194 -I66 -aNatp195 -a(I68 -g61 -I297 -I257 -(lp196 -I66 -aI69 -aI70 -atp197 -a(I69 -(g19 -S'10' -p198 -tp199 -I371 -I274 -(lp200 -I68 -aNatp201 -a(I70 -g131 -I297 -I311 -(lp202 -I68 -aNatp203 -a(I-1 -S'turtle' -p204 -F-8.5265128291212022e-14 -F-400.0 -F0.0 -F10.0 -I50 -F5.0 -tp205 -a. \ No newline at end of file +[[0, "division", 82, 93, [null, null]], [1, "hat1", 510, 28, [null, 2]], [2, "pendown", 522, 78, [1, 3]], [3, "if", 522, 117, [2, 4, 7, 9]], [4, "greater", 602, 127, [3, 5, 6, null]], [5, "box1", 634, 136, [4, null]], [6, ["number", "10"], 783, 136, [4, null]], [7, "hspace", 617, 182, [3, 8]], [8, "hspace", 708, 181, [7, 32]], [9, "storeinbox2", 522, 232, [3, 10, 12]], [10, "random", 596, 230, [9, 11, 49, null]], [11, ["number", "0"], 624, 249, [10, null]], [12, "if", 522, 286, [9, 13, 15, null]], [13, "equal", 602, 296, [12, 14, 48, null]], [14, "box2", 634, 305, [13, null]], [15, "penup", 617, 360, [12, 16]], [16, "forward", 617, 399, [15, 69, 17]], [17, "setcolor", 617, 438, [16, 18, 19]], [18, ["number", "40"], 691, 455, [17, null]], [19, "setpensize", 617, 492, [17, 20, 21]], [20, ["number", "20"], 691, 509, [19, null]], [21, "forward", 617, 546, [19, 22, 23]], [22, ["number", "1"], 691, 555, [21, null]], [23, "pendown", 617, 585, [21, 24]], [24, "back", 617, 624, [23, 25, 26]], [25, ["number", "1"], 691, 633, [24, null]], [26, "setcolor", 617, 663, [24, 27, 28]], [27, ["number", "10"], 691, 680, [26, null]], [28, "setpensize", 617, 717, [26, 29, 30]], [29, ["number", "5"], 691, 734, [28, null]], [30, "penup", 617, 771, [28, 31]], [31, "back", 617, 810, [30, 66, null]], [32, "hspace", 799, 180, [8, 33]], [33, "forward", 890, 188, [32, 34, 35]], [34, "box1", 964, 197, [33, null]], [35, "storeinbox1", 890, 227, [33, 63, 36]], [36, "right", 890, 281, [35, 37, 38]], [37, ["number", "30"], 964, 290, [36, null]], [38, "stack1", 890, 320, [36, 39]], [39, "left", 890, 359, [38, 40, 41]], [40, ["number", "60"], 964, 368, [39, null]], [41, "stack1", 890, 398, [39, 42]], [42, "right", 890, 437, [41, 43, 44]], [43, ["number", "30"], 964, 446, [42, null]], [44, "storeinbox1", 890, 476, [42, 60, 45]], [45, "penup", 890, 530, [44, 46]], [46, "back", 890, 569, [45, 47, null]], [47, "box1", 964, 578, [46, null]], [48, ["number", "0"], 783, 305, [13, null]], [49, ["number", "2"], 746, 249, [10, null]], [50, "clean", 297, 88, [59, 51]], [51, "setxy", 297, 127, [50, 52, 53, 54]], [52, ["number", "0"], 371, 136, [51, null]], [53, ["number", "-400"], 371, 173, [51, null]], [54, "storeinbox1", 297, 203, [51, 55, 56]], [55, ["number", "300"], 371, 220, [54, null]], [56, "setcolor", 297, 257, [54, 57, 58]], [57, ["number", "10"], 371, 274, [56, null]], [58, "stack1", 297, 311, [56, null]], [59, "start", 285, 38, [null, 50]], [60, "product2", 964, 469, [44, 61, 62]], [61, "box1", 1004, 477, [60, null]], [62, ["number", "1.5"], 1004, 510, [60, null]], [63, "division2", 964, 220, [35, 64, 65]], [64, "box1", 1004, 228, [63, null]], [65, ["number", "1.5"], 1023, 261, [63, null]], [66, "division2", 691, 795, [31, 67, 68]], [67, "box1", 731, 803, [66, null]], [68, ["number", "2"], 750, 836, [66, null]], [69, "division2", 691, 384, [16, 70, 71]], [70, "box1", 731, 392, [69, null]], [71, ["number", "2"], 750, 425, [69, null]], [-1, "turtle", -8.5265128291212022e-14, -400.00000000000011, 0.0, 10.0, 50, 5.0]] \ No newline at end of file diff --git a/samples/xo-man.ta b/samples/xo-man.ta index 2e684b5..5f733ac 100644 --- a/samples/xo-man.ta +++ b/samples/xo-man.ta @@ -1,595 +1 @@ -(lp0 -(I0 -S'hat1' -p1 -I768 -I28 -(lp2 -NaI1 -atp3 -a(I1 -S'left' -p4 -I780 -I78 -(lp5 -I0 -aI2 -aI3 -atp6 -a(I2 -(S'number' -p7 -S'45' -p8 -tp9 -I854 -I87 -(lp10 -I1 -aNatp11 -a(I3 -S'repeat' -p12 -I780 -I117 -(lp13 -I1 -aI4 -aI5 -aI11 -atp14 -a(I4 -(g7 -S'4' -p15 -tp16 -I866 -I126 -(lp17 -I3 -aNatp18 -a(I5 -S'forward' -p19 -I875 -I166 -(lp20 -I3 -aI6 -aI7 -atp21 -a(I6 -(g7 -S'75' -p22 -tp23 -I949 -I175 -(lp24 -I5 -aNatp25 -a(I7 -S'back' -p26 -I875 -I205 -(lp27 -I5 -aI8 -aI9 -atp28 -a(I8 -(g7 -S'75' -p29 -tp30 -I949 -I214 -(lp31 -I7 -aNatp32 -a(I9 -g4 -I875 -I244 -(lp33 -I7 -aI10 -aNatp34 -a(I10 -(g7 -S'90' -p35 -tp36 -I949 -I253 -(lp37 -I9 -aNatp38 -a(I11 -S'vspace' -p39 -I780 -I207 -(lp40 -I3 -aI12 -atp41 -a(I12 -S'right' -p42 -I780 -I276 -(lp43 -I11 -aI13 -aI14 -atp44 -a(I13 -(g7 -S'45' -p45 -tp46 -I854 -I285 -(lp47 -I12 -aNatp48 -a(I14 -S'penup' -p49 -I780 -I315 -(lp50 -I12 -aI15 -atp51 -a(I15 -g19 -I780 -I354 -(lp52 -I14 -aI16 -aI17 -atp53 -a(I16 -(g7 -S'90' -p54 -tp55 -I854 -I363 -(lp56 -I15 -aNatp57 -a(I17 -S'pendown' -p58 -I780 -I393 -(lp59 -I15 -aI18 -atp60 -a(I18 -S'setpensize' -p61 -I780 -I432 -(lp62 -I17 -aI19 -aI22 -atp63 -a(I19 -S'pensize' -p64 -I854 -I449 -(lp65 -I18 -aI20 -atp66 -a(I20 -S'plus' -p67 -I947 -I441 -(lp68 -I19 -aI21 -atp69 -a(I21 -(g7 -S'35' -p70 -tp71 -I986 -I449 -(lp72 -I20 -aNatp73 -a(I22 -g19 -I780 -I486 -(lp74 -I18 -aI23 -aI24 -atp75 -a(I23 -(g7 -S'1' -p76 -tp77 -I854 -I495 -(lp78 -I22 -aNatp79 -a(I24 -g49 -I780 -I525 -(lp80 -I22 -aI25 -atp81 -a(I25 -g26 -I780 -I564 -(lp82 -I24 -aI26 -aI27 -atp83 -a(I26 -(g7 -S'91' -p84 -tp85 -I854 -I573 -(lp86 -I25 -aNatp87 -a(I27 -g58 -I780 -I603 -(lp88 -I25 -aI28 -atp89 -a(I28 -g61 -I780 -I642 -(lp90 -I27 -aI29 -aNatp91 -a(I29 -g64 -I854 -I659 -(lp92 -I28 -aI30 -atp93 -a(I30 -S'minus' -p94 -I947 -I651 -(lp95 -I29 -aI31 -atp96 -a(I31 -(g7 -S'35' -p97 -tp98 -I986 -I659 -(lp99 -I30 -aNatp100 -a(I32 -S'hat2' -p101 -I273 -I353 -(lp102 -NaI33 -atp103 -a(I33 -S'setcolor' -p104 -I285 -I403 -(lp105 -I32 -aI34 -aI39 -atp106 -a(I34 -(g7 -S'0' -p107 -tp108 -I359 -I420 -(lp109 -I33 -aI35 -atp110 -a(I35 -g67 -I452 -I412 -(lp111 -I34 -aI36 -atp112 -a(I36 -S'random' -p113 -I491 -I401 -(lp114 -I35 -aI37 -aI38 -aNatp115 -a(I37 -(g7 -g107 -tp116 -I519 -I420 -(lp117 -I36 -aNatp118 -a(I38 -(g7 -S'100' -p119 -tp120 -I641 -I420 -(lp121 -I36 -aNatp122 -a(I39 -g61 -I285 -I457 -(lp123 -I33 -aI40 -aI41 -atp124 -a(I40 -(g7 -S'40' -p125 -tp126 -I359 -I474 -(lp127 -I39 -aNatp128 -a(I41 -S'stack1' -p129 -I285 -I511 -(lp130 -I39 -aI42 -atp131 -a(I42 -g104 -I285 -I550 -(lp132 -I41 -aI43 -aI46 -atp133 -a(I43 -S'color' -p134 -I359 -I567 -(lp135 -I42 -aI44 -atp136 -a(I44 -g67 -I452 -I559 -(lp137 -I43 -aI45 -atp138 -a(I45 -(g7 -S'10' -p139 -tp140 -I491 -I567 -(lp141 -I44 -aNatp142 -a(I46 -g61 -I285 -I604 -(lp143 -I42 -aI47 -aI50 -atp144 -a(I47 -g64 -I359 -I621 -(lp145 -I46 -aI48 -atp146 -a(I48 -g94 -I452 -I613 -(lp147 -I47 -aI49 -atp148 -a(I49 -(g7 -S'25' -p149 -tp150 -I491 -I621 -(lp151 -I48 -aNatp152 -a(I50 -g129 -I285 -I658 -(lp153 -I46 -aNatp154 -a(I51 -S'clean' -p155 -I227 -I73 -(lp156 -NaI52 -atp157 -a(I52 -S'forever' -p158 -I227 -I112 -(lp159 -I51 -aI53 -aNatp160 -a(I53 -g49 -I308 -I126 -(lp161 -I52 -aI54 -atp162 -a(I54 -S'setxy' -p163 -I308 -I165 -(lp164 -I53 -aI55 -aI58 -aI61 -atp165 -a(I55 -g113 -I382 -I155 -(lp166 -I54 -aI56 -aI57 -aNatp167 -a(I56 -(g7 -S'-600' -p168 -tp169 -I410 -I174 -(lp170 -I55 -aNatp171 -a(I57 -(g7 -S'600' -p172 -tp173 -I532 -I174 -(lp174 -I55 -aNatp175 -a(I58 -g113 -I382 -I192 -(lp176 -I54 -aI59 -aI60 -aNatp177 -a(I59 -(g7 -S'-450' -p178 -tp179 -I410 -I211 -(lp180 -I58 -aNatp181 -a(I60 -(g7 -S'450' -p182 -tp183 -I532 -I211 -(lp184 -I58 -aNatp185 -a(I61 -g58 -I308 -I241 -(lp186 -I54 -aI62 -atp187 -a(I62 -S'stack2' -p188 -I308 -I280 -(lp189 -I61 -aNatp190 -a(I-1 -S'turtle' -p191 -I-544 -I405 -F225.0 -F25.0 -I50 -F15.0 -tp192 -a. \ No newline at end of file +[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 465.0, -215.00000000000003, 0.0, 18.0, 50, 15.0]] \ No newline at end of file -- cgit v0.9.1