From 3af60034adfce89798b3fba7c2d3c97697c19c57 Mon Sep 17 00:00:00 2001 From: Walter Bender Date: Mon, 24 Aug 2009 02:14:15 +0000 Subject: adding new samples --- (limited to 'samples') diff --git a/samples/About_me.ta b/samples/About_me.ta new file mode 100644 index 0000000..805b0cf --- /dev/null +++ b/samples/About_me.ta @@ -0,0 +1,390 @@ +(lp0 +(I0 +S'stack1' +p1 +I442 +I94 +(lp2 +I8 +aI1 +atp3 +a(I1 +S'template7' +p4 +I442 +I133 +(lp5 +I0 +aI2 +aI3 +aI4 +aI5 +aI6 +aI7 +atp6 +a(I2 +(S'title' +p7 +S'My favorite things' +p8 +tp9 +I452 +I148 +(lp10 +I1 +aNatp11 +a(I3 +(S'journal' +p12 +S'None' +p13 +tp14 +I452 +I179 +(lp15 +I1 +aNatp16 +a(I4 +(g12 +g13 +tp17 +I532 +I179 +(lp18 +I1 +aNatp19 +a(I5 +(g12 +g13 +tp20 +I452 +I236 +(lp21 +I1 +aNatp22 +a(I6 +(g12 +g13 +tp23 +I532 +I236 +(lp24 +I1 +aNatp25 +a(I7 +S'stack2' +p26 +I442 +I295 +(lp27 +I1 +aI10 +atp28 +a(I8 +S'hat' +p29 +I404 +I24 +(lp30 +NaI9 +aI0 +atp31 +a(I9 +(S'string' +p32 +S'Part2' +p33 +tp34 +I426 +I51 +(lp35 +I8 +aNatp36 +a(I10 +g1 +I442 +I334 +(lp37 +I7 +aI11 +atp38 +a(I11 +S'template3' +p39 +I442 +I373 +(lp40 +I10 +aI12 +aI13 +aI14 +aI15 +aI16 +aI17 +aI18 +aI19 +aNatp41 +a(I12 +(g7 +S'Me' +p42 +tp43 +I452 +I387 +(lp44 +I11 +aNatp45 +a(I13 +(g32 +S'Name' +p46 +tp47 +I452 +I413 +(lp48 +I11 +aNatp49 +a(I14 +(g32 +S'Age' +p50 +tp51 +I452 +I439 +(lp52 +I11 +aNatp53 +a(I15 +(g32 +S'Hair color' +p54 +tp55 +I452 +I465 +(lp56 +I11 +aNatp57 +a(I16 +(g32 +S'Eye color' +p58 +tp59 +I452 +I491 +(lp60 +I11 +aNatp61 +a(I17 +(g32 +S'Favorite color' +p62 +tp63 +I452 +I517 +(lp64 +I11 +aNatp65 +a(I18 +(g32 +S'Favorite food' +p66 +tp67 +I452 +I543 +(lp68 +I11 +aNatp69 +a(I19 +(g32 +S'Favorite hobby' +p70 +tp71 +I452 +I569 +(lp72 +I11 +aNatp73 +a(I20 +S'hat1' +p74 +I990 +I271 +(lp75 +NaI21 +atp76 +a(I21 +S'clean' +p77 +I1002 +I321 +(lp78 +I20 +aNatp79 +a(I22 +S'hat2' +p80 +I993 +I386 +(lp81 +NaI23 +atp82 +a(I23 +S'wait' +p83 +I1005 +I436 +(lp84 +I22 +aI24 +aNatp85 +a(I24 +(S'number' +p86 +S'30' +p87 +tp88 +I1079 +I445 +(lp89 +I23 +aNatp90 +a(I25 +S'hideblocks' +p91 +I250 +I29 +(lp92 +NaI26 +atp93 +a(I26 +g1 +I250 +I83 +(lp94 +I25 +aI27 +atp95 +a(I27 +S'template1' +p96 +I250 +I122 +(lp97 +I26 +aI28 +aI29 +aI30 +atp98 +a(I28 +(g7 +S'About me' +p99 +tp100 +I260 +I137 +(lp101 +I27 +aNatp102 +a(I29 +(g12 +g13 +tp103 +I260 +I168 +(lp104 +I27 +aNatp105 +a(I30 +g26 +I250 +I230 +(lp106 +I27 +aI31 +atp107 +a(I31 +g1 +I250 +I269 +(lp108 +I30 +aI32 +atp109 +a(I32 +S'template6' +p110 +I250 +I308 +(lp111 +I31 +aI33 +aI34 +aI35 +aI36 +atp112 +a(I33 +(g7 +S'My family' +p113 +tp114 +I260 +I323 +(lp115 +I32 +aNatp116 +a(I34 +(g12 +g13 +tp117 +I260 +I354 +(lp118 +I32 +aNatp119 +a(I35 +(g12 +g13 +tp120 +I260 +I411 +(lp121 +I32 +aNatp122 +a(I36 +g26 +I250 +I470 +(lp123 +I32 +aI37 +atp124 +a(I37 +S'stack' +p125 +I250 +I509 +(lp126 +I36 +aI38 +aNatp127 +a(I38 +(g32 +S'Part2' +p128 +tp129 +I262 +I521 +(lp130 +I37 +aNatp131 +a(I-1 +S'turtle' +p132 +I0 +I0 +I0 +I0 +I50 +I5 +tp133 +a. \ No newline at end of file diff --git a/samples/Learning_Experiences.ta b/samples/Learning_Experiences.ta new file mode 100644 index 0000000..e06c702 --- /dev/null +++ b/samples/Learning_Experiences.ta @@ -0,0 +1,529 @@ +(lp0 +(I0 +S'hat' +p1 +I194 +I11 +(lp2 +NaI35 +aI1 +atp3 +a(I1 +S'stack1' +p4 +I232 +I81 +(lp5 +I0 +aI2 +atp6 +a(I2 +S'template1' +p7 +I232 +I120 +(lp8 +I1 +aI27 +aI3 +aI4 +atp9 +a(I3 +(S'journal' +p10 +Ntp11 +I242 +I166 +(lp12 +I2 +aNatp13 +a(I4 +g4 +I232 +I228 +(lp14 +I2 +aI5 +atp15 +a(I5 +g7 +I232 +I267 +(lp16 +I4 +aI28 +aI6 +aI7 +atp17 +a(I6 +(g10 +Ntp18 +I242 +I313 +(lp19 +I5 +aNatp20 +a(I7 +g4 +I232 +I375 +(lp21 +I5 +aI8 +atp22 +a(I8 +g7 +I232 +I414 +(lp23 +I7 +aI29 +aI9 +aI10 +atp24 +a(I9 +(g10 +Ntp25 +I242 +I460 +(lp26 +I8 +aNatp27 +a(I10 +g4 +I232 +I522 +(lp28 +I8 +aI11 +atp29 +a(I11 +g7 +I232 +I561 +(lp30 +I10 +aI30 +aI12 +aNatp31 +a(I12 +(g10 +Ntp32 +I242 +I607 +(lp33 +I11 +aNatp34 +a(I13 +g1 +I592 +I11 +(lp35 +NaI36 +aI14 +atp36 +a(I14 +g4 +I630 +I81 +(lp37 +I13 +aI15 +atp38 +a(I15 +g7 +I630 +I120 +(lp39 +I14 +aI31 +aI16 +aI17 +atp40 +a(I16 +(g10 +Ntp41 +I640 +I166 +(lp42 +I15 +aNatp43 +a(I17 +g4 +I630 +I228 +(lp44 +I15 +aI18 +atp45 +a(I18 +g7 +I630 +I267 +(lp46 +I17 +aI32 +aI19 +aI20 +atp47 +a(I19 +(g10 +Ntp48 +I640 +I313 +(lp49 +I18 +aNatp50 +a(I20 +g4 +I630 +I375 +(lp51 +I18 +aI21 +atp52 +a(I21 +g7 +I630 +I414 +(lp53 +I20 +aI33 +aI22 +aI23 +atp54 +a(I22 +(g10 +Ntp55 +I640 +I460 +(lp56 +I21 +aNatp57 +a(I23 +g4 +I630 +I522 +(lp58 +I21 +aI24 +atp59 +a(I24 +g7 +I630 +I561 +(lp60 +I23 +aI34 +aI25 +aNatp61 +a(I25 +(g10 +Ntp62 +I640 +I607 +(lp63 +I24 +aNatp64 +a(I26 +S'hat1' +p65 +I944 +I130 +(lp66 +NaI37 +atp67 +a(I27 +(S'title' +p68 +S'art' +p69 +tp70 +I242 +I135 +(lp71 +I2 +aNatp72 +a(I28 +(g68 +S'math' +p73 +tp74 +I242 +I282 +(lp75 +I5 +aNatp76 +a(I29 +(g68 +S'music' +p77 +tp78 +I242 +I429 +(lp79 +I8 +aNatp80 +a(I30 +(g68 +S'physical ed.' +p81 +tp82 +I242 +I576 +(lp83 +I11 +aNatp84 +a(I31 +(g68 +S'reading' +p85 +tp86 +I640 +I135 +(lp87 +I15 +aNatp88 +a(I32 +(g68 +S'science' +p89 +tp90 +I640 +I282 +(lp91 +I18 +aNatp92 +a(I33 +(g68 +S'social science' +p93 +tp94 +I640 +I429 +(lp95 +I21 +aNatp96 +a(I34 +(g68 +S'writing' +p97 +tp98 +I640 +I576 +(lp99 +I24 +aNatp100 +a(I35 +(S'string' +p101 +S'A' +p102 +tp103 +I216 +I38 +(lp104 +I0 +aNatp105 +a(I36 +(g101 +S'B' +p106 +tp107 +I614 +I38 +(lp108 +I13 +aNatp109 +a(I37 +S'wait' +p110 +I956 +I180 +(lp111 +I26 +aI38 +aI39 +atp112 +a(I38 +(S'number' +p113 +S'30' +p114 +tp115 +I1030 +I189 +(lp116 +I37 +aNatp117 +a(I39 +S'clean' +p118 +I956 +I219 +(lp119 +I37 +aNatp120 +a(I40 +S'hideblocks' +p121 +I435 +I24 +(lp122 +NaI41 +atp123 +a(I41 +g4 +I435 +I78 +(lp124 +I40 +aI42 +atp125 +a(I42 +g7 +I435 +I117 +(lp126 +I41 +aI43 +aI44 +aI45 +atp127 +a(I43 +(g68 +S'name' +p128 +tp129 +I445 +I132 +(lp130 +I42 +aNatp131 +a(I44 +(g10 +Ntp132 +I445 +I163 +(lp133 +I42 +aNatp134 +a(I45 +S'stack' +p135 +I435 +I225 +(lp136 +I42 +aI46 +aI47 +atp137 +a(I46 +(g101 +g102 +tp138 +I447 +I237 +(lp139 +I45 +aNatp140 +a(I47 +g135 +I435 +I264 +(lp141 +I45 +aI48 +aI49 +atp142 +a(I48 +(g101 +g106 +tp143 +I447 +I276 +(lp144 +I47 +aNatp145 +a(I49 +g4 +I435 +I303 +(lp146 +I47 +aI50 +atp147 +a(I50 +g7 +I435 +I342 +(lp148 +I49 +aI51 +aI52 +aI53 +atp149 +a(I51 +(g68 +S'personal growth' +p150 +tp151 +I445 +I357 +(lp152 +I50 +aNatp153 +a(I52 +(g10 +Ntp154 +I445 +I388 +(lp155 +I50 +aNatp156 +a(I53 +g4 +I435 +I450 +(lp157 +I50 +aI54 +atp158 +a(I54 +g7 +I435 +I489 +(lp159 +I53 +aI55 +aI56 +aNatp160 +a(I55 +(g68 +S'work habits' +p161 +tp162 +I445 +I504 +(lp163 +I54 +aNatp164 +a(I56 +(g10 +Ntp165 +I445 +I535 +(lp166 +I54 +aNatp167 +a(I-1 +S'turtle' +p168 +I0 +I0 +I0 +I0 +I50 +I5 +tp169 +a. \ No newline at end of file diff --git a/samples/es/Que_Como_Por_que_Para_que.ta b/samples/Que_Como_Por_que_Para_que.ta index 3fa1151..3fa1151 100644 --- a/samples/es/Que_Como_Por_que_Para_que.ta +++ b/samples/Que_Como_Por_que_Para_que.ta diff --git a/samples/es/Que_Como_Por_que_Para_que.ta b/samples/What_How_Why_For_whom.ta index 3fa1151..1e150d1 100644 --- a/samples/es/Que_Como_Por_que_Para_que.ta +++ b/samples/What_How_Why_For_whom.ta @@ -67,170 +67,174 @@ I232 I108 (lp25 I6 -aI21 aI8 aI9 +aI10 atp26 a(I8 -(S'journal' +(S'title' p27 -Ntp28 +S'What?' +p28 +tp29 I242 -I154 -(lp29 +I123 +(lp30 I7 -aNatp30 +aNatp31 a(I9 +(S'journal' +p32 +Ntp33 +I242 +I154 +(lp34 +I7 +aNatp35 +a(I10 S'stack2' -p31 +p36 I232 I216 -(lp32 +(lp37 I7 -aI10 -atp33 -a(I10 -g21 -I232 -I255 -(lp34 -I9 aI11 -atp35 +atp38 a(I11 -g24 +g21 I232 -I294 -(lp36 +I255 +(lp39 I10 -aI22 aI12 -aI13 -atp37 +atp40 a(I12 -(g27 -Ntp38 -I242 -I340 -(lp39 -I11 -aNatp40 -a(I13 -g31 +g24 I232 -I402 +I294 (lp41 I11 +aI13 aI14 +aI15 atp42 +a(I13 +(g27 +S'How?' +p43 +tp44 +I242 +I309 +(lp45 +I12 +aNatp46 a(I14 +(g32 +S'None' +p47 +tp48 +I242 +I340 +(lp49 +I12 +aNatp50 +a(I15 +g36 +I232 +I402 +(lp51 +I12 +aI16 +atp52 +a(I16 g21 I232 I441 -(lp43 -I13 -aI15 -atp44 -a(I15 +(lp53 +I15 +aI17 +atp54 +a(I17 g24 I232 I480 -(lp45 -I14 -aI23 -aI16 -aI17 -atp46 -a(I16 +(lp55 +I16 +aI18 +aI19 +aI20 +atp56 +a(I18 (g27 -Ntp47 +S'Why?' +p57 +tp58 +I242 +I495 +(lp59 +I17 +aNatp60 +a(I19 +(g32 +g47 +tp61 I242 I526 -(lp48 -I15 -aNatp49 -a(I17 -g31 +(lp62 +I17 +aNatp63 +a(I20 +g36 I232 I588 -(lp50 -I15 -aI18 -atp51 -a(I18 +(lp64 +I17 +aI21 +atp65 +a(I21 g21 I232 I627 -(lp52 -I17 -aI19 -atp53 -a(I19 +(lp66 +I20 +aI22 +atp67 +a(I22 g24 I232 I666 -(lp54 -I18 +(lp68 +I21 aI24 -aI20 -aNatp55 -a(I20 -(g27 -Ntp56 -I242 -I712 -(lp57 -I19 -aNatp58 -a(I21 -(S'title' -p59 -S'¿Qué?' -p60 -tp61 -I242 -I123 -(lp62 -I7 -aNatp63 -a(I22 -(g59 -S'¿Cómo?' -p64 -tp65 -I242 -I309 -(lp66 -I11 -aNatp67 +aI23 +aNatp69 a(I23 -(g59 -S'¿Por qué?' -p68 -tp69 +(g32 +g47 +tp70 I242 -I495 -(lp70 -I15 -aNatp71 +I712 +(lp71 +I22 +aNatp72 a(I24 -(g59 -S'¿Para qui?' -p72 -tp73 +(g27 +S'For whom?' +p73 +tp74 I242 I681 -(lp74 -I19 -aNatp75 +(lp75 +I22 +aNatp76 a(I-1 S'turtle' -p76 +p77 I0 I0 I0 I0 I50 I5 -tp77 -a. +tp78 +a. \ No newline at end of file diff --git a/samples/birds.ta b/samples/birds.ta new file mode 100644 index 0000000..f485463 --- /dev/null +++ b/samples/birds.ta @@ -0,0 +1,319 @@ +(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 diff --git a/samples/bubbles.ta b/samples/bubbles.ta new file mode 100644 index 0000000..dd60345 --- /dev/null +++ b/samples/bubbles.ta @@ -0,0 +1,262 @@ +(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 diff --git a/samples/candyvortex.ta b/samples/candyvortex.ta new file mode 100644 index 0000000..c399cee --- /dev/null +++ b/samples/candyvortex.ta @@ -0,0 +1,152 @@ +(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 diff --git a/samples/clock.ta b/samples/clock.ta new file mode 100644 index 0000000..3aef8c4 --- /dev/null +++ b/samples/clock.ta @@ -0,0 +1 @@ +[[0, "hat", -4, 831, [null, 1, 2]], [1, ["string", "show seconds"], 17, 858, [0, null]], [2, "if", 34, 901, [0, 3, 8, 9]], [3, "equal", 114, 911, [2, 4, 6, null]], [4, "box", 146, 915, [3, 5, null]], [5, ["string", "old second"], 164, 920, [4, null]], [6, "box", 295, 915, [3, 7, null]], [7, ["string", "seconds"], 313, 920, [6, null]], [8, "stopstack", 129, 975, [2, null]], [9, "setcolor", 34, 1016, [2, 10, 11]], [10, ["number", "60"], 108, 1033, [9, null]], [11, "setshade", 34, 1070, [9, 12, 13]], [12, ["number", "100"], 108, 1087, [11, null]], [13, "seth", 34, 1124, [11, 14, 20]], [14, "product2", 108, 1109, [13, 15, 17]], [15, "box", 148, 1112, [14, 16, null]], [16, ["string", "old second"], 166, 1117, [15, null]], [17, "division2", 148, 1126, [14, 18, 19]], [18, ["number", "360"], 188, 1134, [17, null]], [19, ["number", "60"], 207, 1167, [17, null]], [20, "setpensize", 34, 1163, [13, 21, 22]], [21, ["number", "5"], 108, 1180, [20, null]], [22, "forward", 34, 1217, [20, 23, 24]], [23, ["number", "225"], 108, 1226, [22, null]], [24, "back", 34, 1256, [22, 25, 26]], [25, ["number", "225"], 108, 1265, [24, null]], [26, "setshade", 34, 1295, [24, 27, 28]], [27, ["number", "50"], 108, 1312, [26, null]], [28, "setcolor", 34, 1349, [26, 29, 30]], [29, ["number", "0"], 108, 1366, [28, null]], [30, "seth", 34, 1403, [28, 31, 37]], [31, "product2", 108, 1388, [30, 32, 34]], [32, "box", 148, 1391, [31, 33, null]], [33, ["string", "seconds"], 166, 1396, [32, null]], [34, "division2", 148, 1405, [31, 35, 36]], [35, ["number", "360"], 188, 1413, [34, null]], [36, ["number", "60"], 207, 1446, [34, null]], [37, "setpensize", 34, 1442, [30, 38, 39]], [38, ["number", "5"], 108, 1459, [37, null]], [39, "forward", 34, 1496, [37, 40, 41]], [40, ["number", "225"], 108, 1505, [39, null]], [41, "back", 34, 1535, [39, 42, 43]], [42, ["number", "225"], 108, 1544, [41, null]], [43, "storein", 34, 1574, [41, 44, 45, null]], [44, ["string", "old second"], 46, 1601, [43, null]], [45, "box", 164, 1587, [43, 46, null]], [46, ["string", "seconds"], 182, 1592, [45, null]], [47, "hat", 1022, 34, [null, 48, 49]], [48, ["string", "clock"], 1043, 61, [47, null]], [49, "stack", 1060, 104, [47, 52, 50]], [50, "stack", 1060, 143, [49, 271, 51]], [51, "stack", 1060, 182, [50, 272, null]], [52, ["string", "show seconds"], 1072, 116, [49, null]], [53, "hat", 900, 833, [null, 54, 55]], [54, ["string", "dial"], 921, 860, [53, null]], [55, "clean", 938, 903, [53, 56]], [56, "fillscreen", 938, 942, [55, 57, 58, 59]], [57, ["number", "60"], 1012, 951, [56, null]], [58, ["number", "100"], 1012, 988, [56, null]], [59, "setpensize", 938, 1018, [56, 60, 61]], [60, ["number", "10"], 1012, 1035, [59, null]], [61, "setxy", 938, 1072, [59, 62, 63, 64]], [62, ["number", "-300"], 1012, 1081, [61, null]], [63, ["number", "0"], 1012, 1118, [61, null]], [64, "repeat", 938, 1148, [61, 65, 66, 70]], [65, ["number", "12"], 1024, 1157, [64, null]], [66, "setcolor", 1033, 1197, [64, 351, 67]], [67, "arc", 1033, 1251, [66, 68, 69, null]], [68, ["number", "30"], 1107, 1260, [67, null]], [69, ["number", "300"], 1107, 1297, [67, null]], [70, "setxy", 938, 1238, [64, 71, 72, 73]], [71, ["number", "0"], 1012, 1247, [70, null]], [72, ["number", "0"], 1012, 1284, [70, null]], [73, "repeat", 938, 1314, [70, 74, 75, 88]], [74, ["number", "60"], 1024, 1323, [73, null]], [75, "hspace", 1033, 1354, [73, 76]], [76, "setcolor", 1124, 1362, [75, 354, 77]], [77, "penup", 1124, 1416, [76, 78]], [78, "forward", 1124, 1455, [77, 79, 80]], [79, ["number", "290"], 1198, 1464, [78, null]], [80, "pendown", 1124, 1494, [78, 81]], [81, "forward", 1124, 1533, [80, 82, 83]], [82, ["number", "10"], 1198, 1542, [81, null]], [83, "penup", 1124, 1572, [81, 84]], [84, "back", 1124, 1611, [83, 85, 86]], [85, ["number", "300"], 1198, 1620, [84, null]], [86, "right", 1124, 1650, [84, 87, null]], [87, ["number", "6"], 1198, 1659, [86, null]], [88, "setxy", 938, 1404, [73, 89, 90, 91]], [89, ["number", "-20"], 1012, 1413, [88, null]], [90, ["number", "0"], 1012, 1450, [88, null]], [91, "storeinbox", 938, 1480, [88, 92, 93, 94]], [92, ["string", "box"], 950, 1491, [91, null]], [93, ["number", "12"], 1068, 1491, [91, null]], [94, "repeat", 938, 1519, [91, 95, 96, 119]], [95, ["number", "12"], 1024, 1528, [94, null]], [96, "vspace", 1033, 1568, [94, 97]], [97, "penup", 1033, 1637, [96, 98]], [98, "seth", 1033, 1676, [97, 99, 105]], [99, "product2", 1107, 1661, [98, 100, 102]], [100, "box", 1147, 1664, [99, 101, null]], [101, ["string", "box"], 1165, 1669, [100, null]], [102, "division2", 1147, 1678, [99, 103, 104]], [103, ["number", "360"], 1187, 1686, [102, null]], [104, ["number", "12"], 1206, 1719, [102, null]], [105, "forward", 1033, 1715, [98, 106, 107]], [106, ["number", "250"], 1107, 1724, [105, null]], [107, "show", 1033, 1754, [105, 108, 110]], [108, "box", 1107, 1758, [107, 109, null]], [109, ["string", "box"], 1125, 1763, [108, null]], [110, "back", 1033, 1793, [107, 111, 112]], [111, ["number", "250"], 1107, 1802, [110, null]], [112, "storeinbox", 1033, 1832, [110, 113, 114, 118]], [113, ["string", "box"], 1045, 1843, [112, null]], [114, "minus2", 1163, 1819, [112, 115, 117]], [115, "box", 1203, 1822, [114, 116, null]], [116, ["string", "box"], 1221, 1827, [115, null]], [117, ["number", "1"], 1222, 1860, [114, null]], [118, "pendown", 1033, 1871, [112, null]], [119, "setxy", 938, 1609, [94, 120, 121, null]], [120, ["number", "0"], 1012, 1618, [119, null]], [121, ["number", "0"], 1012, 1655, [119, null]], [122, "hat", 261, 832, [null, 123, 124]], [123, ["string", "show minutes"], 282, 859, [122, null]], [124, "setcolor", 299, 902, [122, 125, 126]], [125, ["number", "60"], 373, 919, [124, null]], [126, "setshade", 299, 956, [124, 127, 128]], [127, ["number", "100"], 373, 973, [126, null]], [128, "seth", 299, 1010, [126, 129, 135]], [129, "product2", 373, 995, [128, 130, 132]], [130, "box", 413, 998, [129, 131, null]], [131, ["string", "old minute"], 431, 1003, [130, null]], [132, "division2", 413, 1012, [129, 133, 134]], [133, ["number", "360"], 453, 1020, [132, null]], [134, ["number", "60"], 472, 1053, [132, null]], [135, "setpensize", 299, 1049, [128, 136, 137]], [136, ["number", "5"], 373, 1066, [135, null]], [137, "forward", 299, 1103, [135, 138, 198]], [138, ["number", "200"], 373, 1112, [137, null]], [139, "start", 250, 15, [null, 140]], [140, "hideblocks", 262, 65, [139, 141]], [141, "storein", 262, 119, [140, 142, 143, 144]], [142, ["string", "alarm hour"], 274, 146, [141, null]], [143, ["number", "10"], 392, 137, [141, null]], [144, "storein", 262, 173, [141, 145, 146, 147]], [145, ["string", "alarm minute"], 274, 200, [144, null]], [146, ["number", "30"], 392, 191, [144, null]], [147, "stack", 262, 227, [144, 148, 149]], [148, ["string", "dial"], 274, 239, [147, null]], [149, "storein", 262, 266, [147, 150, 151, 152]], [150, ["string", "old hour"], 274, 293, [149, null]], [151, ["number", "12"], 392, 284, [149, null]], [152, "storein", 262, 320, [149, 153, 154, 155]], [153, ["string", "old minute"], 274, 347, [152, null]], [154, ["number", "0"], 392, 338, [152, null]], [155, "storein", 262, 374, [152, 156, 157, 158]], [156, ["string", "old second"], 274, 401, [155, null]], [157, ["number", "0"], 392, 392, [155, null]], [158, "storein", 262, 428, [155, 159, 160, 161]], [159, ["string", "timezone"], 274, 455, [158, null]], [160, ["number", "-4"], 392, 446, [158, null]], [161, "forever", 262, 482, [158, 162, null]], [162, "storein", 343, 496, [161, 163, 164, 170]], [163, ["string", "hours"], 355, 523, [162, null]], [164, "plus2", 473, 490, [162, 165, 168]], [165, "myfunc", 513, 488, [164, 166, 167]], [166, ["string", "localtime().tm_hour"], 537, 499, [165, null]], [167, ["number", "100"], 655, 498, [165, null]], [168, "box", 513, 526, [164, 169, null]], [169, ["string", "timezone"], 531, 531, [168, null]], [170, "storein", 343, 550, [162, 171, 172, 175]], [171, ["string", "minutes"], 355, 577, [170, null]], [172, "myfunc", 473, 558, [170, 173, 174]], [173, ["string", "localtime().tm_min"], 497, 569, [172, null]], [174, ["number", "100"], 615, 568, [172, null]], [175, "storein", 343, 604, [170, 176, 177, 180]], [176, ["string", "seconds"], 355, 631, [175, null]], [177, "myfunc", 473, 612, [175, 178, 179]], [178, ["string", "localtime().tm_sec"], 497, 623, [177, null]], [179, ["number", "100"], 615, 622, [177, null]], [180, "stack", 343, 658, [175, 181, 182]], [181, ["string", "clock"], 355, 670, [180, null]], [182, "if", 343, 697, [180, 183, 194, 196]], [183, "equal", 423, 707, [182, 184, 186, 188]], [184, "box", 455, 711, [183, 185, null]], [185, ["string", "alarm hour"], 473, 716, [184, null]], [186, "box", 604, 711, [183, 187, null]], [187, ["string", "hours"], 622, 716, [186, null]], [188, "and", 715, 704, [183, 189]], [189, "equal", 779, 707, [188, 190, 192, null]], [190, "box", 811, 711, [189, 191, null]], [191, ["string", "alarm minute"], 829, 716, [190, null]], [192, "box", 960, 711, [189, 193, null]], [193, ["string", "minutes"], 978, 716, [192, null]], [194, "stack", 438, 771, [182, 195, null]], [195, ["string", "alarm"], 450, 783, [194, null]], [196, "wait", 343, 812, [182, 197, null]], [197, ["number", "10"], 417, 821, [196, null]], [198, "setpensize", 299, 1142, [137, 199, 200]], [199, ["number", "25"], 373, 1159, [198, null]], [200, "forward", 299, 1196, [198, 201, 202]], [201, ["number", "1"], 373, 1205, [200, null]], [202, "back", 299, 1235, [200, 203, 204]], [203, ["number", "1"], 373, 1244, [202, null]], [204, "setpensize", 299, 1274, [202, 205, 206]], [205, ["number", "7"], 373, 1291, [204, null]], [206, "back", 299, 1328, [204, 207, 208]], [207, ["number", "200"], 373, 1337, [206, null]], [208, "setshade", 299, 1367, [206, 209, 210]], [209, ["number", "30"], 373, 1384, [208, null]], [210, "setcolor", 299, 1421, [208, 211, 212]], [211, ["number", "30"], 373, 1438, [210, null]], [212, "seth", 299, 1475, [210, 213, 219]], [213, "product2", 373, 1460, [212, 214, 216]], [214, "box", 413, 1463, [213, 215, null]], [215, ["string", "minutes"], 431, 1468, [214, null]], [216, "division2", 413, 1477, [213, 217, 218]], [217, ["number", "360"], 453, 1485, [216, null]], [218, ["number", "60"], 472, 1518, [216, null]], [219, "setpensize", 299, 1514, [212, 220, 221]], [220, ["number", "5"], 373, 1531, [219, null]], [221, "forward", 299, 1568, [219, 222, 223]], [222, ["number", "200"], 373, 1577, [221, null]], [223, "setpensize", 299, 1607, [221, 224, 225]], [224, ["number", "25"], 373, 1624, [223, null]], [225, "forward", 299, 1661, [223, 226, 227]], [226, ["number", "1"], 373, 1670, [225, null]], [227, "setpensize", 299, 1700, [225, 228, 229]], [228, ["number", "5"], 373, 1717, [227, null]], [229, "back", 299, 1754, [227, 230, 231]], [230, ["number", "201"], 373, 1763, [229, null]], [231, "storein", 299, 1793, [229, 232, 233, null]], [232, ["string", "old minute"], 311, 1820, [231, null]], [233, "box", 429, 1806, [231, 234, null]], [234, ["string", "minutes"], 447, 1811, [233, null]], [235, "hat", 671, 835, [null, 236, 237]], [236, ["string", "alarm"], 692, 862, [235, null]], [237, "seth", 709, 905, [235, 238, 239]], [238, ["number", "0"], 783, 914, [237, null]], [239, "setxy", 709, 944, [237, 240, 241, 242]], [240, ["number", "-360"], 783, 953, [239, null]], [241, ["number", "0"], 783, 990, [239, null]], [242, "setcolor", 709, 1020, [239, 243, 246]], [243, "random", 783, 1018, [242, 244, 245, null]], [244, ["number", "0"], 811, 1037, [243, null]], [245, ["number", "100"], 933, 1037, [243, null]], [246, "setpensize", 709, 1074, [242, 247, 248]], [247, ["number", "60"], 783, 1091, [246, null]], [248, "repeat", 709, 1128, [246, 249, 250, 259]], [249, ["number", "60"], 795, 1137, [248, null]], [250, "setshade", 804, 1177, [248, 251, 254]], [251, "division2", 878, 1170, [250, 252, 253]], [252, "heading", 918, 1178, [251, null]], [253, ["number", "6"], 937, 1211, [251, null]], [254, "arc", 804, 1231, [250, 255, 256, 257]], [255, ["number", "6"], 878, 1240, [254, null]], [256, ["number", "360"], 878, 1277, [254, null]], [257, "wait", 804, 1307, [254, 258, null]], [258, ["number", "1"], 878, 1316, [257, null]], [259, "setcolor", 709, 1218, [248, 260, 261]], [260, ["number", "60"], 783, 1235, [259, null]], [261, "setshade", 709, 1272, [259, 262, 263]], [262, ["number", "100"], 783, 1289, [261, null]], [263, "repeat", 709, 1326, [261, 264, 265, 268]], [264, ["number", "60"], 795, 1335, [263, null]], [265, "arc", 804, 1375, [263, 266, 267, null]], [266, ["number", "6"], 878, 1384, [265, null]], [267, ["number", "360"], 878, 1421, [265, null]], [268, "setxy", 709, 1416, [263, 269, 270, null]], [269, ["number", "0"], 783, 1425, [268, null]], [270, ["number", "0"], 783, 1462, [268, null]], [271, ["string", "show hours"], 1072, 155, [50, null]], [272, ["string", "show minutes"], 1072, 194, [51, null]], [273, "hat", 442, 831, [null, 274, 275]], [274, ["string", "show hours"], 463, 858, [273, null]], [275, "setcolor", 480, 901, [273, 276, 277]], [276, ["number", "60"], 554, 918, [275, null]], [277, "setshade", 480, 955, [275, 278, 279]], [278, ["number", "100"], 554, 972, [277, null]], [279, "seth", 480, 1009, [277, 280, 297]], [280, "plus2", 554, 994, [279, 281, 288]], [281, "identity2", 594, 966, [280, 282]], [282, "product2", 634, 949, [281, 283, 285]], [283, "box", 674, 952, [282, 284, null]], [284, ["string", "old hour"], 692, 957, [283, null]], [285, "division2", 674, 966, [282, 286, 287]], [286, ["number", "360"], 714, 974, [285, null]], [287, ["number", "12"], 733, 1007, [285, null]], [288, "identity", 594, 1035, [280, 289]], [289, "division2", 634, 1039, [288, 290, 295]], [290, "product2", 674, 1023, [289, 291, 292]], [291, "box", 714, 1026, [290, 350, null]], [292, "division2", 714, 1040, [290, 293, 294]], [293, ["number", "360"], 754, 1048, [292, null]], [294, ["number", "60"], 773, 1081, [292, null]], [295, "identity", 693, 1080, [289, 296]], [296, ["number", "12"], 733, 1108, [295, null]], [297, "setpensize", 480, 1048, [279, 298, 299]], [298, ["number", "5"], 554, 1065, [297, null]], [299, "forward", 480, 1102, [297, 300, 301]], [300, ["number", "100"], 554, 1111, [299, null]], [301, "setpensize", 480, 1141, [299, 302, 303]], [302, ["number", "25"], 554, 1158, [301, null]], [303, "forward", 480, 1195, [301, 304, 305]], [304, ["number", "1"], 554, 1204, [303, null]], [305, "back", 480, 1234, [303, 306, 307]], [306, ["number", "1"], 554, 1243, [305, null]], [307, "setpensize", 480, 1273, [305, 308, 309]], [308, ["number", "7"], 554, 1290, [307, null]], [309, "back", 480, 1327, [307, 310, 311]], [310, ["number", "100"], 554, 1336, [309, null]], [311, "setshade", 480, 1366, [309, 312, 313]], [312, ["number", "50"], 554, 1383, [311, null]], [313, "setcolor", 480, 1420, [311, 314, 315]], [314, ["number", "70"], 554, 1437, [313, null]], [315, "seth", 480, 1474, [313, 316, 334]], [316, "plus2", 554, 1459, [315, 317, 324]], [317, "identity2", 594, 1431, [316, 318]], [318, "product2", 634, 1414, [317, 319, 321]], [319, "box", 674, 1417, [318, 320, null]], [320, ["string", "hours"], 692, 1422, [319, null]], [321, "division2", 674, 1431, [318, 322, 323]], [322, ["number", "360"], 714, 1439, [321, null]], [323, ["number", "12"], 733, 1472, [321, null]], [324, "identity", 594, 1500, [316, 325]], [325, "division2", 634, 1504, [324, 326, 332]], [326, "product2", 674, 1488, [325, 327, 329]], [327, "box", 714, 1491, [326, 328, null]], [328, ["string", "minutes"], 732, 1496, [327, null]], [329, "division2", 714, 1505, [326, 330, 331]], [330, ["number", "360"], 754, 1513, [329, null]], [331, ["number", "60"], 773, 1546, [329, null]], [332, "identity", 693, 1545, [325, 333]], [333, ["number", "12"], 733, 1573, [332, null]], [334, "setpensize", 480, 1513, [315, 335, 336]], [335, ["number", "5"], 554, 1530, [334, null]], [336, "forward", 480, 1567, [334, 337, 338]], [337, ["number", "100"], 554, 1576, [336, null]], [338, "setpensize", 480, 1606, [336, 339, 340]], [339, ["number", "25"], 554, 1623, [338, null]], [340, "forward", 480, 1660, [338, 341, 342]], [341, ["number", "1"], 554, 1669, [340, null]], [342, "setpensize", 480, 1699, [340, 343, 344]], [343, ["number", "5"], 554, 1716, [342, null]], [344, "back", 480, 1753, [342, 345, 346]], [345, ["number", "101"], 554, 1762, [344, null]], [346, "storein", 480, 1792, [344, 347, 348, null]], [347, ["string", "old hour"], 492, 1819, [346, null]], [348, "box", 610, 1805, [346, 349, null]], [349, ["string", "hours"], 628, 1810, [348, null]], [350, ["string", "old minute"], 732, 1031, [291, null]], [351, "division2", 1107, 1190, [66, 352, 353]], [352, "heading", 1147, 1198, [351, null]], [353, ["number", "3.6"], 1166, 1231, [351, null]], [354, "division2", 1198, 1355, [76, 356, 355]], [355, ["number", "3.6"], 1257, 1396, [354, null]], [356, "heading", 1238, 1363, [354, null]], [-1, "turtle", 0.0, -3.694822225952521e-13, 210.0, 30.0, 30.0, 5.0]] \ No newline at end of file diff --git a/samples/colors.ta b/samples/colors.ta new file mode 100644 index 0000000..c7b7c16 --- /dev/null +++ b/samples/colors.ta @@ -0,0 +1,134 @@ +(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 diff --git a/samples/csquiral.ta b/samples/csquiral.ta new file mode 100644 index 0000000..647b5b2 --- /dev/null +++ b/samples/csquiral.ta @@ -0,0 +1,210 @@ +(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 diff --git a/samples/curlygates.ta b/samples/curlygates.ta new file mode 100644 index 0000000..b739008 --- /dev/null +++ b/samples/curlygates.ta @@ -0,0 +1,469 @@ +(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 diff --git a/samples/dots.ta b/samples/dots.ta new file mode 100644 index 0000000..6c35cdc --- /dev/null +++ b/samples/dots.ta @@ -0,0 +1,233 @@ +(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 diff --git a/samples/find_boston.ta b/samples/find_boston.ta new file mode 100644 index 0000000..76ab7dc --- /dev/null +++ b/samples/find_boston.ta @@ -0,0 +1 @@ +[[0, "hat", 183, 16, [null, 1, 2]], [1, ["string", "Q1"], 204, 43, [0, null]], [2, "storein", 221, 86, [0, 3, 17, 4]], [3, ["string", "x"], 233, 113, [2, null]], [4, "storein", 221, 140, [2, 5, 18, 6]], [5, ["string", "y"], 233, 167, [4, null]], [6, "storein", 221, 194, [4, 7, 16, 8]], [7, ["string", "size"], 233, 221, [6, null]], [8, "storein", 221, 248, [6, 9, 10, 11]], [9, ["string", "name"], 233, 275, [8, null]], [10, ["string", "North America"], 351, 267, [8, null]], [11, "storein", 221, 302, [8, 12, 13, 14]], [12, ["string", "picture"], 233, 329, [11, null]], [13, ["journal", "3562805e-5ff2-4b18-a6df-6c9057e266d5"], 351, 305, [11, null]], [14, "stack", 221, 356, [11, 15, null]], [15, ["string", "go"], 233, 368, [14, null]], [16, ["number", "180"], 351, 212, [6, null]], [17, ["number", "-250"], 351, 104, [2, null]], [18, ["number", "200"], 351, 158, [4, null]], [19, "hat", 654, 10, [null, 20, 21]], [20, ["string", "Q3"], 675, 37, [19, null]], [21, "storein", 692, 80, [19, 22, 23, 24]], [22, ["string", "x"], 704, 107, [21, null]], [23, ["number", "481"], 822, 98, [21, null]], [24, "storein", 692, 134, [21, 25, 26, 27]], [25, ["string", "y"], 704, 161, [24, null]], [26, ["number", "279"], 822, 152, [24, null]], [27, "storein", 692, 188, [24, 28, 29, 30]], [28, ["string", "size"], 704, 215, [27, null]], [29, ["number", "100"], 822, 206, [27, null]], [30, "storein", 692, 242, [27, 31, 32, 33]], [31, ["string", "name"], 704, 269, [30, null]], [32, ["string", "New England"], 822, 261, [30, null]], [33, "storein", 692, 296, [30, 34, 35, 36]], [34, ["string", "picture"], 704, 323, [33, null]], [35, ["journal", "25949567-1329-4488-b2ba-e5a589e7800c"], 822, 299, [33, null]], [36, "stack", 692, 350, [33, 37, null]], [37, ["string", "go"], 704, 362, [36, null]], [38, "hat", 424, 28, [null, 39, 40]], [39, ["string", "Q2"], 445, 55, [38, null]], [40, "storein", 462, 98, [38, 41, 42, 43]], [41, ["string", "x"], 474, 125, [40, null]], [42, ["number", "-200"], 592, 116, [40, null]], [43, "storein", 462, 152, [40, 44, 45, 46]], [44, ["string", "y"], 474, 179, [43, null]], [45, ["number", "-220"], 592, 170, [43, null]], [46, "storein", 462, 206, [43, 47, 48, 49]], [47, ["string", "size"], 474, 233, [46, null]], [48, ["number", "200"], 592, 224, [46, null]], [49, "storein", 462, 260, [46, 50, 51, 52]], [50, ["string", "name"], 474, 287, [49, null]], [51, ["string", "USA"], 592, 279, [49, null]], [52, "storein", 462, 314, [49, 53, 54, 55]], [53, ["string", "picture"], 474, 341, [52, null]], [54, ["journal", "881d35a4-546d-4309-af21-5c93b4b276b5"], 592, 317, [52, null]], [55, "stack", 462, 368, [52, 56, null]], [56, ["string", "go"], 474, 380, [55, null]], [57, "hat", 192, 449, [null, 58, 59]], [58, ["string", "Q4"], 213, 476, [57, null]], [59, "storein", 230, 519, [57, 60, 61, 62]], [60, ["string", "x"], 242, 546, [59, null]], [61, ["number", "-456"], 360, 537, [59, null]], [62, "storein", 230, 573, [59, 63, 64, 65]], [63, ["string", "y"], 242, 600, [62, null]], [64, ["number", "-175"], 360, 591, [62, null]], [65, "storein", 230, 627, [62, 66, 67, 68]], [66, ["string", "size"], 242, 654, [65, null]], [67, ["number", "100"], 360, 645, [65, null]], [68, "storein", 230, 681, [65, 69, 70, 71]], [69, ["string", "name"], 242, 708, [68, null]], [70, ["string", "Massachusetts"], 360, 700, [68, null]], [71, "storein", 230, 735, [68, 72, 73, 74]], [72, ["string", "picture"], 242, 762, [71, null]], [73, ["journal", "c27445ad-fc18-4f5b-afb2-7307075f7ea7"], 360, 738, [71, null]], [74, "stack", 230, 789, [71, 75, null]], [75, ["string", "go"], 242, 801, [74, null]], [76, "hat", 16, 807, [null, 77, 78]], [77, ["string", "calculate distance"], 37, 834, [76, null]], [78, "storein", 54, 877, [76, 79, 80, 87]], [79, ["string", "dx"], 66, 904, [78, null]], [80, "minus2", 184, 871, [78, 81, 86]], [81, "product2", 224, 855, [80, 82, 84]], [82, "box", 264, 858, [81, 83, null]], [83, ["string", "x"], 282, 863, [82, null]], [84, "box", 264, 891, [81, 85, null]], [85, ["string", "scale"], 282, 896, [84, null]], [86, "xcor", 243, 912, [80, null]], [87, "storein", 54, 931, [78, 88, 89, 96]], [88, ["string", "dy"], 66, 958, [87, null]], [89, "minus2", 184, 925, [87, 90, 95]], [90, "product2", 224, 909, [89, 91, 93]], [91, "box", 264, 912, [90, 92, null]], [92, ["string", "y"], 282, 917, [91, null]], [93, "box", 264, 945, [90, 94, null]], [94, ["string", "scale"], 282, 950, [93, null]], [95, "ycor", 243, 966, [89, null]], [96, "storein", 54, 985, [87, 97, 98, null]], [97, ["string", "distance"], 66, 1012, [96, null]], [98, "sqrt", 184, 995, [96, 99]], [99, "plus2", 226, 979, [98, 100, 106]], [100, "identity2", 266, 951, [99, 101]], [101, "product2", 306, 934, [100, 102, 104]], [102, "box", 346, 937, [101, 103, null]], [103, ["string", "dx"], 364, 942, [102, null]], [104, "box", 346, 970, [101, 105, null]], [105, ["string", "dx"], 364, 975, [104, null]], [106, "identity", 266, 1020, [99, 107]], [107, "product2", 306, 1024, [106, 108, 110]], [108, "box", 346, 1027, [107, 109, null]], [109, ["string", "dy"], 364, 1032, [108, null]], [110, "box", 346, 1060, [107, 111, null]], [111, ["string", "dy"], 364, 1065, [110, null]], [112, "start", 931, 13, [null, 113]], [113, "storein", 943, 63, [112, 114, 115, 116]], [114, ["string", "test"], 955, 90, [113, null]], [115, ["number", "0"], 1073, 81, [113, null]], [116, "stack", 943, 117, [113, 117, 118]], [117, ["string", "setup"], 955, 129, [116, null]], [118, "stack", 943, 156, [116, 119, 120]], [119, ["string", "map"], 955, 168, [118, null]], [120, "stack", 943, 195, [118, 121, 122]], [121, ["string", "Q1"], 955, 207, [120, null]], [122, "stack", 943, 234, [120, 123, 124]], [123, ["string", "Q2"], 955, 246, [122, null]], [124, "stack", 943, 273, [122, 125, 126]], [125, ["string", "Q3"], 955, 285, [124, null]], [126, "stack", 943, 312, [124, 127, 128]], [127, ["string", "Q4"], 955, 324, [126, null]], [128, "stack", 943, 351, [126, 129, 130]], [129, ["string", "Q5"], 955, 363, [128, null]], [130, "stack", 943, 390, [128, 131, null]], [131, ["string", "star"], 955, 402, [130, null]], [132, "hat", 459, 443, [null, 133, 134]], [133, ["string", "Q5"], 480, 470, [132, null]], [134, "storein", 497, 513, [132, 135, 136, 137]], [135, ["string", "x"], 509, 540, [134, null]], [136, ["number", "210"], 627, 531, [134, null]], [137, "storein", 497, 567, [134, 138, 139, 140]], [138, ["string", "y"], 509, 594, [137, null]], [139, ["number", "200"], 627, 585, [137, null]], [140, "storein", 497, 621, [137, 141, 142, 143]], [141, ["string", "size"], 509, 648, [140, null]], [142, ["number", "50"], 627, 639, [140, null]], [143, "storein", 497, 675, [140, 144, 145, 146]], [144, ["string", "name"], 509, 702, [143, null]], [145, ["string", "Boston"], 627, 694, [143, null]], [146, "storein", 497, 729, [143, 147, 148, 149]], [147, ["string", "picture"], 509, 756, [146, null]], [148, ["journal", "555170a9-688c-46ff-9071-c392c71c5eb8"], 627, 732, [146, null]], [149, "stack", 497, 783, [146, 150, null]], [150, ["string", "go"], 509, 795, [149, null]], [151, "hat", 716, 437, [null, 152, 153]], [152, ["string", "map"], 737, 464, [151, null]], [153, "setscale", 754, 507, [151, 154, 155]], [154, ["number", "100"], 828, 516, [153, null]], [155, "setxy", 754, 546, [153, 156, 157, 158]], [156, ["number", "0"], 828, 555, [155, null]], [157, ["number", "0"], 828, 592, [155, null]], [158, "show", 754, 622, [155, 159, null]], [159, ["journal", "3261f780-e492-4034-a773-f400542d02ca"], 828, 616, [158, null]], [160, "hat", 938, 446, [null, 161, 162]], [161, ["string", "go"], 959, 473, [160, null]], [162, "if", 976, 516, [160, 163, 167, 187]], [163, "greater", 1056, 526, [162, 164, 166, null]], [164, "box", 1088, 530, [163, 165, null]], [165, ["string", "test"], 1106, 535, [164, null]], [166, ["number", "0"], 1237, 535, [163, null]], [167, "setxy", 1071, 590, [162, 168, 175, 177]], [168, "minus2", 1145, 575, [167, 169, 171]], [169, "box", 1185, 578, [168, 170, null]], [170, ["string", "x"], 1203, 583, [169, null]], [171, "division2", 1204, 592, [168, 172, 174]], [172, "box", 1244, 595, [171, 173, null]], [173, ["string", "size"], 1262, 600, [172, null]], [174, ["number", "2"], 1263, 633, [171, null]], [175, "box", 1145, 631, [167, 176, null]], [176, ["string", "y"], 1163, 636, [175, null]], [177, "arc", 1071, 666, [167, 178, 179, 181]], [178, ["number", "360"], 1145, 675, [177, null]], [179, "box", 1145, 707, [177, 180, null]], [180, ["string", "size"], 1163, 712, [179, null]], [181, "print", 1071, 742, [177, 182, null]], [182, "plus2", 1145, 727, [181, 183, 184]], [183, "xcor", 1185, 735, [182, null]], [184, "plus2", 1185, 744, [182, 185, 186]], [185, ["string", ", "], 1225, 753, [184, null]], [186, "ycor", 1225, 785, [184, null]], [187, "vspace", 976, 631, [162, 188]], [188, "vspace", 976, 700, [187, 189]], [189, "setxy", 976, 769, [188, 190, 191, 193]], [190, ["number", "0"], 1050, 778, [189, null]], [191, "box", 1050, 810, [189, 192, null]], [192, ["string", "box"], 1068, 815, [191, null]], [193, "settextsize", 976, 845, [189, 194, 198]], [194, "product2", 1050, 838, [193, 195, 196]], [195, ["number", "24"], 1090, 846, [194, null]], [196, "box", 1090, 874, [194, 197, null]], [197, ["string", "scale"], 1108, 879, [196, null]], [198, "show", 976, 899, [193, 199, 203]], [199, "plus2", 1050, 884, [198, 200, 201]], [200, ["string", "Put the turtle in "], 1090, 893, [199, null]], [201, "box", 1090, 920, [199, 202, null]], [202, ["string", "name"], 1108, 925, [201, null]], [203, "setxy", 976, 938, [198, 204, 205, 206]], [204, ["number", "0"], 1050, 947, [203, null]], [205, ["number", "0"], 1050, 984, [203, null]], [206, "forever", 976, 1014, [203, 207, null]], [207, "stack", 1057, 1028, [206, 208, 209]], [208, ["string", "calculate distance"], 1069, 1040, [207, null]], [209, "if", 1057, 1067, [207, 210, 218, 228]], [210, "less", 1137, 1077, [209, 211, 213, null]], [211, "box", 1169, 1081, [210, 212, null]], [212, ["string", "distance"], 1187, 1086, [211, null]], [213, "product2", 1318, 1062, [210, 214, 216]], [214, "box", 1358, 1065, [213, 215, null]], [215, ["string", "size"], 1376, 1070, [214, null]], [216, "box", 1358, 1098, [213, 217, null]], [217, ["string", "scale"], 1376, 1103, [216, null]], [218, "clean", 1152, 1141, [209, 219]], [219, "setxy", 1152, 1180, [218, 220, 221, 222]], [220, ["number", "0"], 1226, 1189, [219, null]], [221, ["number", "0"], 1226, 1226, [219, null]], [222, "setscale", 1152, 1256, [219, 223, 224]], [223, ["number", "100"], 1226, 1265, [222, null]], [224, "show", 1152, 1295, [222, 225, 227]], [225, "box", 1226, 1299, [224, 226, null]], [226, ["string", "picture"], 1244, 1304, [225, null]], [227, "stopstack", 1152, 1334, [224, null]], [228, "wait", 1057, 1182, [209, 229, null]], [229, ["number", "10"], 1131, 1191, [228, null]], [230, "hat", 487, 873, [null, 231, 232]], [231, ["string", "setup"], 508, 900, [230, null]], [232, "storein", 525, 943, [230, 233, 234, 237]], [233, ["string", "scale"], 537, 970, [232, null]], [234, "division2", 655, 937, [232, 235, 236]], [235, "vres", 695, 945, [234, null]], [236, ["number", "900"], 714, 978, [234, null]], [237, "storein", 525, 997, [232, 238, 239, 243]], [238, ["string", "box"], 537, 1024, [237, null]], [239, "product2", 655, 991, [237, 240, 241]], [240, ["number", "-260"], 695, 999, [239, null]], [241, "box", 695, 1027, [239, 242, null]], [242, ["string", "scale"], 713, 1032, [241, null]], [243, "hideblocks", 525, 1051, [237, 244]], [244, "clean", 525, 1105, [243, null]], [245, "hat", 792, 860, [null, 246, 247]], [246, ["string", "star"], 813, 887, [245, null]], [247, "setpensize", 830, 930, [245, 248, 249]], [248, ["number", "15"], 904, 947, [247, null]], [249, "setxy", 830, 984, [247, 250, 251, 252]], [250, ["number", "0"], 904, 993, [249, null]], [251, ["number", "0"], 904, 1030, [249, null]], [252, "repeat", 830, 1060, [249, 253, 254, null]], [253, ["number", "5"], 916, 1069, [252, null]], [254, "setcolor", 925, 1109, [252, 255, 256]], [255, "heading", 999, 1126, [254, null]], [256, "forward", 925, 1163, [254, 257, 258]], [257, ["number", "200"], 999, 1172, [256, null]], [258, "right", 925, 1202, [256, 259, null]], [259, ["number", "144"], 999, 1211, [258, null]], [-1, "turtle", 1.4210854715202004e-14, -2.8421709430404007e-14, 0.0, 216.0, 50, 15.0]] \ No newline at end of file diff --git a/samples/flower.ta b/samples/flower.ta new file mode 100644 index 0000000..0f6ce72 --- /dev/null +++ b/samples/flower.ta @@ -0,0 +1,297 @@ +(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 diff --git a/samples/fountain.ta b/samples/fountain.ta new file mode 100644 index 0000000..f6ca625 --- /dev/null +++ b/samples/fountain.ta @@ -0,0 +1,419 @@ +(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 diff --git a/samples/rainbow.ta b/samples/rainbow.ta new file mode 100644 index 0000000..6ceaf12 --- /dev/null +++ b/samples/rainbow.ta @@ -0,0 +1,194 @@ +(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 diff --git a/samples/redwisp.ta b/samples/redwisp.ta new file mode 100644 index 0000000..497d3a6 --- /dev/null +++ b/samples/redwisp.ta @@ -0,0 +1,363 @@ +(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 diff --git a/samples/reflections.ta b/samples/reflections.ta new file mode 100644 index 0000000..77c6a7e --- /dev/null +++ b/samples/reflections.ta @@ -0,0 +1,298 @@ +(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 diff --git a/samples/shades.ta b/samples/shades.ta new file mode 100644 index 0000000..c9c9919 --- /dev/null +++ b/samples/shades.ta @@ -0,0 +1,194 @@ +(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 diff --git a/samples/shape-and-color-game.ta b/samples/shape-and-color-game.ta new file mode 100644 index 0000000..2af4959 --- /dev/null +++ b/samples/shape-and-color-game.ta @@ -0,0 +1 @@ +[[0, "hat", 28, 522, [null, 1, 2]], [1, ["string", "circle"], 49, 549, [0, null]], [2, "penup", 66, 592, [0, 3]], [3, "seth", 66, 631, [2, 4, 5]], [4, ["number", "270"], 140, 640, [3, null]], [5, "forward", 66, 670, [3, 6, 7]], [6, ["number", "56"], 140, 679, [5, null]], [7, "seth", 66, 709, [5, 8, 9]], [8, ["number", "0"], 140, 718, [7, null]], [9, "pendown", 66, 748, [7, 10]], [10, "arc", 66, 787, [9, 11, 12, null]], [11, ["number", "360"], 140, 796, [10, null]], [12, ["number", "56"], 140, 833, [10, null]], [13, "hat", 182, 520, [null, 14, 15]], [14, ["string", "square"], 203, 547, [13, null]], [15, "penup", 220, 590, [13, 16]], [16, "seth", 220, 629, [15, 17, 18]], [17, ["number", "0"], 294, 638, [16, null]], [18, "back", 220, 668, [16, 19, 20]], [19, ["number", "50"], 294, 677, [18, null]], [20, "seth", 220, 707, [18, 21, 22]], [21, ["number", "270"], 294, 716, [20, null]], [22, "forward", 220, 746, [20, 23, 24]], [23, ["number", "50"], 294, 755, [22, null]], [24, "seth", 220, 785, [22, 25, 26]], [25, ["number", "0"], 294, 794, [24, null]], [26, "pendown", 220, 824, [24, 27]], [27, "repeat", 220, 863, [26, 28, 29, null]], [28, ["number", "4"], 306, 872, [27, null]], [29, "forward", 315, 912, [27, 30, 31]], [30, ["number", "100"], 389, 921, [29, null]], [31, "right", 315, 951, [29, 32, null]], [32, ["number", "90"], 389, 960, [31, null]], [33, "hat", 341, 519, [null, 34, 35]], [34, ["string", "triangle"], 362, 546, [33, null]], [35, "penup", 379, 589, [33, 36]], [36, "seth", 379, 628, [35, 37, 38]], [37, ["number", "270"], 453, 637, [36, null]], [38, "forward", 379, 667, [36, 39, 40]], [39, ["number", "60"], 453, 676, [38, null]], [40, "seth", 379, 706, [38, 41, 42]], [41, ["number", "0"], 453, 715, [40, null]], [42, "back", 379, 745, [40, 43, 44]], [43, ["number", "50"], 453, 754, [42, null]], [44, "seth", 379, 784, [42, 45, 46]], [45, ["number", "30"], 453, 793, [44, null]], [46, "pendown", 379, 823, [44, 47]], [47, "repeat", 379, 862, [46, 48, 49, 53]], [48, ["number", "3"], 465, 871, [47, null]], [49, "forward", 474, 911, [47, 50, 51]], [50, ["number", "120"], 548, 920, [49, null]], [51, "right", 474, 950, [49, 52, null]], [52, ["number", "120"], 548, 959, [51, null]], [53, "seth", 379, 952, [47, 54, null]], [54, ["number", "0"], 453, 961, [53, null]], [55, "hat", 502, 514, [null, 56, 57]], [56, ["string", "star"], 523, 541, [55, null]], [57, "penup", 540, 584, [55, 58]], [58, "seth", 540, 623, [57, 59, 60]], [59, ["number", "0"], 614, 632, [58, null]], [60, "back", 540, 662, [58, 61, 62]], [61, ["number", "44"], 614, 671, [60, null]], [62, "seth", 540, 701, [60, 63, 64]], [63, ["number", "270"], 614, 710, [62, null]], [64, "forward", 540, 740, [62, 65, 66]], [65, ["number", "30"], 614, 749, [64, null]], [66, "seth", 540, 779, [64, 67, 68]], [67, ["number", "18"], 614, 788, [66, null]], [68, "pendown", 540, 818, [66, 69]], [69, "repeat", 540, 857, [68, 70, 71, 75]], [70, ["number", "5"], 626, 866, [69, null]], [71, "forward", 635, 906, [69, 72, 73]], [72, ["number", "100"], 709, 915, [71, null]], [73, "right", 635, 945, [71, 74, null]], [74, ["number", "144"], 709, 954, [73, null]], [75, "seth", 540, 947, [69, 76, null]], [76, ["number", "0"], 614, 956, [75, null]], [77, "hat", 660, 515, [null, 78, 79]], [78, ["string", "shapes"], 681, 542, [77, null]], [79, "setpensize", 698, 585, [77, 80, 81]], [80, ["number", "10"], 772, 602, [79, null]], [81, "setxy", 698, 639, [79, 82, 83, 84]], [82, ["number", "-100"], 772, 648, [81, null]], [83, ["number", "100"], 772, 685, [81, null]], [84, "setcolor", 698, 715, [81, 85, 86]], [85, "pop", 772, 732, [84, null]], [86, "stack", 698, 769, [84, 87, 88]], [87, "pop", 710, 780, [86, null]], [88, "setxy", 698, 808, [86, 89, 90, 91]], [89, ["number", "100"], 772, 817, [88, null]], [90, ["number", "100"], 772, 854, [88, null]], [91, "setcolor", 698, 884, [88, 92, 93]], [92, "pop", 772, 901, [91, null]], [93, "stack", 698, 938, [91, 94, 95]], [94, "pop", 710, 949, [93, null]], [95, "setxy", 698, 977, [93, 96, 97, 98]], [96, ["number", "100"], 772, 986, [95, null]], [97, ["number", "-100"], 772, 1023, [95, null]], [98, "setcolor", 698, 1053, [95, 99, 100]], [99, "pop", 772, 1070, [98, null]], [100, "stack", 698, 1107, [98, 101, 102]], [101, "pop", 710, 1118, [100, null]], [102, "setxy", 698, 1146, [100, 103, 104, 105]], [103, ["number", "-100"], 772, 1155, [102, null]], [104, ["number", "-100"], 772, 1192, [102, null]], [105, "setcolor", 698, 1222, [102, 106, 107]], [106, "pop", 772, 1239, [105, null]], [107, "stack", 698, 1276, [105, 108, 109]], [108, "pop", 710, 1287, [107, null]], [109, "setxy", 698, 1315, [107, 110, 111, null]], [110, ["number", "0"], 772, 1324, [109, null]], [111, ["number", "0"], 772, 1361, [109, null]], [112, "hat", 840, 514, [null, 113, 114]], [113, ["string", "calculate distance"], 861, 541, [112, null]], [114, "storein", 878, 584, [112, 115, 116, 120]], [115, ["string", "dx"], 890, 611, [114, null]], [116, "minus2", 1008, 578, [114, 117, 119]], [117, "box", 1048, 581, [116, 118, null]], [118, ["string", "x"], 1066, 586, [117, null]], [119, "xcor", 1067, 619, [116, null]], [120, "storein", 878, 638, [114, 121, 122, 126]], [121, ["string", "dy"], 890, 665, [120, null]], [122, "minus2", 1008, 632, [120, 123, 125]], [123, "box", 1048, 635, [122, 124, null]], [124, ["string", "y"], 1066, 640, [123, null]], [125, "ycor", 1067, 673, [122, null]], [126, "storein", 878, 692, [120, 127, 128, null]], [127, ["string", "distance"], 890, 719, [126, null]], [128, "sqrt", 1008, 702, [126, 129]], [129, "plus2", 1050, 686, [128, 130, 136]], [130, "identity2", 1090, 658, [129, 131]], [131, "product2", 1130, 641, [130, 132, 134]], [132, "box", 1170, 644, [131, 133, null]], [133, ["string", "dx"], 1188, 649, [132, null]], [134, "box", 1170, 677, [131, 135, null]], [135, ["string", "dx"], 1188, 682, [134, null]], [136, "identity", 1090, 727, [129, 137]], [137, "product2", 1130, 731, [136, 138, 140]], [138, "box", 1170, 734, [137, 139, null]], [139, ["string", "dy"], 1188, 739, [138, null]], [140, "box", 1170, 767, [137, 141, null]], [141, ["string", "dy"], 1188, 772, [140, null]], [142, "hat", 145, 17, [null, 143, 144]], [143, ["string", "q1"], 166, 44, [142, null]], [144, "storein", 183, 87, [142, 145, 146, 147]], [145, ["string", "x"], 195, 114, [144, null]], [146, ["number", "100"], 313, 105, [144, null]], [147, "storein", 183, 141, [144, 148, 149, 150]], [148, ["string", "y"], 195, 168, [147, null]], [149, ["number", "100"], 313, 159, [147, null]], [150, "push", 183, 195, [147, 163, 151]], [151, "stack", 183, 234, [150, 152, null]], [152, ["string", "ask"], 195, 246, [151, null]], [153, "hat", 371, 11, [null, 161, 154]], [154, "storein", 409, 81, [153, 155, 165, 156]], [155, ["string", "x"], 421, 108, [154, null]], [156, "storein", 409, 135, [154, 157, 164, 158]], [157, ["string", "y"], 421, 162, [156, null]], [158, "push", 409, 189, [156, 162, 159]], [159, "stack", 409, 228, [158, 160, null]], [160, ["string", "ask"], 421, 240, [159, null]], [161, ["string", "q2"], 392, 38, [153, null]], [162, ["string", "Put the turtle in the red square."], 483, 199, [158, null]], [163, ["string", "Put the turtle in the blue triangle."], 257, 205, [150, null]], [164, ["number", "100"], 539, 153, [156, null]], [165, ["number", "-100"], 539, 99, [154, null]], [166, "hat", 143, 290, [null, 167, 168]], [167, ["string", "q3"], 164, 317, [166, null]], [168, "storein", 181, 360, [166, 169, 305, 170]], [169, ["string", "x"], 193, 387, [168, null]], [170, "storein", 181, 414, [168, 171, 172, 173]], [171, ["string", "y"], 193, 441, [170, null]], [172, ["number", "-100"], 311, 432, [170, null]], [173, "push", 181, 468, [170, 304, 174]], [174, "stack", 181, 507, [173, 175, null]], [175, ["string", "ask"], 193, 519, [174, null]], [176, "hat", 411, 283, [null, 177, 178]], [177, ["string", "fini"], 432, 310, [176, null]], [178, "storein", 449, 353, [176, 181, 179, 180]], [179, ["number", "0"], 579, 371, [178, null]], [180, "storein", 449, 407, [178, 182, 183, 184]], [181, ["string", "x"], 461, 380, [178, null]], [182, ["string", "y"], 461, 434, [180, null]], [183, ["number", "0"], 579, 425, [180, null]], [184, "push", 449, 461, [180, 185, 186]], [185, ["string", "Well played!"], 523, 471, [184, null]], [186, "stack", 449, 500, [184, 187, null]], [187, ["string", "ask"], 461, 512, [186, null]], [188, "hat", 868, 0, [null, 189, 190]], [189, ["string", "pattern a"], 889, 27, [188, null]], [190, "clean", 906, 70, [188, 191]], [191, "push", 906, 109, [190, 192, 193]], [192, ["string", "square"], 980, 119, [191, null]], [193, "push", 906, 148, [191, 194, 196]], [194, "box", 980, 152, [193, 195, null]], [195, ["string", "blue"], 998, 157, [194, null]], [196, "push", 906, 187, [193, 197, 198]], [197, ["string", "circle"], 980, 197, [196, null]], [198, "push", 906, 226, [196, 199, 201]], [199, "box", 980, 230, [198, 200, null]], [200, ["string", "green"], 998, 235, [199, null]], [201, "push", 906, 265, [198, 202, 203]], [202, ["string", "triangle"], 980, 275, [201, null]], [203, "push", 906, 304, [201, 204, 206]], [204, "box", 980, 308, [203, 205, null]], [205, ["string", "blue"], 998, 313, [204, null]], [206, "push", 906, 343, [203, 207, 208]], [207, ["string", "square"], 980, 353, [206, null]], [208, "push", 906, 382, [206, 209, 211]], [209, "box", 980, 386, [208, 210, null]], [210, ["string", "red"], 998, 391, [209, null]], [211, "stack", 906, 421, [208, 212, null]], [212, ["string", "shapes"], 918, 433, [211, null]], [213, "hat", 1222, 5, [null, 214, 215]], [214, ["string", "ask"], 1243, 32, [213, null]], [215, "setxy", 1260, 75, [213, 216, 217, 218]], [216, ["number", "-200"], 1334, 84, [215, null]], [217, ["number", "230"], 1334, 121, [215, null]], [218, "seth", 1260, 151, [215, 219, 220]], [219, ["number", "90"], 1334, 160, [218, null]], [220, "setcolor", 1260, 190, [218, 221, 222]], [221, ["number", "0"], 1334, 207, [220, null]], [222, "setshade", 1260, 244, [220, 223, 224]], [223, ["number", "100"], 1334, 261, [222, null]], [224, "setpensize", 1260, 298, [222, 225, 226]], [225, ["number", "120"], 1334, 315, [224, null]], [226, "forward", 1260, 352, [224, 227, 228]], [227, ["number", "530"], 1334, 361, [226, null]], [228, "back", 1260, 391, [226, 229, 230]], [229, ["number", "530"], 1334, 400, [228, null]], [230, "setshade", 1260, 430, [228, 231, 232]], [231, ["number", "50"], 1334, 447, [230, null]], [232, "seth", 1260, 484, [230, 233, 234]], [233, ["number", "0"], 1334, 493, [232, null]], [234, "setxy", 1260, 523, [232, 235, 236, 237]], [235, ["number", "-200"], 1334, 532, [234, null]], [236, ["number", "250"], 1334, 569, [234, null]], [237, "show", 1260, 599, [234, 238, 239]], [238, "pop", 1334, 608, [237, null]], [239, "setxy", 1260, 638, [237, 240, 241, 242]], [240, ["number", "0"], 1334, 647, [239, null]], [241, ["number", "0"], 1334, 684, [239, null]], [242, "forever", 1260, 714, [239, 243, null]], [243, "stack", 1341, 728, [242, 244, 245]], [244, ["string", "calculate distance"], 1353, 740, [243, null]], [245, "if", 1341, 767, [243, 246, 250, 254]], [246, "less", 1421, 777, [245, 247, 249, null]], [247, "box", 1453, 781, [246, 248, null]], [248, ["string", "distance"], 1471, 786, [247, null]], [249, ["number", 100], 1602, 786, [246, null]], [250, "setxy", 1436, 841, [245, 251, 252, 253]], [251, ["number", "0"], 1510, 850, [250, null]], [252, ["number", "0"], 1510, 887, [250, null]], [253, "stopstack", 1436, 917, [250, null]], [254, "wait", 1341, 882, [245, 255, null]], [255, ["number", "10"], 1415, 891, [254, null]], [256, "hat", 1038, 0, [null, 257, 258]], [257, ["string", "pattern b"], 1059, 27, [256, null]], [258, "clean", 1076, 70, [256, 259]], [259, "push", 1076, 109, [258, 260, 261]], [260, ["string", "circle"], 1150, 119, [259, null]], [261, "push", 1076, 148, [259, 262, 264]], [262, "box", 1150, 152, [261, 263, null]], [263, ["string", "red"], 1168, 157, [262, null]], [264, "push", 1076, 187, [261, 265, 266]], [265, ["string", "circle"], 1150, 197, [264, null]], [266, "push", 1076, 226, [264, 267, 269]], [267, "box", 1150, 230, [266, 268, null]], [268, ["string", "green"], 1168, 235, [267, null]], [269, "push", 1076, 265, [266, 270, 271]], [270, ["string", "square"], 1150, 275, [269, null]], [271, "push", 1076, 304, [269, 272, 274]], [272, "box", 1150, 308, [271, 273, null]], [273, ["string", "blue"], 1168, 313, [272, null]], [274, "push", 1076, 343, [271, 275, 276]], [275, ["string", "triangle"], 1150, 353, [274, null]], [276, "push", 1076, 382, [274, 277, 279]], [277, "box", 1150, 386, [276, 278, null]], [278, ["string", "red"], 1168, 391, [277, null]], [279, "stack", 1076, 421, [276, 280, null]], [280, ["string", "shapes"], 1088, 433, [279, null]], [281, "start", 645, 13, [null, 282]], [282, "storein", 657, 63, [281, 283, 284, 285]], [283, ["string", "blue"], 669, 90, [282, null]], [284, ["number", "70"], 787, 81, [282, null]], [285, "storein", 657, 117, [282, 286, 287, 288]], [286, ["string", "red"], 669, 144, [285, null]], [287, ["number", "0"], 787, 135, [285, null]], [288, "storein", 657, 171, [285, 289, 290, 291]], [289, ["string", "green"], 669, 198, [288, null]], [290, ["number", "30"], 787, 189, [288, null]], [291, "hideblocks", 657, 225, [288, 292]], [292, "stack", 657, 279, [291, 293, 294]], [293, ["string", "pattern a"], 669, 291, [292, null]], [294, "stack", 657, 318, [292, 295, 296]], [295, ["string", "q1"], 669, 330, [294, null]], [296, "stack", 657, 357, [294, 297, 298]], [297, ["string", "q2"], 669, 369, [296, null]], [298, "stack", 657, 396, [296, 299, 300]], [299, ["string", "pattern b"], 669, 408, [298, null]], [300, "stack", 657, 435, [298, 301, 302]], [301, ["string", "q3"], 669, 447, [300, null]], [302, "stack", 657, 474, [300, 303, null]], [303, ["string", "fini"], 669, 486, [302, null]], [304, ["string", "Put the turtle in the red circle."], 255, 478, [173, null]], [305, ["number", "-100"], 311, 378, [168, null]], [-1, "turtle", 0.0, 0.0, 0.0, 0.0, 50.0, 120.0]] \ No newline at end of file diff --git a/samples/sierpquad.ta b/samples/sierpquad.ta new file mode 100644 index 0000000..7d79ceb --- /dev/null +++ b/samples/sierpquad.ta @@ -0,0 +1,487 @@ +(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 diff --git a/samples/sierpquad2.ta b/samples/sierpquad2.ta new file mode 100644 index 0000000..ede1a22 --- /dev/null +++ b/samples/sierpquad2.ta @@ -0,0 +1,695 @@ +(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 diff --git a/samples/sierptri.ta b/samples/sierptri.ta new file mode 100644 index 0000000..25a258b --- /dev/null +++ b/samples/sierptri.ta @@ -0,0 +1,416 @@ +(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 diff --git a/samples/smoothcandy.ta b/samples/smoothcandy.ta new file mode 100644 index 0000000..5002195 --- /dev/null +++ b/samples/smoothcandy.ta @@ -0,0 +1,243 @@ +(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 diff --git a/samples/snowflake.ta b/samples/snowflake.ta new file mode 100644 index 0000000..055573d --- /dev/null +++ b/samples/snowflake.ta @@ -0,0 +1,461 @@ +(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 diff --git a/samples/square.ta b/samples/square.ta new file mode 100644 index 0000000..6f394b2 --- /dev/null +++ b/samples/square.ta @@ -0,0 +1,68 @@ +(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 diff --git a/samples/squares.ta b/samples/squares.ta new file mode 100644 index 0000000..e8e86f0 --- /dev/null +++ b/samples/squares.ta @@ -0,0 +1,123 @@ +(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 diff --git a/samples/squiral.ta b/samples/squiral.ta new file mode 100644 index 0000000..0dda1a5 --- /dev/null +++ b/samples/squiral.ta @@ -0,0 +1,131 @@ +(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 diff --git a/samples/sunrise.ta b/samples/sunrise.ta new file mode 100644 index 0000000..d42ec63 --- /dev/null +++ b/samples/sunrise.ta @@ -0,0 +1,491 @@ +(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 diff --git a/samples/tree.ta b/samples/tree.ta new file mode 100644 index 0000000..660ddcd --- /dev/null +++ b/samples/tree.ta @@ -0,0 +1,656 @@ +(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 diff --git a/samples/xo-man.ta b/samples/xo-man.ta new file mode 100644 index 0000000..2e684b5 --- /dev/null +++ b/samples/xo-man.ta @@ -0,0 +1,595 @@ +(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 -- cgit v0.9.1