From ebbaf1f427c01334106add9a11802381e170d7ce Mon Sep 17 00:00:00 2001 From: U-BRIAN-X60\Brian Silverman Date: Thu, 30 Aug 2007 21:48:32 +0000 Subject: added journal awareness --- (limited to 'samples/birds.ta') diff --git a/samples/birds.ta b/samples/birds.ta index fd73c16..4144a07 100755 --- a/samples/birds.ta +++ b/samples/birds.ta @@ -2,309 +2,309 @@ (I0 S'hat1' p1 -I330 -I306 +I668 +I127 (lp2 -NaI4 +NaI1 atp3 a(I1 -S'clean' +S'setxy' p4 -I866 -I149 +I680 +I177 (lp5 -NaI2 +I0 +aI2 +aI5 +aI8 atp6 a(I2 -S'repeat' +S'random' p7 -I866 -I188 +I754 +I167 (lp8 I1 -aI31 aI3 +aI4 aNatp9 a(I3 -S'stack1' +(S'number' p10 -I961 -I237 -(lp11 +S'-600' +p11 +tp12 +I782 +I186 +(lp13 I2 -aNatp12 +aNatp14 a(I4 -S'setxy' -p13 -I342 -I356 -(lp14 -I0 -aI5 -aI8 -aI11 -atp15 -a(I5 -S'random' -p16 -I416 -I346 +(g10 +S'600' +p15 +tp16 +I904 +I186 (lp17 -I4 +I2 +aNatp18 +a(I5 +g7 +I754 +I204 +(lp19 +I1 aI6 aI7 -aNatp18 +aNatp20 a(I6 -(S'number' -p19 -S'-600' -p20 -tp21 -I444 -I365 -(lp22 +(g10 +S'-450' +p21 +tp22 +I782 +I223 +(lp23 I5 -aNatp23 +aNatp24 a(I7 -(g19 -S'600' -p24 -tp25 -I566 -I365 -(lp26 +(g10 +S'450' +p25 +tp26 +I904 +I223 +(lp27 I5 -aNatp27 +aNatp28 a(I8 -g16 -I416 -I383 -(lp28 -I4 +S'setpensize' +p29 +I680 +I253 +(lp30 +I1 aI9 aI10 -aNatp29 +atp31 a(I9 -(g19 -S'-450' -p30 -tp31 -I444 -I402 -(lp32 +(g10 +S'10' +p32 +tp33 +I754 +I270 +(lp34 I8 -aNatp33 +aNatp35 a(I10 -(g19 -S'450' -p34 -tp35 -I566 -I402 -(lp36 +S'repeat' +p36 +I680 +I307 +(lp37 I8 -aNatp37 -a(I11 -S'setpensize' -p38 -I342 -I432 -(lp39 -I4 +aI11 aI12 -aI13 -atp40 +aNatp38 +a(I11 +(g10 +S'720' +p39 +tp40 +I766 +I316 +(lp41 +I10 +aNatp42 a(I12 -(g19 -S'10' -p41 -tp42 -I416 -I449 -(lp43 -I11 -aNatp44 -a(I13 -g7 -I342 -I486 -(lp45 -I11 +S'forward' +p43 +I775 +I356 +(lp44 +I10 +aI13 aI14 -aI15 -aNatp46 +atp45 +a(I13 +(g10 +S'200' +p46 +tp47 +I849 +I365 +(lp48 +I12 +aNatp49 a(I14 -(g19 -S'720' -p47 -tp48 -I428 -I495 -(lp49 -I13 -aNatp50 +S'setcolor' +p50 +I775 +I395 +(lp51 +I12 +aI15 +aI18 +atp52 a(I15 -S'forward' -p51 -I437 -I535 -(lp52 -I13 +S'xcor' +p53 +I849 +I412 +(lp54 +I14 aI16 -aI17 -atp53 +atp55 a(I16 -(g19 -S'200' -p54 -tp55 -I511 -I544 -(lp56 +S'division' +p56 +I942 +I404 +(lp57 I15 -aNatp57 +aI17 +atp58 a(I17 -S'setcolor' -p58 -I437 -I574 -(lp59 -I15 -aI18 -aI21 -atp60 +(g10 +S'5' +p59 +tp60 +I981 +I412 +(lp61 +I16 +aNatp62 a(I18 -S'xcor' -p61 -I511 -I591 -(lp62 -I17 +S'setshade' +p63 +I775 +I449 +(lp64 +I14 aI19 -atp63 +aI20 +atp65 a(I19 -S'division' -p64 -I604 -I583 -(lp65 +S'heading' +p66 +I849 +I466 +(lp67 I18 -aI20 -atp66 +aNatp68 a(I20 -(g19 -S'5' -p67 -tp68 -I643 -I591 -(lp69 -I19 -aNatp70 -a(I21 -S'setshade' -p71 -I437 -I628 -(lp72 -I17 +S'back' +p69 +I775 +I503 +(lp70 +I18 +aI21 aI22 -aI23 -atp73 +atp71 +a(I21 +(g10 +S'400' +p72 +tp73 +I849 +I512 +(lp74 +I20 +aNatp75 a(I22 -S'heading' -p74 -I511 -I645 -(lp75 -I21 -aNatp76 +g43 +I775 +I542 +(lp76 +I20 +aI23 +aI26 +atp77 a(I23 -S'back' -p77 -I437 -I682 +g7 +I849 +I532 (lp78 -I21 +I22 aI24 aI25 -atp79 +aNatp79 a(I24 -(g19 -S'400' +(g10 +S'190' p80 tp81 -I511 -I691 +I877 +I551 (lp82 I23 aNatp83 a(I25 -g51 -I437 -I721 -(lp84 +(g10 +S'210' +p84 +tp85 +I999 +I551 +(lp86 I23 -aI26 -aI29 -atp85 +aNatp87 a(I26 -g16 -I511 -I711 -(lp86 -I25 +S'left' +p88 +I775 +I581 +(lp89 +I22 aI27 -aI28 -aNatp87 +aNatp90 a(I27 -(g19 -S'190' -p88 -tp89 -I539 -I730 -(lp90 +(g10 +S'1' +p91 +tp92 +I849 +I590 +(lp93 I26 -aNatp91 +aNatp94 a(I28 -(g19 -S'210' -p92 -tp93 -I661 -I730 -(lp94 -I26 -aNatp95 +S'clean' +p95 +I150 +I122 +(lp96 +NaI29 +atp97 a(I29 -S'left' -p96 -I437 -I760 -(lp97 -I25 +g36 +I150 +I161 +(lp98 +I28 aI30 -aNatp98 +aI31 +aNatp99 a(I30 -(g19 -S'1' -p99 -tp100 -I511 -I769 -(lp101 +(g10 +S'30' +p100 +tp101 +I236 +I170 +(lp102 I29 -aNatp102 +aNatp103 a(I31 -(g19 -S'30' -p103 -tp104 -I952 -I197 +S'stack1' +p104 +I245 +I210 (lp105 -I2 +I29 aNatp106 a(I-1 S'turtle' -- cgit v0.9.1