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

diff --git a/samples/dots.ta b/samples/dots.ta
index c5abca9..6c35cdc 100755
--- a/samples/dots.ta
+++ b/samples/dots.ta
@@ -1,225 +1,233 @@
 (lp0
 (I0
-S'setcolor'
+S'clean'
 p1
 I241
-I101
+I62
 (lp2
 NaI1
-aI2
 atp3
 a(I1
-(S'number'
+S'setcolor'
 p4
+I241
+I101
+(lp5
+I0
+aI2
+aI3
+atp6
+a(I2
+(S'number'
+p7
 S'0'
-p5
-tp6
+p8
+tp9
 I315
 I118
-(lp7
-I0
-aNatp8
-a(I2
-S'clean'
-p9
-I241
-I155
 (lp10
-I0
-aI3
-atp11
+I1
+aNatp11
 a(I3
+g1
+I241
+I155
+(lp12
+I1
+aI4
+atp13
+a(I4
 S'setpensize'
-p12
+p14
 I241
 I194
-(lp13
-I2
-aI4
+(lp15
+I3
 aI5
-atp14
-a(I4
-(g4
+aI6
+atp16
+a(I5
+(g7
 S'20'
-p15
-tp16
+p17
+tp18
 I315
 I211
-(lp17
-I3
-aNatp18
-a(I5
+(lp19
+I4
+aNatp20
+a(I6
 S'storeinbox1'
-p19
+p21
 I241
 I248
-(lp20
-I3
-aI6
+(lp22
+I4
 aI7
-atp21
-a(I6
-(g4
-g5
-tp22
+aI8
+atp23
+a(I7
+(g7
+g8
+tp24
 I315
 I265
-(lp23
-I5
-aNatp24
-a(I7
+(lp25
+I6
+aNatp26
+a(I8
 S'repeat'
-p25
+p27
 I241
 I302
-(lp26
-I5
-aI8
+(lp28
+I6
 aI9
-aNatp27
-a(I8
-(g4
+aI10
+aNatp29
+a(I9
+(g7
 S'1000'
-p28
-tp29
+p30
+tp31
 I327
 I311
-(lp30
-I7
-aNatp31
-a(I9
+(lp32
+I8
+aNatp33
+a(I10
 S'pendown'
-p32
+p34
 I336
 I351
-(lp33
-I7
-aI10
-atp34
-a(I10
+(lp35
+I8
+aI11
+atp36
+a(I11
 S'forward'
-p35
+p37
 I336
 I390
-(lp36
-I9
-aI11
+(lp38
+I10
 aI12
-atp37
-a(I11
-(g4
+aI13
+atp39
+a(I12
+(g7
 S'1'
-p38
-tp39
+p40
+tp41
 I410
 I399
-(lp40
-I10
-aNatp41
-a(I12
+(lp42
+I11
+aNatp43
+a(I13
 S'penup'
-p42
+p44
 I336
 I429
-(lp43
-I10
-aI13
-atp44
-a(I13
-g35
-I336
-I468
 (lp45
-I12
+I11
 aI14
-aI15
 atp46
 a(I14
+g37
+I336
+I468
+(lp47
+I13
+aI15
+aI16
+atp48
+a(I15
 S'box1'
-p47
+p49
 I410
 I477
-(lp48
-I13
-aNatp49
-a(I15
+(lp50
+I14
+aNatp51
+a(I16
 S'right'
-p50
+p52
 I336
 I507
-(lp51
-I13
-aI16
+(lp53
+I14
 aI17
-atp52
-a(I16
-(g4
+aI18
+atp54
+a(I17
+(g7
 S'93'
-p53
-tp54
+p55
+tp56
 I410
 I516
-(lp55
-I15
-aNatp56
-a(I17
-g19
-I336
-I546
 (lp57
-I15
-aI18
-aI21
-atp58
+I16
+aNatp58
 a(I18
-g47
-I410
-I563
+g21
+I336
+I546
 (lp59
-I17
+I16
 aI19
+aI22
 atp60
 a(I19
-S'plus'
-p61
-I503
-I555
-(lp62
+g49
+I410
+I563
+(lp61
 I18
 aI20
-atp63
+atp62
 a(I20
-(g4
-g38
-tp64
-I542
-I563
-(lp65
+S'plus'
+p63
+I503
+I555
+(lp64
 I19
-aNatp66
+aI21
+atp65
 a(I21
-g1
-I336
-I600
+(g7
+g40
+tp66
+I542
+I563
 (lp67
-I17
-aI22
+I20
 aNatp68
 a(I22
-g47
-I410
-I617
+g4
+I336
+I600
 (lp69
-I21
+I18
+aI23
 aNatp70
+a(I23
+g49
+I410
+I617
+(lp71
+I22
+aNatp72
 a(I-1
 S'turtle'
-p71
+p73
 F-195.08137186354315
 F661.36192458837445
 F120.0
 F1000.0
 I50
 F20.0
-tp72
+tp74
 a.
\ No newline at end of file
--
cgit v0.9.1