From e6c65d33e68fdfe3b28bff284c62ead374566504 Mon Sep 17 00:00:00 2001
From: Brian Silverman <brians@playfulinvention.com>
Date: Wed, 30 May 2007 13:28:45 +0000
Subject: Initial import

---
(limited to 'samples')

diff --git a/samples/birds.png b/samples/birds.png
new file mode 100755
index 0000000..fbb44bb
--- /dev/null
+++ b/samples/birds.png
Binary files differ
diff --git a/samples/birds.ta b/samples/birds.ta
new file mode 100755
index 0000000..fd73c16
--- /dev/null
+++ b/samples/birds.ta
@@ -0,0 +1,319 @@
+(lp0
+(I0
+S'hat1'
+p1
+I330
+I306
+(lp2
+NaI4
+atp3
+a(I1
+S'clean'
+p4
+I866
+I149
+(lp5
+NaI2
+atp6
+a(I2
+S'repeat'
+p7
+I866
+I188
+(lp8
+I1
+aI31
+aI3
+aNatp9
+a(I3
+S'stack1'
+p10
+I961
+I237
+(lp11
+I2
+aNatp12
+a(I4
+S'setxy'
+p13
+I342
+I356
+(lp14
+I0
+aI5
+aI8
+aI11
+atp15
+a(I5
+S'random'
+p16
+I416
+I346
+(lp17
+I4
+aI6
+aI7
+aNatp18
+a(I6
+(S'number'
+p19
+S'-600'
+p20
+tp21
+I444
+I365
+(lp22
+I5
+aNatp23
+a(I7
+(g19
+S'600'
+p24
+tp25
+I566
+I365
+(lp26
+I5
+aNatp27
+a(I8
+g16
+I416
+I383
+(lp28
+I4
+aI9
+aI10
+aNatp29
+a(I9
+(g19
+S'-450'
+p30
+tp31
+I444
+I402
+(lp32
+I8
+aNatp33
+a(I10
+(g19
+S'450'
+p34
+tp35
+I566
+I402
+(lp36
+I8
+aNatp37
+a(I11
+S'setpensize'
+p38
+I342
+I432
+(lp39
+I4
+aI12
+aI13
+atp40
+a(I12
+(g19
+S'10'
+p41
+tp42
+I416
+I449
+(lp43
+I11
+aNatp44
+a(I13
+g7
+I342
+I486
+(lp45
+I11
+aI14
+aI15
+aNatp46
+a(I14
+(g19
+S'720'
+p47
+tp48
+I428
+I495
+(lp49
+I13
+aNatp50
+a(I15
+S'forward'
+p51
+I437
+I535
+(lp52
+I13
+aI16
+aI17
+atp53
+a(I16
+(g19
+S'200'
+p54
+tp55
+I511
+I544
+(lp56
+I15
+aNatp57
+a(I17
+S'setcolor'
+p58
+I437
+I574
+(lp59
+I15
+aI18
+aI21
+atp60
+a(I18
+S'xcor'
+p61
+I511
+I591
+(lp62
+I17
+aI19
+atp63
+a(I19
+S'division'
+p64
+I604
+I583
+(lp65
+I18
+aI20
+atp66
+a(I20
+(g19
+S'5'
+p67
+tp68
+I643
+I591
+(lp69
+I19
+aNatp70
+a(I21
+S'setshade'
+p71
+I437
+I628
+(lp72
+I17
+aI22
+aI23
+atp73
+a(I22
+S'heading'
+p74
+I511
+I645
+(lp75
+I21
+aNatp76
+a(I23
+S'back'
+p77
+I437
+I682
+(lp78
+I21
+aI24
+aI25
+atp79
+a(I24
+(g19
+S'400'
+p80
+tp81
+I511
+I691
+(lp82
+I23
+aNatp83
+a(I25
+g51
+I437
+I721
+(lp84
+I23
+aI26
+aI29
+atp85
+a(I26
+g16
+I511
+I711
+(lp86
+I25
+aI27
+aI28
+aNatp87
+a(I27
+(g19
+S'190'
+p88
+tp89
+I539
+I730
+(lp90
+I26
+aNatp91
+a(I28
+(g19
+S'210'
+p92
+tp93
+I661
+I730
+(lp94
+I26
+aNatp95
+a(I29
+S'left'
+p96
+I437
+I760
+(lp97
+I25
+aI30
+aNatp98
+a(I30
+(g19
+S'1'
+p99
+tp100
+I511
+I769
+(lp101
+I29
+aNatp102
+a(I31
+(g19
+S'30'
+p103
+tp104
+I952
+I197
+(lp105
+I2
+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.png b/samples/bubbles.png
new file mode 100755
index 0000000..2f296b9
--- /dev/null
+++ b/samples/bubbles.png
Binary files differ
diff --git a/samples/bubbles.ta b/samples/bubbles.ta
new file mode 100755
index 0000000..93dfe7f
--- /dev/null
+++ b/samples/bubbles.ta
@@ -0,0 +1,253 @@
+(lp0
+(I0
+S'setcolor'
+p1
+I737
+I246
+(lp2
+NaI1
+aI2
+atp3
+a(I1
+(S'number'
+p4
+S'60'
+p5
+tp6
+I811
+I263
+(lp7
+I0
+aNatp8
+a(I2
+S'repeat'
+p9
+I737
+I300
+(lp10
+I0
+aI3
+aI4
+aNatp11
+a(I3
+(g4
+S'5000'
+p12
+tp13
+I823
+I309
+(lp14
+I2
+aNatp15
+a(I4
+S'setxy'
+p16
+I832
+I349
+(lp17
+I2
+aI5
+aI8
+aI11
+atp18
+a(I5
+S'random'
+p19
+I906
+I339
+(lp20
+I4
+aI6
+aI7
+aNatp21
+a(I6
+(g4
+S'-600'
+p22
+tp23
+I934
+I358
+(lp24
+I5
+aNatp25
+a(I7
+(g4
+S'600'
+p26
+tp27
+I1056
+I358
+(lp28
+I5
+aNatp29
+a(I8
+g19
+I906
+I376
+(lp30
+I4
+aI9
+aI10
+aNatp31
+a(I9
+(g4
+S'-450'
+p32
+tp33
+I934
+I395
+(lp34
+I8
+aNatp35
+a(I10
+(g4
+S'450'
+p36
+tp37
+I1056
+I395
+(lp38
+I8
+aNatp39
+a(I11
+S'storeinbox1'
+p40
+I832
+I425
+(lp41
+I4
+aI12
+aI15
+atp42
+a(I12
+S'ycor'
+p43
+I906
+I442
+(lp44
+I11
+aI13
+atp45
+a(I13
+S'plus'
+p46
+I999
+I434
+(lp47
+I12
+aI14
+atp48
+a(I14
+(g4
+S'900'
+p49
+tp50
+I1038
+I442
+(lp51
+I13
+aNatp52
+a(I15
+S'setpensize'
+p53
+I832
+I479
+(lp54
+I11
+aI16
+aI19
+atp55
+a(I16
+S'box1'
+p56
+I906
+I496
+(lp57
+I15
+aI17
+atp58
+a(I17
+S'division'
+p59
+I999
+I488
+(lp60
+I16
+aI18
+atp61
+a(I18
+(g4
+S'9'
+p62
+tp63
+I1038
+I496
+(lp64
+I17
+aNatp65
+a(I19
+S'setshade'
+p66
+I832
+I533
+(lp67
+I15
+aI20
+aI23
+atp68
+a(I20
+g56
+I906
+I550
+(lp69
+I19
+aI21
+atp70
+a(I21
+g59
+I999
+I542
+(lp71
+I20
+aI22
+atp72
+a(I22
+(g4
+S'12'
+p73
+tp74
+I1038
+I550
+(lp75
+I21
+aNatp76
+a(I23
+S'forward'
+p77
+I832
+I587
+(lp78
+I19
+aI24
+aNatp79
+a(I24
+(g4
+S'1'
+p80
+tp81
+I906
+I596
+(lp82
+I23
+aNatp83
+a(I-1
+S'turtle'
+p84
+I-204
+I-436
+I0
+F60.0
+F38.666666666666664
+F51.555555555555557
+tp85
+a.
\ No newline at end of file
diff --git a/samples/candyvortex.png b/samples/candyvortex.png
new file mode 100755
index 0000000..89aec32
--- /dev/null
+++ b/samples/candyvortex.png
Binary files differ
diff --git a/samples/candyvortex.ta b/samples/candyvortex.ta
new file mode 100755
index 0000000..30e67af
--- /dev/null
+++ b/samples/candyvortex.ta
@@ -0,0 +1,143 @@
+(lp0
+(I0
+S'repeat'
+p1
+I777
+I164
+(lp2
+NaI1
+aI2
+aNatp3
+a(I1
+(S'number'
+p4
+I350
+tp5
+I863
+I173
+(lp6
+I0
+aNatp7
+a(I2
+S'setpensize'
+p8
+I872
+I213
+(lp9
+I0
+aI3
+aI4
+atp10
+a(I3
+S'heading'
+p11
+I946
+I230
+(lp12
+I2
+aNatp13
+a(I4
+S'forward'
+p14
+I872
+I267
+(lp15
+I2
+aI5
+aI6
+atp16
+a(I5
+(g4
+S'1000'
+p17
+tp18
+I946
+I276
+(lp19
+I4
+aNatp20
+a(I6
+S'setcolor'
+p21
+I872
+I306
+(lp22
+I4
+aI7
+aI8
+atp23
+a(I7
+S'xcor'
+p24
+I946
+I323
+(lp25
+I6
+aNatp26
+a(I8
+S'setshade'
+p27
+I872
+I360
+(lp28
+I6
+aI9
+aI10
+atp29
+a(I9
+S'ycor'
+p30
+I946
+I377
+(lp31
+I8
+aNatp32
+a(I10
+S'back'
+p33
+I872
+I414
+(lp34
+I8
+aI11
+aI12
+atp35
+a(I11
+(g4
+S'1000'
+p36
+tp37
+I946
+I423
+(lp38
+I10
+aNatp39
+a(I12
+S'left'
+p40
+I872
+I453
+(lp41
+I10
+aI13
+aNatp42
+a(I13
+(g4
+I1
+tp43
+I946
+I462
+(lp44
+I12
+aNatp45
+a(I-1
+S'turtle'
+p46
+F0.0
+F0.0
+F10.0
+F8.1910046234551999
+F17.372816552336076
+F11.0
+tp47
+a.
\ No newline at end of file
diff --git a/samples/colors.png b/samples/colors.png
new file mode 100755
index 0000000..2891ba7
--- /dev/null
+++ b/samples/colors.png
Binary files differ
diff --git a/samples/colors.ta b/samples/colors.ta
new file mode 100755
index 0000000..7ab30e8
--- /dev/null
+++ b/samples/colors.ta
@@ -0,0 +1,125 @@
+(lp0
+(I0
+S'setpensize'
+p1
+I460
+I86
+(lp2
+NaI1
+aI2
+atp3
+a(I1
+(S'number'
+p4
+S'15'
+p5
+tp6
+I534
+I103
+(lp7
+I0
+aNatp8
+a(I2
+S'repeat'
+p9
+I460
+I140
+(lp10
+I0
+aI3
+aI4
+aNatp11
+a(I3
+(g4
+I360
+tp12
+I546
+I149
+(lp13
+I2
+aNatp14
+a(I4
+S'setcolor'
+p15
+I555
+I189
+(lp16
+I2
+aI5
+aI6
+atp17
+a(I5
+S'heading'
+p18
+I629
+I206
+(lp19
+I4
+aNatp20
+a(I6
+S'forward'
+p21
+I555
+I243
+(lp22
+I4
+aI7
+aI8
+atp23
+a(I7
+(g4
+I1000
+tp24
+I629
+I252
+(lp25
+I6
+aNatp26
+a(I8
+S'back'
+p27
+I555
+I282
+(lp28
+I6
+aI9
+aI10
+atp29
+a(I9
+(g4
+I1000
+tp30
+I629
+I291
+(lp31
+I8
+aNatp32
+a(I10
+S'right'
+p33
+I555
+I321
+(lp34
+I8
+aI11
+aNatp35
+a(I11
+(g4
+I1
+tp36
+I629
+I330
+(lp37
+I10
+aNatp38
+a(I-1
+S'turtle'
+p39
+F0.0
+F0.0
+F0.0
+F40.0
+I50
+F15.0
+tp40
+a.
\ No newline at end of file
diff --git a/samples/csquiral.png b/samples/csquiral.png
new file mode 100755
index 0000000..41b309a
--- /dev/null
+++ b/samples/csquiral.png
Binary files differ
diff --git a/samples/csquiral.ta b/samples/csquiral.ta
new file mode 100755
index 0000000..c84cd54
--- /dev/null
+++ b/samples/csquiral.ta
@@ -0,0 +1,201 @@
+(lp0
+(I0
+S'setpensize'
+p1
+I690
+I180
+(lp2
+NaI1
+aI2
+atp3
+a(I1
+(S'number'
+p4
+S'25'
+p5
+tp6
+I764
+I197
+(lp7
+I0
+aNatp8
+a(I2
+S'storeinbox1'
+p9
+I690
+I234
+(lp10
+I0
+aI3
+aI4
+atp11
+a(I3
+(g4
+S'0'
+p12
+tp13
+I764
+I251
+(lp14
+I2
+aNatp15
+a(I4
+S'repeat'
+p16
+I690
+I288
+(lp17
+I2
+aI5
+aI6
+aNatp18
+a(I5
+(g4
+S'1300'
+p19
+tp20
+I776
+I297
+(lp21
+I4
+aNatp22
+a(I6
+S'setcolor'
+p23
+I785
+I337
+(lp24
+I4
+aI7
+aI10
+atp25
+a(I7
+S'xcor'
+p26
+I859
+I354
+(lp27
+I6
+aI8
+atp28
+a(I8
+S'division'
+p29
+I952
+I346
+(lp30
+I7
+aI9
+atp31
+a(I9
+(g4
+S'6'
+p32
+tp33
+I991
+I354
+(lp34
+I8
+aNatp35
+a(I10
+S'setshade'
+p36
+I785
+I391
+(lp37
+I6
+aI11
+aI12
+atp38
+a(I11
+S'heading'
+p39
+I859
+I408
+(lp40
+I10
+aNatp41
+a(I12
+S'forward'
+p42
+I785
+I445
+(lp43
+I10
+aI13
+aI14
+atp44
+a(I13
+S'box1'
+p45
+I859
+I454
+(lp46
+I12
+aNatp47
+a(I14
+S'right'
+p48
+I785
+I484
+(lp49
+I12
+aI15
+aI16
+atp50
+a(I15
+(g4
+S'91'
+p51
+tp52
+I859
+I493
+(lp53
+I14
+aNatp54
+a(I16
+g9
+I785
+I523
+(lp55
+I14
+aI17
+aNatp56
+a(I17
+g45
+I859
+I540
+(lp57
+I16
+aI18
+atp58
+a(I18
+S'plus'
+p59
+I952
+I532
+(lp60
+I17
+aI19
+atp61
+a(I19
+(g4
+S'1'
+p62
+tp63
+I991
+I540
+(lp64
+I18
+aNatp65
+a(I-1
+S'turtle'
+p66
+F906.80942086435073
+F86.478356202884811
+F220.0
+F16.117197178042431
+F70.0
+F25.0
+tp67
+a.
\ No newline at end of file
diff --git a/samples/curlygates.png b/samples/curlygates.png
new file mode 100755
index 0000000..c28e608
--- /dev/null
+++ b/samples/curlygates.png
Binary files differ
diff --git a/samples/curlygates.ta b/samples/curlygates.ta
new file mode 100755
index 0000000..a28e8fa
--- /dev/null
+++ b/samples/curlygates.ta
@@ -0,0 +1,469 @@
+(lp0
+(I0
+S'hat2'
+p1
+I689
+I380
+(lp2
+NaI1
+atp3
+a(I1
+S'setcolor'
+p4
+I701
+I430
+(lp5
+I0
+aI2
+aI3
+atp6
+a(I2
+(S'number'
+p7
+S'20'
+p8
+tp9
+I775
+I447
+(lp10
+I1
+aNatp11
+a(I3
+S'setshade'
+p12
+I701
+I484
+(lp13
+I1
+aI4
+aI5
+atp14
+a(I4
+(g7
+S'60'
+p15
+tp16
+I775
+I501
+(lp17
+I3
+aNatp18
+a(I5
+S'setpensize'
+p19
+I701
+I538
+(lp20
+I3
+aI6
+aI7
+atp21
+a(I6
+(g7
+S'20'
+p22
+tp23
+I775
+I555
+(lp24
+I5
+aNatp25
+a(I7
+S'stack1'
+p26
+I701
+I592
+(lp27
+I5
+aI8
+atp28
+a(I8
+g4
+I701
+I631
+(lp29
+I7
+aI9
+aI10
+atp30
+a(I9
+(g7
+S'0'
+p31
+tp32
+I775
+I648
+(lp33
+I8
+aNatp34
+a(I10
+g12
+I701
+I685
+(lp35
+I8
+aI11
+aI14
+atp36
+a(I11
+S'random'
+p37
+I775
+I683
+(lp38
+I10
+aI12
+aI13
+aNatp39
+a(I12
+(g7
+S'60'
+p40
+tp41
+I803
+I702
+(lp42
+I11
+aNatp43
+a(I13
+(g7
+S'80'
+p44
+tp45
+I925
+I702
+(lp46
+I11
+aNatp47
+a(I14
+g19
+I701
+I739
+(lp48
+I10
+aI15
+aI16
+atp49
+a(I15
+(g7
+S'12'
+p50
+tp51
+I775
+I756
+(lp52
+I14
+aNatp53
+a(I16
+g26
+I701
+I793
+(lp54
+I14
+aNatp55
+a(I17
+S'hat1'
+p56
+I660
+I90
+(lp57
+NaI18
+atp58
+a(I18
+S'repeat'
+p59
+I672
+I140
+(lp60
+I17
+aI19
+aI20
+aNatp61
+a(I19
+(g7
+S'3'
+p62
+tp63
+I758
+I149
+(lp64
+I18
+aNatp65
+a(I20
+S'storeinbox1'
+p66
+I767
+I189
+(lp67
+I18
+aI21
+aI22
+atp68
+a(I21
+(g7
+S'200'
+p69
+tp70
+I841
+I206
+(lp71
+I20
+aNatp72
+a(I22
+g59
+I767
+I243
+(lp73
+I20
+aI23
+aI24
+aNatp74
+a(I23
+(g7
+S'20'
+p75
+tp76
+I853
+I252
+(lp77
+I22
+aNatp78
+a(I24
+S'arc'
+p79
+I862
+I292
+(lp80
+I22
+aI25
+aI26
+aI27
+atp81
+a(I25
+(g7
+S'30'
+p82
+tp83
+I936
+I301
+(lp84
+I24
+aNatp85
+a(I26
+S'box1'
+p86
+I936
+I338
+(lp87
+I24
+aNatp88
+a(I27
+g66
+I862
+I368
+(lp89
+I24
+aI28
+aNatp90
+a(I28
+g86
+I936
+I385
+(lp91
+I27
+aI29
+atp92
+a(I29
+S'division'
+p93
+I1029
+I377
+(lp94
+I28
+aI30
+atp95
+a(I30
+(g7
+S'1.2'
+p96
+tp97
+I1068
+I385
+(lp98
+I29
+aNatp99
+a(I31
+S'fillscreen'
+p100
+I216
+I375
+(lp101
+NaI32
+aI33
+aI34
+atp102
+a(I32
+(g7
+S'50'
+p103
+tp104
+I290
+I384
+(lp105
+I31
+aNatp106
+a(I33
+(g7
+S'30'
+p107
+tp108
+I290
+I421
+(lp109
+I31
+aNatp110
+a(I34
+g59
+I216
+I451
+(lp111
+I31
+aI35
+aI36
+aNatp112
+a(I35
+(g7
+S'20'
+p113
+tp114
+I302
+I460
+(lp115
+I34
+aNatp116
+a(I36
+S'setxy'
+p117
+I311
+I500
+(lp118
+I34
+aI37
+aI40
+aI43
+atp119
+a(I37
+g37
+I385
+I490
+(lp120
+I36
+aI38
+aI39
+aNatp121
+a(I38
+(g7
+S'-570'
+p122
+tp123
+I413
+I509
+(lp124
+I37
+aNatp125
+a(I39
+(g7
+S'570'
+p126
+tp127
+I535
+I509
+(lp128
+I37
+aNatp129
+a(I40
+g37
+I385
+I527
+(lp130
+I36
+aI41
+aI42
+aNatp131
+a(I41
+(g7
+S'-440'
+p132
+tp133
+I413
+I546
+(lp134
+I40
+aNatp135
+a(I42
+(g7
+S'440'
+p136
+tp137
+I535
+I546
+(lp138
+I40
+aNatp139
+a(I43
+S'seth'
+p140
+I311
+I576
+(lp141
+I36
+aI44
+aI47
+atp142
+a(I44
+g37
+I385
+I566
+(lp143
+I43
+aI45
+aI46
+aNatp144
+a(I45
+(g7
+g31
+tp145
+I413
+I585
+(lp146
+I44
+aNatp147
+a(I46
+(g7
+S'360'
+p148
+tp149
+I535
+I585
+(lp150
+I44
+aNatp151
+a(I47
+S'stack2'
+p152
+I311
+I615
+(lp153
+I43
+aNatp154
+a(I-1
+S'turtle'
+p155
+F-54.000000000000028
+F-435.00000000000006
+F251.0
+F0.0
+I71
+F12.0
+tp156
+a.
\ No newline at end of file
diff --git a/samples/dots.png b/samples/dots.png
new file mode 100755
index 0000000..dd95036
--- /dev/null
+++ b/samples/dots.png
Binary files differ
diff --git a/samples/dots.ta b/samples/dots.ta
new file mode 100755
index 0000000..a228722
--- /dev/null
+++ b/samples/dots.ta
@@ -0,0 +1,225 @@
+(lp0
+(I0
+S'setcolor'
+p1
+I322
+I195
+(lp2
+NaI1
+aI2
+atp3
+a(I1
+(S'number'
+p4
+S'0'
+p5
+tp6
+I396
+I212
+(lp7
+I0
+aNatp8
+a(I2
+S'clean'
+p9
+I322
+I249
+(lp10
+I0
+aI3
+atp11
+a(I3
+S'setpensize'
+p12
+I322
+I288
+(lp13
+I2
+aI22
+aI4
+atp14
+a(I4
+S'storeinbox1'
+p15
+I322
+I342
+(lp16
+I3
+aI5
+aI6
+atp17
+a(I5
+(g4
+g5
+tp18
+I396
+I359
+(lp19
+I4
+aNatp20
+a(I6
+S'repeat'
+p21
+I322
+I396
+(lp22
+I4
+aI7
+aI8
+aNatp23
+a(I7
+(g4
+S'1000'
+p24
+tp25
+I408
+I405
+(lp26
+I6
+aNatp27
+a(I8
+S'pendown'
+p28
+I417
+I445
+(lp29
+I6
+aI9
+atp30
+a(I9
+S'forward'
+p31
+I417
+I484
+(lp32
+I8
+aI10
+aI11
+atp33
+a(I10
+(g4
+S'1'
+p34
+tp35
+I491
+I493
+(lp36
+I9
+aNatp37
+a(I11
+S'penup'
+p38
+I417
+I523
+(lp39
+I9
+aI12
+atp40
+a(I12
+g31
+I417
+I562
+(lp41
+I11
+aI13
+aI14
+atp42
+a(I13
+S'box1'
+p43
+I491
+I571
+(lp44
+I12
+aNatp45
+a(I14
+S'right'
+p46
+I417
+I601
+(lp47
+I12
+aI15
+aI16
+atp48
+a(I15
+(g4
+S'93'
+p49
+tp50
+I491
+I610
+(lp51
+I14
+aNatp52
+a(I16
+g15
+I417
+I640
+(lp53
+I14
+aI17
+aI20
+atp54
+a(I17
+g43
+I491
+I657
+(lp55
+I16
+aI18
+atp56
+a(I18
+S'plus'
+p57
+I584
+I649
+(lp58
+I17
+aI19
+atp59
+a(I19
+(g4
+g34
+tp60
+I623
+I657
+(lp61
+I18
+aNatp62
+a(I20
+g1
+I417
+I694
+(lp63
+I16
+aI21
+aNatp64
+a(I21
+g43
+I491
+I711
+(lp65
+I20
+aNatp66
+a(I22
+(g4
+S'20'
+p67
+tp68
+I396
+I305
+(lp69
+I3
+aNatp70
+a(I-1
+S'turtle'
+p71
+F-195.08137186354315
+F661.36192458837445
+F120.0
+F0.0
+I50
+F15.0
+tp72
+a.
\ No newline at end of file
diff --git a/samples/flower.png b/samples/flower.png
new file mode 100755
index 0000000..9977d3a
--- /dev/null
+++ b/samples/flower.png
Binary files differ
diff --git a/samples/flower.ta b/samples/flower.ta
new file mode 100755
index 0000000..c4b9009
--- /dev/null
+++ b/samples/flower.ta
@@ -0,0 +1,288 @@
+(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
+I407
+I105
+(lp44
+NaI14
+aI15
+atp45
+a(I14
+(g7
+S'0'
+p46
+tp47
+I481
+I122
+(lp48
+I13
+aNatp49
+a(I15
+g4
+I407
+I159
+(lp50
+I13
+aI16
+aI17
+aNatp51
+a(I16
+(g7
+S'300'
+p52
+tp53
+I493
+I168
+(lp54
+I15
+aNatp55
+a(I17
+S'setshade'
+p56
+I502
+I208
+(lp57
+I15
+aI18
+aI21
+atp58
+a(I18
+(g7
+S'100'
+p59
+tp60
+I576
+I225
+(lp61
+I17
+aI19
+atp62
+a(I19
+S'minus'
+p63
+I669
+I217
+(lp64
+I18
+aI20
+atp65
+a(I20
+g15
+I708
+I225
+(lp66
+I19
+aNatp67
+a(I21
+S'setcolor'
+p68
+I502
+I262
+(lp69
+I17
+aI22
+aI25
+atp70
+a(I22
+g15
+I576
+I279
+(lp71
+I21
+aI23
+atp72
+a(I23
+S'division'
+p73
+I669
+I271
+(lp74
+I22
+aI24
+atp75
+a(I24
+(g7
+S'3'
+p76
+tp77
+I708
+I279
+(lp78
+I23
+aNatp79
+a(I25
+S'stack2'
+p80
+I502
+I316
+(lp81
+I21
+aI26
+atp82
+a(I26
+g43
+I502
+I355
+(lp83
+I25
+aI27
+aNatp84
+a(I27
+g15
+I576
+I372
+(lp85
+I26
+aI28
+atp86
+a(I28
+S'plus'
+p87
+I669
+I364
+(lp88
+I27
+aI29
+atp89
+a(I29
+(g7
+S'1'
+p90
+tp91
+I708
+I372
+(lp92
+I28
+aNatp93
+a(I-1
+S'turtle'
+p94
+F1.3812950783176348e-11
+F-7.4464878707658499e-11
+F0.0
+F99.333333333333329
+F1.0
+I5
+tp95
+a.
\ No newline at end of file
diff --git a/samples/fountain.png b/samples/fountain.png
new file mode 100755
index 0000000..df84227
--- /dev/null
+++ b/samples/fountain.png
Binary files differ
diff --git a/samples/fountain.ta b/samples/fountain.ta
new file mode 100755
index 0000000..8ed05ac
--- /dev/null
+++ b/samples/fountain.ta
@@ -0,0 +1,419 @@
+(lp0
+(I0
+S'hat1'
+p1
+I699
+I215
+(lp2
+NaI1
+atp3
+a(I1
+S'repeat'
+p4
+I711
+I265
+(lp5
+I0
+aI2
+aI3
+aNatp6
+a(I2
+(S'number'
+p7
+S'400'
+p8
+tp9
+I797
+I274
+(lp10
+I1
+aNatp11
+a(I3
+S'storeinbox1'
+p12
+I806
+I314
+(lp13
+I1
+aI4
+aI7
+atp14
+a(I4
+S'heading'
+p15
+I880
+I331
+(lp16
+I3
+aI5
+atp17
+a(I5
+S'division'
+p18
+I973
+I323
+(lp19
+I4
+aI6
+atp20
+a(I6
+(g7
+I2
+tp21
+I1012
+I331
+(lp22
+I5
+aNatp23
+a(I7
+S'storeinbox2'
+p24
+I806
+I368
+(lp25
+I3
+aI8
+aI11
+atp26
+a(I8
+S'box1'
+p27
+I880
+I385
+(lp28
+I7
+aI9
+atp29
+a(I9
+S'plus'
+p30
+I973
+I377
+(lp31
+I8
+aI10
+atp32
+a(I10
+(g7
+I5
+tp33
+I1012
+I385
+(lp34
+I9
+aNatp35
+a(I11
+S'setcolor'
+p36
+I806
+I422
+(lp37
+I7
+aI12
+aI15
+atp38
+a(I12
+S'random'
+p39
+I880
+I420
+(lp40
+I11
+aI13
+aI14
+aNatp41
+a(I13
+g27
+I908
+I439
+(lp42
+I12
+aNatp43
+a(I14
+S'box2'
+p44
+I1030
+I439
+(lp45
+I12
+aNatp46
+a(I15
+S'arc'
+p47
+I806
+I476
+(lp48
+I11
+aI16
+aI17
+aI18
+atp49
+a(I16
+(g7
+I-40
+tp50
+I880
+I485
+(lp51
+I15
+aNatp52
+a(I17
+(g7
+I3000
+tp53
+I880
+I522
+(lp54
+I15
+aNatp55
+a(I18
+g47
+I806
+I552
+(lp56
+I15
+aI19
+aI20
+aI21
+atp57
+a(I19
+(g7
+I-40
+tp58
+I880
+I561
+(lp59
+I18
+aNatp60
+a(I20
+(g7
+I-3000
+tp61
+I880
+I598
+(lp62
+I18
+aNatp63
+a(I21
+S'right'
+p64
+I806
+I628
+(lp65
+I18
+aI22
+aNatp66
+a(I22
+(g7
+S'.1'
+p67
+tp68
+I880
+I637
+(lp69
+I21
+aNatp70
+a(I23
+S'fillscreen'
+p71
+I377
+I213
+(lp72
+NaI24
+aI25
+aI26
+atp73
+a(I24
+(g7
+S'10'
+p74
+tp75
+I451
+I222
+(lp76
+I23
+aNatp77
+a(I25
+(g7
+S'30'
+p78
+tp79
+I451
+I259
+(lp80
+I23
+aNatp81
+a(I26
+S'setshade'
+p82
+I377
+I289
+(lp83
+I23
+aI27
+aI28
+atp84
+a(I27
+(g7
+S'85'
+p85
+tp86
+I451
+I306
+(lp87
+I26
+aNatp88
+a(I28
+S'setxy'
+p89
+I377
+I343
+(lp90
+I26
+aI29
+aI30
+aI31
+atp91
+a(I29
+(g7
+S'-590'
+p92
+tp93
+I451
+I352
+(lp94
+I28
+aNatp95
+a(I30
+(g7
+S'-500'
+p96
+tp97
+I451
+I389
+(lp98
+I28
+aNatp99
+a(I31
+S'setpensize'
+p100
+I377
+I419
+(lp101
+I28
+aI32
+aI33
+atp102
+a(I32
+(g7
+S'3'
+p103
+tp104
+I451
+I436
+(lp105
+I31
+aNatp106
+a(I33
+g4
+I377
+I473
+(lp107
+I31
+aI34
+aI35
+aNatp108
+a(I34
+(g7
+S'6'
+p109
+tp110
+I463
+I482
+(lp111
+I33
+aNatp112
+a(I35
+S'seth'
+p113
+I472
+I522
+(lp114
+I33
+aI36
+aI37
+atp115
+a(I36
+(g7
+S'0'
+p116
+tp117
+I546
+I531
+(lp118
+I35
+aNatp119
+a(I37
+S'stack1'
+p120
+I472
+I561
+(lp121
+I35
+aI38
+atp122
+a(I38
+g89
+I472
+I600
+(lp123
+I37
+aI39
+aI42
+aNatp124
+a(I39
+S'xcor'
+p125
+I546
+I609
+(lp126
+I38
+aI40
+atp127
+a(I40
+g30
+I639
+I601
+(lp128
+I39
+aI41
+atp129
+a(I41
+(g7
+S'200'
+p130
+tp131
+I678
+I609
+(lp132
+I40
+aNatp133
+a(I42
+S'ycor'
+p134
+I546
+I646
+(lp135
+I38
+aNatp136
+a(I-1
+S'turtle'
+p137
+F609.99999999906686
+F-500.00000000254568
+F40.000000000009074
+I22
+F85.0
+F3.0
+tp138
+a.
\ No newline at end of file
diff --git a/samples/rainbow.png b/samples/rainbow.png
new file mode 100755
index 0000000..213b204
--- /dev/null
+++ b/samples/rainbow.png
Binary files differ
diff --git a/samples/rainbow.ta b/samples/rainbow.ta
new file mode 100755
index 0000000..7730a7a
--- /dev/null
+++ b/samples/rainbow.ta
@@ -0,0 +1,194 @@
+(lp0
+(I0
+S'clean'
+p1
+I350
+I334
+(lp2
+NaI1
+atp3
+a(I1
+S'setcolor'
+p4
+I350
+I373
+(lp5
+I0
+aI2
+aI3
+atp6
+a(I2
+(S'number'
+p7
+S'50'
+p8
+tp9
+I424
+I390
+(lp10
+I1
+aNatp11
+a(I3
+S'setpensize'
+p12
+I350
+I427
+(lp13
+I1
+aI4
+aI5
+atp14
+a(I4
+(g7
+S'15'
+p15
+tp16
+I424
+I444
+(lp17
+I3
+aNatp18
+a(I5
+S'repeat'
+p19
+I350
+I481
+(lp20
+I3
+aI6
+aI7
+aNatp21
+a(I6
+(g7
+I360
+tp22
+I436
+I490
+(lp23
+I5
+aNatp24
+a(I7
+g4
+I445
+I530
+(lp25
+I5
+aI8
+aI13
+atp26
+a(I8
+S'heading'
+p27
+I519
+I547
+(lp28
+I7
+aI9
+atp29
+a(I9
+S'product'
+p30
+I612
+I539
+(lp31
+I8
+aI10
+atp32
+a(I10
+(g7
+S'100'
+p33
+tp34
+I651
+I547
+(lp35
+I9
+aI11
+atp36
+a(I11
+S'division'
+p37
+I744
+I539
+(lp38
+I10
+aI12
+atp39
+a(I12
+(g7
+I360
+tp40
+I783
+I547
+(lp41
+I11
+aNatp42
+a(I13
+S'forward'
+p43
+I445
+I584
+(lp44
+I7
+aI14
+aI15
+atp45
+a(I14
+(g7
+S'1000'
+p46
+tp47
+I519
+I593
+(lp48
+I13
+aNatp49
+a(I15
+S'back'
+p50
+I445
+I623
+(lp51
+I13
+aI16
+aI17
+atp52
+a(I16
+(g7
+S'1000'
+p53
+tp54
+I519
+I632
+(lp55
+I15
+aNatp56
+a(I17
+S'right'
+p57
+I445
+I662
+(lp58
+I15
+aI18
+aNatp59
+a(I18
+(g7
+I1
+tp60
+I519
+I671
+(lp61
+I17
+aNatp62
+a(I-1
+S'turtle'
+p63
+F0.0
+F0.0
+F0.0
+F99.277777777777771
+I50
+F15.0
+tp64
+a.
\ No newline at end of file
diff --git a/samples/redwisp.png b/samples/redwisp.png
new file mode 100755
index 0000000..efd6aa6
--- /dev/null
+++ b/samples/redwisp.png
Binary files differ
diff --git a/samples/redwisp.ta b/samples/redwisp.ta
new file mode 100755
index 0000000..63667c7
--- /dev/null
+++ b/samples/redwisp.ta
@@ -0,0 +1,354 @@
+(lp0
+(I0
+S'hat1'
+p1
+I870
+I142
+(lp2
+NaI1
+atp3
+a(I1
+S'repeat'
+p4
+I882
+I192
+(lp5
+I0
+aI2
+aI3
+aI9
+atp6
+a(I2
+(S'number'
+p7
+S'4'
+p8
+tp9
+I968
+I201
+(lp10
+I1
+aNatp11
+a(I3
+S'arc'
+p12
+I977
+I241
+(lp13
+I1
+aI4
+aI5
+aI6
+atp14
+a(I4
+(g7
+S'180'
+p15
+tp16
+I1051
+I250
+(lp17
+I3
+aNatp18
+a(I5
+(g7
+S'75'
+p19
+tp20
+I1051
+I287
+(lp21
+I3
+aNatp22
+a(I6
+g12
+I977
+I317
+(lp23
+I3
+aI7
+aI8
+aNatp24
+a(I7
+(g7
+S'-180'
+p25
+tp26
+I1051
+I326
+(lp27
+I6
+aNatp28
+a(I8
+(g7
+S'75'
+p29
+tp30
+I1051
+I363
+(lp31
+I6
+aNatp32
+a(I9
+S'vspace'
+p33
+I882
+I282
+(lp34
+I1
+aI10
+atp35
+a(I10
+g33
+I882
+I351
+(lp36
+I9
+aI11
+atp37
+a(I11
+g4
+I882
+I420
+(lp38
+I10
+aI12
+aI13
+aI19
+atp39
+a(I12
+(g7
+g8
+tp40
+I968
+I429
+(lp41
+I11
+aNatp42
+a(I13
+g12
+I977
+I469
+(lp43
+I11
+aI14
+aI15
+aI16
+atp44
+a(I14
+(g7
+S'-180'
+p45
+tp46
+I1051
+I478
+(lp47
+I13
+aNatp48
+a(I15
+(g7
+S'-75'
+p49
+tp50
+I1051
+I515
+(lp51
+I13
+aNatp52
+a(I16
+g12
+I977
+I545
+(lp53
+I13
+aI17
+aI18
+aNatp54
+a(I17
+(g7
+S'180'
+p55
+tp56
+I1051
+I554
+(lp57
+I16
+aNatp58
+a(I18
+(g7
+S'-75'
+p59
+tp60
+I1051
+I591
+(lp61
+I16
+aNatp62
+a(I19
+g33
+I882
+I510
+(lp63
+I11
+aI20
+atp64
+a(I20
+g33
+I882
+I579
+(lp65
+I19
+aI21
+atp66
+a(I21
+S'right'
+p67
+I882
+I648
+(lp68
+I20
+aI22
+aNatp69
+a(I22
+(g7
+S'1'
+p70
+tp71
+I956
+I657
+(lp72
+I21
+aNatp73
+a(I23
+S'setpensize'
+p74
+I351
+I344
+(lp75
+NaI24
+aI25
+atp76
+a(I24
+(g7
+S'15'
+p77
+tp78
+I425
+I361
+(lp79
+I23
+aNatp80
+a(I25
+g4
+I351
+I398
+(lp81
+I23
+aI26
+aI27
+aNatp82
+a(I26
+(g7
+S'360'
+p83
+tp84
+I437
+I407
+(lp85
+I25
+aNatp86
+a(I27
+S'storeinbox1'
+p87
+I446
+I447
+(lp88
+I25
+aI28
+aI31
+atp89
+a(I28
+S'heading'
+p90
+I520
+I464
+(lp91
+I27
+aI29
+atp92
+a(I29
+S'product'
+p93
+I613
+I456
+(lp94
+I28
+aI30
+atp95
+a(I30
+(g7
+S'600'
+p96
+tp97
+I652
+I464
+(lp98
+I29
+aNatp99
+a(I31
+S'setshade'
+p100
+I446
+I501
+(lp101
+I27
+aI32
+aI35
+atp102
+a(I32
+S'box1'
+p103
+I520
+I518
+(lp104
+I31
+aI33
+atp105
+a(I33
+S'division'
+p106
+I613
+I510
+(lp107
+I32
+aI34
+atp108
+a(I34
+(g7
+S'360'
+p109
+tp110
+I652
+I518
+(lp111
+I33
+aNatp112
+a(I35
+S'stack1'
+p113
+I446
+I555
+(lp114
+I31
+aNatp115
+a(I-1
+S'turtle'
+p116
+I557
+I373
+F0.0
+I0
+F0.66666666666662877
+F15.0
+tp117
+a.
\ No newline at end of file
diff --git a/samples/reflections.png b/samples/reflections.png
new file mode 100755
index 0000000..9bf48a4
--- /dev/null
+++ b/samples/reflections.png
Binary files differ
diff --git a/samples/reflections.ta b/samples/reflections.ta
new file mode 100755
index 0000000..a009075
--- /dev/null
+++ b/samples/reflections.ta
@@ -0,0 +1,298 @@
+(lp0
+(I0
+S'clean'
+p1
+I689
+I106
+(lp2
+NaI1
+atp3
+a(I1
+S'setpensize'
+p4
+I689
+I145
+(lp5
+I0
+aI2
+aI3
+atp6
+a(I2
+(S'number'
+p7
+S'15'
+p8
+tp9
+I763
+I162
+(lp10
+I1
+aNatp11
+a(I3
+S'storeinbox1'
+p12
+I689
+I199
+(lp13
+I1
+aI4
+aI5
+atp14
+a(I4
+(g7
+S'6200'
+p15
+tp16
+I763
+I216
+(lp17
+I3
+aNatp18
+a(I5
+S'repeat'
+p19
+I689
+I253
+(lp20
+I3
+aI6
+aI7
+aNatp21
+a(I6
+(g7
+S'6200'
+p22
+tp23
+I775
+I262
+(lp24
+I5
+aNatp25
+a(I7
+S'storeinbox2'
+p26
+I784
+I302
+(lp27
+I5
+aI8
+aI11
+atp28
+a(I8
+S'box1'
+p29
+I858
+I319
+(lp30
+I7
+aI9
+atp31
+a(I9
+S'division'
+p32
+I951
+I311
+(lp33
+I8
+aI10
+atp34
+a(I10
+(g7
+S'50'
+p35
+tp36
+I990
+I319
+(lp37
+I9
+aNatp38
+a(I11
+S'setshade'
+p39
+I784
+I356
+(lp40
+I7
+aI12
+aI15
+atp41
+a(I12
+(g7
+S'100'
+p42
+tp43
+I858
+I373
+(lp44
+I11
+aI13
+atp45
+a(I13
+S'minus'
+p46
+I951
+I365
+(lp47
+I12
+aI14
+atp48
+a(I14
+S'box2'
+p49
+I990
+I373
+(lp50
+I13
+aNatp51
+a(I15
+S'forward'
+p52
+I784
+I410
+(lp53
+I11
+aI16
+aI19
+atp54
+a(I16
+g29
+I858
+I419
+(lp55
+I15
+aI17
+atp56
+a(I17
+g32
+I951
+I411
+(lp57
+I16
+aI18
+atp58
+a(I18
+(g7
+S'8'
+p59
+tp60
+I990
+I419
+(lp61
+I17
+aNatp62
+a(I19
+S'back'
+p63
+I784
+I449
+(lp64
+I15
+aI20
+aI23
+atp65
+a(I20
+g29
+I858
+I458
+(lp66
+I19
+aI21
+atp67
+a(I21
+g32
+I951
+I450
+(lp68
+I20
+aI22
+atp69
+a(I22
+(g7
+g59
+tp70
+I990
+I458
+(lp71
+I21
+aNatp72
+a(I23
+S'right'
+p73
+I784
+I488
+(lp74
+I19
+aI24
+aI25
+atp75
+a(I24
+(g7
+S'1'
+p76
+tp77
+I858
+I497
+(lp78
+I23
+aNatp79
+a(I25
+g12
+I784
+I527
+(lp80
+I23
+aI26
+aI29
+atp81
+a(I26
+g29
+I858
+I544
+(lp82
+I25
+aI27
+atp83
+a(I27
+g46
+I951
+I536
+(lp84
+I26
+aI28
+atp85
+a(I28
+(g7
+g76
+tp86
+I990
+I544
+(lp87
+I27
+aNatp88
+a(I29
+S'setcolor'
+p89
+I784
+I581
+(lp90
+I25
+aI30
+aNatp91
+a(I30
+g29
+I858
+I598
+(lp92
+I29
+aNatp93
+a(I-1
+S'turtle'
+p94
+I-584
+I-436
+I0
+F0.0
+F99.019999999999996
+F15.0
+tp95
+a.
\ No newline at end of file
diff --git a/samples/shades.png b/samples/shades.png
new file mode 100755
index 0000000..7e7e504
--- /dev/null
+++ b/samples/shades.png
Binary files differ
diff --git a/samples/shades.ta b/samples/shades.ta
new file mode 100755
index 0000000..90dd90f
--- /dev/null
+++ b/samples/shades.ta
@@ -0,0 +1,194 @@
+(lp0
+(I0
+S'clean'
+p1
+I410
+I108
+(lp2
+NaI1
+atp3
+a(I1
+S'setcolor'
+p4
+I410
+I147
+(lp5
+I0
+aI2
+aI3
+atp6
+a(I2
+(S'number'
+p7
+S'50'
+p8
+tp9
+I484
+I164
+(lp10
+I1
+aNatp11
+a(I3
+S'setpensize'
+p12
+I410
+I201
+(lp13
+I1
+aI4
+aI5
+atp14
+a(I4
+(g7
+S'15'
+p15
+tp16
+I484
+I218
+(lp17
+I3
+aNatp18
+a(I5
+S'repeat'
+p19
+I410
+I255
+(lp20
+I3
+aI6
+aI7
+aNatp21
+a(I6
+(g7
+I360
+tp22
+I496
+I264
+(lp23
+I5
+aNatp24
+a(I7
+S'setshade'
+p25
+I505
+I304
+(lp26
+I5
+aI8
+aI13
+atp27
+a(I8
+S'heading'
+p28
+I579
+I321
+(lp29
+I7
+aI9
+atp30
+a(I9
+S'product'
+p31
+I672
+I313
+(lp32
+I8
+aI10
+atp33
+a(I10
+(g7
+I200
+tp34
+I711
+I321
+(lp35
+I9
+aI11
+atp36
+a(I11
+S'division'
+p37
+I804
+I313
+(lp38
+I10
+aI12
+atp39
+a(I12
+(g7
+I360
+tp40
+I843
+I321
+(lp41
+I11
+aNatp42
+a(I13
+S'forward'
+p43
+I505
+I358
+(lp44
+I7
+aI14
+aI15
+atp45
+a(I14
+(g7
+S'1000'
+p46
+tp47
+I579
+I367
+(lp48
+I13
+aNatp49
+a(I15
+S'back'
+p50
+I505
+I397
+(lp51
+I13
+aI16
+aI17
+atp52
+a(I16
+(g7
+S'1000'
+p53
+tp54
+I579
+I406
+(lp55
+I15
+aNatp56
+a(I17
+S'right'
+p57
+I505
+I436
+(lp58
+I15
+aI18
+aNatp59
+a(I18
+(g7
+I1
+tp60
+I579
+I445
+(lp61
+I17
+aNatp62
+a(I-1
+S'turtle'
+p63
+F0.0
+F0.0
+F0.0
+F50.0
+F-0.44444444444445708
+F15.0
+tp64
+a.
\ No newline at end of file
diff --git a/samples/smoothcandy.png b/samples/smoothcandy.png
new file mode 100755
index 0000000..8929d50
--- /dev/null
+++ b/samples/smoothcandy.png
Binary files differ
diff --git a/samples/smoothcandy.ta b/samples/smoothcandy.ta
new file mode 100755
index 0000000..5b424e6
--- /dev/null
+++ b/samples/smoothcandy.ta
@@ -0,0 +1,243 @@
+(lp0
+(I0
+S'clean'
+p1
+I181
+I407
+(lp2
+NaI1
+atp3
+a(I1
+S'repeat'
+p4
+I181
+I446
+(lp5
+I0
+aI2
+aI3
+aNatp6
+a(I2
+(S'number'
+p7
+I350
+tp8
+I267
+I455
+(lp9
+I1
+aNatp10
+a(I3
+S'setpensize'
+p11
+I276
+I495
+(lp12
+I1
+aI4
+aI7
+atp13
+a(I4
+S'heading'
+p14
+I350
+I512
+(lp15
+I3
+aI5
+atp16
+a(I5
+S'plus'
+p17
+I443
+I504
+(lp18
+I4
+aI6
+atp19
+a(I6
+(g7
+I4
+tp20
+I482
+I512
+(lp21
+I5
+aNatp22
+a(I7
+S'forward'
+p23
+I276
+I549
+(lp24
+I3
+aI8
+aI9
+atp25
+a(I8
+(g7
+S'1000'
+p26
+tp27
+I350
+I558
+(lp28
+I7
+aNatp29
+a(I9
+S'setcolor'
+p30
+I276
+I588
+(lp31
+I7
+aI10
+aI13
+atp32
+a(I10
+g14
+I350
+I605
+(lp33
+I9
+aI11
+atp34
+a(I11
+S'division'
+p35
+I443
+I597
+(lp36
+I10
+aI12
+atp37
+a(I12
+(g7
+I3
+tp38
+I482
+I605
+(lp39
+I11
+aNatp40
+a(I13
+S'storeinbox1'
+p41
+I276
+I642
+(lp42
+I9
+aI14
+aI17
+atp43
+a(I14
+g14
+I350
+I659
+(lp44
+I13
+aI15
+atp45
+a(I15
+g35
+I443
+I651
+(lp46
+I14
+aI16
+atp47
+a(I16
+(g7
+I2
+tp48
+I482
+I659
+(lp49
+I15
+aNatp50
+a(I17
+S'setshade'
+p51
+I276
+I696
+(lp52
+I13
+aI18
+aI21
+atp53
+a(I18
+(g7
+I100
+tp54
+I350
+I713
+(lp55
+I17
+aI19
+atp56
+a(I19
+S'minus'
+p57
+I443
+I705
+(lp58
+I18
+aI20
+atp59
+a(I20
+S'box1'
+p60
+I482
+I713
+(lp61
+I19
+aNatp62
+a(I21
+S'back'
+p63
+I276
+I750
+(lp64
+I17
+aI22
+aI23
+atp65
+a(I22
+(g7
+S'1000'
+p66
+tp67
+I350
+I759
+(lp68
+I21
+aNatp69
+a(I23
+S'left'
+p70
+I276
+I789
+(lp71
+I21
+aI24
+aNatp72
+a(I24
+(g7
+I1
+tp73
+I350
+I798
+(lp74
+I23
+aNatp75
+a(I-1
+S'turtle'
+p76
+F0.0
+F0.0
+F10.0
+F3.6666666666666665
+F94.5
+F15.0
+tp77
+a.
\ No newline at end of file
diff --git a/samples/square.png b/samples/square.png
new file mode 100755
index 0000000..91d4509
--- /dev/null
+++ b/samples/square.png
Binary files differ
diff --git a/samples/square.ta b/samples/square.ta
new file mode 100755
index 0000000..7cc3252
--- /dev/null
+++ b/samples/square.ta
@@ -0,0 +1,68 @@
+(lp0
+(I0
+S'repeat'
+p1
+I853
+I277
+(lp2
+NaI1
+aI2
+aNatp3
+a(I1
+(S'number'
+p4
+I4
+tp5
+I939
+I286
+(lp6
+I0
+aNatp7
+a(I2
+S'forward'
+p8
+I948
+I326
+(lp9
+I0
+aI3
+aI4
+atp10
+a(I3
+(g4
+I200
+tp11
+I1022
+I335
+(lp12
+I2
+aNatp13
+a(I4
+S'right'
+p14
+I948
+I365
+(lp15
+I2
+aI5
+aNatp16
+a(I5
+(g4
+I90
+tp17
+I1022
+I374
+(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.png b/samples/squares.png
new file mode 100755
index 0000000..94d9461
--- /dev/null
+++ b/samples/squares.png
Binary files differ
diff --git a/samples/squares.ta b/samples/squares.ta
new file mode 100755
index 0000000..e309231
--- /dev/null
+++ b/samples/squares.ta
@@ -0,0 +1,114 @@
+(lp0
+(I0
+S'repeat'
+p1
+I762
+I95
+(lp2
+NaI1
+aI2
+aNatp3
+a(I1
+(S'number'
+p4
+I36
+tp5
+I848
+I104
+(lp6
+I0
+aNatp7
+a(I2
+g1
+I857
+I144
+(lp8
+I0
+aI3
+aI4
+aI8
+atp9
+a(I3
+(g4
+I4
+tp10
+I943
+I153
+(lp11
+I2
+aNatp12
+a(I4
+S'forward'
+p13
+I952
+I193
+(lp14
+I2
+aI5
+aI6
+atp15
+a(I5
+(g4
+S'300'
+p16
+tp17
+I1026
+I202
+(lp18
+I4
+aNatp19
+a(I6
+S'right'
+p20
+I952
+I232
+(lp21
+I4
+aI7
+aNatp22
+a(I7
+(g4
+I90
+tp23
+I1026
+I241
+(lp24
+I6
+aNatp25
+a(I8
+S'vspace'
+p26
+I857
+I234
+(lp27
+I2
+aI9
+atp28
+a(I9
+g20
+I857
+I303
+(lp29
+I8
+aI10
+aNatp30
+a(I10
+(g4
+I10
+tp31
+I931
+I312
+(lp32
+I9
+aNatp33
+a(I-1
+S'turtle'
+p34
+F-2.8421709430404007e-13
+F-1.0587086762825493e-12
+F0.0
+I0
+I50
+I5
+tp35
+a.
\ No newline at end of file
diff --git a/samples/squiral.png b/samples/squiral.png
new file mode 100755
index 0000000..899b2ac
--- /dev/null
+++ b/samples/squiral.png
Binary files differ
diff --git a/samples/squiral.ta b/samples/squiral.ta
new file mode 100755
index 0000000..2881645
--- /dev/null
+++ b/samples/squiral.ta
@@ -0,0 +1,131 @@
+(lp0
+(I0
+S'clean'
+p1
+I714
+I181
+(lp2
+NaI1
+atp3
+a(I1
+S'storeinbox1'
+p4
+I714
+I220
+(lp5
+I0
+aI2
+aI3
+atp6
+a(I2
+(S'number'
+p7
+I0
+tp8
+I788
+I237
+(lp9
+I1
+aNatp10
+a(I3
+S'repeat'
+p11
+I714
+I274
+(lp12
+I1
+aI4
+aI5
+aNatp13
+a(I4
+(g7
+S'300'
+p14
+tp15
+I800
+I283
+(lp16
+I3
+aNatp17
+a(I5
+S'forward'
+p18
+I809
+I323
+(lp19
+I3
+aI6
+aI7
+atp20
+a(I6
+S'box1'
+p21
+I883
+I332
+(lp22
+I5
+aNatp23
+a(I7
+S'right'
+p24
+I809
+I362
+(lp25
+I5
+aI8
+aI9
+atp26
+a(I8
+(g7
+I91
+tp27
+I883
+I371
+(lp28
+I7
+aNatp29
+a(I9
+g4
+I809
+I401
+(lp30
+I7
+aI10
+aNatp31
+a(I10
+g21
+I883
+I418
+(lp32
+I9
+aI11
+atp33
+a(I11
+S'plus'
+p34
+I976
+I410
+(lp35
+I10
+aI12
+atp36
+a(I12
+(g7
+I5
+tp37
+I1015
+I418
+(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
--
cgit v0.9.1