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/sunrise.ta')

diff --git a/samples/sunrise.ta b/samples/sunrise.ta
index 90467a2..d42ec63 100755
--- a/samples/sunrise.ta
+++ b/samples/sunrise.ta
@@ -2,16 +2,16 @@
 (I0
 S'hat1'
 p1
-I224
-I79
+I714
+I94
 (lp2
 NaI1
 atp3
 a(I1
 S'setxy'
 p4
-I236
-I129
+I726
+I144
 (lp5
 I0
 aI2
@@ -24,8 +24,8 @@ p7
 S'0'
 p8
 tp9
-I310
-I138
+I800
+I153
 (lp10
 I1
 aNatp11
@@ -33,16 +33,16 @@ a(I3
 (g7
 g8
 tp12
-I310
-I175
+I800
+I190
 (lp13
 I1
 aNatp14
 a(I4
 S'seth'
 p15
-I236
-I205
+I726
+I220
 (lp16
 I1
 aI5
@@ -51,8 +51,8 @@ atp17
 a(I5
 S'random'
 p18
-I310
-I195
+I800
+I210
 (lp19
 I4
 aI6
@@ -62,8 +62,8 @@ a(I6
 (g7
 g8
 tp21
-I338
-I214
+I828
+I229
 (lp22
 I5
 aNatp23
@@ -72,257 +72,257 @@ a(I7
 S'360'
 p24
 tp25
-I460
-I214
+I950
+I229
 (lp26
 I5
 aNatp27
 a(I8
 S'repeat'
 p28
-I236
-I244
+I726
+I259
 (lp29
 I4
-aI33
 aI9
+aI10
 aNatp30
 a(I9
-S'setcolor'
+(g7
+S'20'
 p31
-I331
-I293
-(lp32
+tp32
+I812
+I268
+(lp33
 I8
-aI15
-aI10
-atp33
+aNatp34
 a(I10
-S'forward'
-p34
-I331
-I347
-(lp35
-I9
-aI20
+S'setcolor'
+p35
+I821
+I308
+(lp36
+I8
 aI11
-atp36
+aI14
+atp37
 a(I11
-S'right'
-p37
-I331
-I386
+g18
+I895
+I306
 (lp38
 I10
-aI17
 aI12
-atp39
+aI13
+aNatp39
 a(I12
-g31
-I331
-I425
-(lp40
+S'box1'
+p40
+I923
+I325
+(lp41
 I11
-aI16
-aI13
-atp41
+aNatp42
 a(I13
-g34
-I331
-I479
-(lp42
-I12
-aI18
-aI14
-atp43
+S'box2'
+p43
+I1045
+I325
+(lp44
+I11
+aNatp45
 a(I14
-S'left'
-p44
-I331
-I518
-(lp45
-I13
-aI19
-aNatp46
-a(I15
-g18
-I405
-I291
+S'forward'
+p46
+I821
+I362
 (lp47
-I9
-aI29
-aI30
-aNatp48
-a(I16
+I10
+aI15
+aI18
+atp48
+a(I15
 g18
-I405
-I423
+I895
+I352
 (lp49
-I12
-aI31
-aI32
+I14
+aI16
+aI17
 aNatp50
-a(I17
-g18
-I405
-I376
-(lp51
-I11
-aI23
-aI24
-aNatp52
-a(I18
-g18
-I405
-I469
+a(I16
+(g7
+S'10'
+p51
+tp52
+I923
+I371
 (lp53
-I13
-aI25
-aI26
+I15
 aNatp54
-a(I19
-g18
-I405
-I508
-(lp55
+a(I17
+(g7
+S'30'
+p55
+tp56
+I1045
+I371
+(lp57
+I15
+aNatp58
+a(I18
+S'right'
+p59
+I821
+I401
+(lp60
 I14
-aI27
-aI28
-aNatp56
-a(I20
+aI19
+aI22
+atp61
+a(I19
 g18
-I405
-I337
-(lp57
-I10
+I895
+I391
+(lp62
+I18
+aI20
 aI21
-aI22
-aNatp58
+aNatp63
+a(I20
+(g7
+S'30'
+p64
+tp65
+I923
+I410
+(lp66
+I19
+aNatp67
 a(I21
 (g7
-S'10'
-p59
-tp60
-I433
-I356
-(lp61
-I20
-aNatp62
+S'40'
+p68
+tp69
+I1045
+I410
+(lp70
+I19
+aNatp71
 a(I22
-(g7
-S'30'
-p63
-tp64
-I555
-I356
-(lp65
-I20
-aNatp66
+g35
+I821
+I440
+(lp72
+I18
+aI23
+aI26
+atp73
 a(I23
-(g7
-S'30'
-p67
-tp68
-I433
-I395
-(lp69
-I17
-aNatp70
+g18
+I895
+I438
+(lp74
+I22
+aI24
+aI25
+aNatp75
 a(I24
-(g7
-S'40'
-p71
-tp72
-I555
-I395
-(lp73
-I17
-aNatp74
+g40
+I923
+I457
+(lp76
+I23
+aNatp77
 a(I25
-(g7
-S'10'
-p75
-tp76
-I433
-I488
-(lp77
-I18
-aNatp78
+g43
+I1045
+I457
+(lp78
+I23
+aNatp79
 a(I26
-(g7
-S'30'
-p79
-tp80
-I555
-I488
-(lp81
-I18
-aNatp82
+g46
+I821
+I494
+(lp80
+I22
+aI27
+aI30
+atp81
 a(I27
-(g7
-S'30'
-p83
-tp84
-I433
-I527
-(lp85
-I19
-aNatp86
+g18
+I895
+I484
+(lp82
+I26
+aI28
+aI29
+aNatp83
 a(I28
 (g7
-S'40'
-p87
-tp88
-I555
-I527
-(lp89
-I19
-aNatp90
+S'10'
+p84
+tp85
+I923
+I503
+(lp86
+I27
+aNatp87
 a(I29
-S'box1'
-p91
-I433
-I310
-(lp92
-I15
-aNatp93
+(g7
+S'30'
+p88
+tp89
+I1045
+I503
+(lp90
+I27
+aNatp91
 a(I30
-S'box2'
-p94
-I555
-I310
+S'left'
+p92
+I821
+I533
+(lp93
+I26
+aI31
+aNatp94
+a(I31
+g18
+I895
+I523
 (lp95
-I15
+I30
+aI32
+aI33
 aNatp96
-a(I31
-g91
-I433
-I442
-(lp97
-I16
-aNatp98
 a(I32
-g94
-I555
-I442
+(g7
+S'30'
+p97
+tp98
+I923
+I542
 (lp99
-I16
+I31
 aNatp100
 a(I33
 (g7
-S'20'
+S'40'
 p101
 tp102
-I322
-I253
+I1045
+I542
 (lp103
-I8
+I31
 aNatp104
 a(I34
 S'fillscreen'
 p105
-I791
-I52
+I232
+I98
 (lp106
 NaI35
 aI36
@@ -332,8 +332,8 @@ a(I35
 (g7
 g8
 tp108
-I865
-I61
+I306
+I107
 (lp109
 I34
 aNatp110
@@ -341,16 +341,16 @@ a(I36
 (g7
 g8
 tp111
-I865
-I98
+I306
+I144
 (lp112
 I34
 aNatp113
 a(I37
 S'setpensize'
 p114
-I791
-I128
+I232
+I174
 (lp115
 I34
 aI38
@@ -361,15 +361,15 @@ a(I38
 S'6'
 p117
 tp118
-I865
-I145
+I306
+I191
 (lp119
 I37
 aNatp120
 a(I39
 g28
-I791
-I182
+I232
+I228
 (lp121
 I37
 aI40
@@ -380,16 +380,16 @@ a(I40
 S'300'
 p123
 tp124
-I877
-I191
+I318
+I237
 (lp125
 I39
 aNatp126
 a(I41
 S'storeinbox1'
 p127
-I886
-I231
+I327
+I277
 (lp128
 I39
 aI42
@@ -400,16 +400,16 @@ a(I42
 S'15'
 p130
 tp131
-I960
-I248
+I401
+I294
 (lp132
 I41
 aNatp133
 a(I43
 S'storeinbox2'
 p134
-I886
-I285
+I327
+I331
 (lp135
 I41
 aI44
@@ -420,24 +420,24 @@ a(I44
 S'20'
 p137
 tp138
-I960
-I302
+I401
+I348
 (lp139
 I43
 aNatp140
 a(I45
 S'stack1'
 p141
-I886
-I339
+I327
+I385
 (lp142
 I43
 aI46
 atp143
 a(I46
 g127
-I886
-I378
+I327
+I424
 (lp144
 I45
 aI47
@@ -447,15 +447,15 @@ a(I47
 (g7
 g8
 tp146
-I960
-I395
+I401
+I441
 (lp147
 I46
 aNatp148
 a(I48
 g134
-I886
-I432
+I327
+I478
 (lp149
 I46
 aI49
@@ -466,25 +466,25 @@ a(I49
 S'10'
 p151
 tp152
-I960
-I449
+I401
+I495
 (lp153
 I48
 aNatp154
 a(I50
 g141
-I886
-I486
+I327
+I532
 (lp155
 I48
 aNatp156
 a(I-1
 S'turtle'
 p157
-F666.32380685191617
-F230.72600351500273
-I60
-I3
+F-235.93079498629464
+F738.84933308777579
+I325
+I4
 I50
 F6.0
 tp158
--
cgit v0.9.1