Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/samples/birds.ta
diff options
context:
space:
mode:
Diffstat (limited to 'samples/birds.ta')
-rwxr-xr-xsamples/birds.ta468
1 files changed, 234 insertions, 234 deletions
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'