From a705ec6401be821f25147470c668f5de2d273ef8 Mon Sep 17 00:00:00 2001
From: U-BRIAN-X60\Brian Silverman <Brian Silverman@Brian-X60.(none)>
Date: Mon, 03 Dec 2007 20:47:15 +0000
Subject: Improved graphics

---
(limited to 'samples/xo-man.ta')

diff --git a/samples/xo-man.ta b/samples/xo-man.ta
index 967bf24..2e684b5 100755
--- a/samples/xo-man.ta
+++ b/samples/xo-man.ta
@@ -1,498 +1,498 @@
 (lp0
 (I0
-S'hat2'
+S'hat1'
 p1
-I66
-I315
+I768
+I28
 (lp2
 NaI1
 atp3
 a(I1
-S'setcolor'
+S'left'
 p4
+I780
 I78
-I365
 (lp5
 I0
 aI2
-aI7
+aI3
 atp6
 a(I2
 (S'number'
 p7
-S'0'
+S'45'
 p8
 tp9
-I152
-I382
+I854
+I87
 (lp10
 I1
-aI3
-atp11
+aNatp11
 a(I3
-S'plus'
+S'repeat'
 p12
-I245
-I374
+I780
+I117
 (lp13
-I2
+I1
 aI4
+aI5
+aI11
 atp14
 a(I4
-S'random'
+(g7
+S'4'
 p15
-I284
-I363
-(lp16
+tp16
+I866
+I126
+(lp17
 I3
-aI5
-aI6
-aNatp17
+aNatp18
 a(I5
-(g7
-g8
-tp18
-I312
-I382
-(lp19
-I4
-aNatp20
+S'forward'
+p19
+I875
+I166
+(lp20
+I3
+aI6
+aI7
+atp21
 a(I6
 (g7
-S'100'
-p21
-tp22
-I434
-I382
-(lp23
-I4
-aNatp24
+S'75'
+p22
+tp23
+I949
+I175
+(lp24
+I5
+aNatp25
 a(I7
-S'setpensize'
-p25
-I78
-I419
-(lp26
-I1
+S'back'
+p26
+I875
+I205
+(lp27
+I5
 aI8
 aI9
-atp27
+atp28
 a(I8
 (g7
-S'40'
-p28
-tp29
-I152
-I436
-(lp30
+S'75'
+p29
+tp30
+I949
+I214
+(lp31
 I7
-aNatp31
+aNatp32
 a(I9
-S'stack1'
-p32
-I78
-I473
+g4
+I875
+I244
 (lp33
 I7
 aI10
-atp34
+aNatp34
 a(I10
-g4
-I78
-I512
-(lp35
+(g7
+S'90'
+p35
+tp36
+I949
+I253
+(lp37
 I9
-aI11
-aI14
-atp36
+aNatp38
 a(I11
-S'color'
-p37
-I152
-I529
-(lp38
-I10
+S'vspace'
+p39
+I780
+I207
+(lp40
+I3
 aI12
-atp39
+atp41
 a(I12
-g12
-I245
-I521
-(lp40
+S'right'
+p42
+I780
+I276
+(lp43
 I11
 aI13
-atp41
+aI14
+atp44
 a(I13
 (g7
-S'10'
-p42
-tp43
-I284
-I529
-(lp44
+S'45'
+p45
+tp46
+I854
+I285
+(lp47
 I12
-aNatp45
+aNatp48
 a(I14
-g25
-I78
-I566
-(lp46
-I10
+S'penup'
+p49
+I780
+I315
+(lp50
+I12
 aI15
-aI18
-atp47
+atp51
 a(I15
-S'pensize'
-p48
-I152
-I583
-(lp49
+g19
+I780
+I354
+(lp52
 I14
 aI16
-atp50
-a(I16
-S'minus'
-p51
-I245
-I575
-(lp52
-I15
 aI17
 atp53
-a(I17
+a(I16
 (g7
-S'25'
+S'90'
 p54
 tp55
-I284
-I583
+I854
+I363
 (lp56
-I16
+I15
 aNatp57
+a(I17
+S'pendown'
+p58
+I780
+I393
+(lp59
+I15
+aI18
+atp60
 a(I18
-g32
-I78
-I620
-(lp58
-I14
-aNatp59
+S'setpensize'
+p61
+I780
+I432
+(lp62
+I17
+aI19
+aI22
+atp63
 a(I19
-S'hat1'
-p60
-I768
-I28
-(lp61
-NaI20
-atp62
+S'pensize'
+p64
+I854
+I449
+(lp65
+I18
+aI20
+atp66
 a(I20
-S'left'
-p63
-I780
-I78
-(lp64
+S'plus'
+p67
+I947
+I441
+(lp68
 I19
 aI21
-aI22
-atp65
+atp69
 a(I21
 (g7
-S'45'
-p66
-tp67
-I854
-I87
-(lp68
+S'35'
+p70
+tp71
+I986
+I449
+(lp72
 I20
-aNatp69
+aNatp73
 a(I22
-S'repeat'
-p70
+g19
 I780
-I117
-(lp71
-I20
+I486
+(lp74
+I18
 aI23
 aI24
-aI30
-atp72
+atp75
 a(I23
 (g7
-S'4'
-p73
-tp74
-I866
-I126
-(lp75
+S'1'
+p76
+tp77
+I854
+I495
+(lp78
 I22
-aNatp76
+aNatp79
 a(I24
-S'forward'
-p77
-I875
-I166
-(lp78
+g49
+I780
+I525
+(lp80
 I22
 aI25
-aI26
-atp79
+atp81
 a(I25
-(g7
-S'75'
-p80
-tp81
-I949
-I175
+g26
+I780
+I564
 (lp82
 I24
-aNatp83
+aI26
+aI27
+atp83
 a(I26
-S'back'
+(g7
+S'91'
 p84
-I875
-I205
-(lp85
-I24
-aI27
-aI28
-atp86
+tp85
+I854
+I573
+(lp86
+I25
+aNatp87
 a(I27
-(g7
-S'75'
-p87
-tp88
-I949
-I214
-(lp89
-I26
-aNatp90
+g58
+I780
+I603
+(lp88
+I25
+aI28
+atp89
 a(I28
-g63
-I875
-I244
-(lp91
-I26
+g61
+I780
+I642
+(lp90
+I27
 aI29
-aNatp92
+aNatp91
 a(I29
-(g7
-S'90'
-p93
-tp94
-I949
-I253
-(lp95
+g64
+I854
+I659
+(lp92
 I28
-aNatp96
+aI30
+atp93
 a(I30
-S'vspace'
-p97
-I780
-I207
-(lp98
-I22
+S'minus'
+p94
+I947
+I651
+(lp95
+I29
 aI31
-atp99
+atp96
 a(I31
-S'right'
-p100
-I780
-I276
-(lp101
+(g7
+S'35'
+p97
+tp98
+I986
+I659
+(lp99
 I30
-aI32
-aI33
-atp102
+aNatp100
 a(I32
-(g7
-S'45'
-p103
-tp104
-I854
+S'hat2'
+p101
+I273
+I353
+(lp102
+NaI33
+atp103
+a(I33
+S'setcolor'
+p104
 I285
+I403
 (lp105
-I31
-aNatp106
-a(I33
-S'penup'
-p107
-I780
-I315
-(lp108
-I31
+I32
 aI34
-atp109
+aI39
+atp106
 a(I34
-g77
-I780
-I354
-(lp110
+(g7
+S'0'
+p107
+tp108
+I359
+I420
+(lp109
 I33
 aI35
-aI36
-atp111
+atp110
 a(I35
-(g7
-S'90'
-p112
-tp113
-I854
-I363
-(lp114
+g67
+I452
+I412
+(lp111
 I34
-aNatp115
+aI36
+atp112
 a(I36
-S'pendown'
-p116
-I780
-I393
-(lp117
-I34
+S'random'
+p113
+I491
+I401
+(lp114
+I35
 aI37
-atp118
+aI38
+aNatp115
 a(I37
-g25
-I780
-I432
-(lp119
+(g7
+g107
+tp116
+I519
+I420
+(lp117
 I36
-aI38
-aI41
-atp120
+aNatp118
 a(I38
-g48
-I854
-I449
+(g7
+S'100'
+p119
+tp120
+I641
+I420
 (lp121
-I37
-aI39
-atp122
+I36
+aNatp122
 a(I39
-g12
-I947
-I441
+g61
+I285
+I457
 (lp123
-I38
+I33
 aI40
+aI41
 atp124
 a(I40
 (g7
-S'35'
+S'40'
 p125
 tp126
-I986
-I449
+I359
+I474
 (lp127
 I39
 aNatp128
 a(I41
-g77
-I780
-I486
-(lp129
-I37
+S'stack1'
+p129
+I285
+I511
+(lp130
+I39
 aI42
-aI43
-atp130
+atp131
 a(I42
-(g7
-S'1'
-p131
-tp132
-I854
-I495
-(lp133
+g104
+I285
+I550
+(lp132
 I41
-aNatp134
+aI43
+aI46
+atp133
 a(I43
-g107
-I780
-I525
+S'color'
+p134
+I359
+I567
 (lp135
-I41
+I42
 aI44
 atp136
 a(I44
-g84
-I780
-I564
+g67
+I452
+I559
 (lp137
 I43
 aI45
-aI46
 atp138
 a(I45
 (g7
-S'91'
+S'10'
 p139
 tp140
-I854
-I573
+I491
+I567
 (lp141
 I44
 aNatp142
 a(I46
-g116
-I780
-I603
+g61
+I285
+I604
 (lp143
-I44
+I42
 aI47
+aI50
 atp144
 a(I47
-g25
-I780
-I642
+g64
+I359
+I621
 (lp145
 I46
 aI48
-aNatp146
+atp146
 a(I48
-g48
-I854
-I659
+g94
+I452
+I613
 (lp147
 I47
 aI49
 atp148
 a(I49
-g51
-I947
-I651
-(lp149
+(g7
+S'25'
+p149
+tp150
+I491
+I621
+(lp151
 I48
-aI50
-atp150
+aNatp152
 a(I50
-(g7
-S'35'
-p151
-tp152
-I986
-I659
+g129
+I285
+I658
 (lp153
-I49
+I46
 aNatp154
 a(I51
 S'clean'
 p155
-I192
-I25
+I227
+I73
 (lp156
 NaI52
 atp157
 a(I52
 S'forever'
 p158
-I192
-I64
+I227
+I112
 (lp159
 I51
 aI53
 aNatp160
 a(I53
-g107
-I273
-I78
+g49
+I308
+I126
 (lp161
 I52
 aI54
@@ -500,8 +500,8 @@ atp162
 a(I54
 S'setxy'
 p163
-I273
-I117
+I308
+I165
 (lp164
 I53
 aI55
@@ -509,9 +509,9 @@ aI58
 aI61
 atp165
 a(I55
-g15
-I347
-I107
+g113
+I382
+I155
 (lp166
 I54
 aI56
@@ -522,8 +522,8 @@ a(I56
 S'-600'
 p168
 tp169
-I375
-I126
+I410
+I174
 (lp170
 I55
 aNatp171
@@ -532,15 +532,15 @@ a(I57
 S'600'
 p172
 tp173
-I497
-I126
+I532
+I174
 (lp174
 I55
 aNatp175
 a(I58
-g15
-I347
-I144
+g113
+I382
+I192
 (lp176
 I54
 aI59
@@ -551,8 +551,8 @@ a(I59
 S'-450'
 p178
 tp179
-I375
-I163
+I410
+I211
 (lp180
 I58
 aNatp181
@@ -561,15 +561,15 @@ a(I60
 S'450'
 p182
 tp183
-I497
-I163
+I532
+I211
 (lp184
 I58
 aNatp185
 a(I61
-g116
-I273
-I193
+g58
+I308
+I241
 (lp186
 I54
 aI62
@@ -577,8 +577,8 @@ atp187
 a(I62
 S'stack2'
 p188
-I273
-I232
+I308
+I280
 (lp189
 I61
 aNatp190
--
cgit v0.9.1