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

diff --git a/samples/bubbles.ta b/samples/bubbles.ta
index 2583b7a..dd60345 100755
--- a/samples/bubbles.ta
+++ b/samples/bubbles.ta
@@ -2,10 +2,11 @@
 (I0
 S'setcolor'
 p1
-I128
-I60
+I219
+I125
 (lp2
-NaI1
+I25
+aI1
 aI2
 atp3
 a(I1
@@ -14,16 +15,16 @@ p4
 S'60'
 p5
 tp6
-I202
-I77
+I293
+I142
 (lp7
 I0
 aNatp8
 a(I2
 S'repeat'
 p9
-I128
-I114
+I219
+I179
 (lp10
 I0
 aI3
@@ -34,16 +35,16 @@ a(I3
 S'5000'
 p12
 tp13
-I214
-I123
+I305
+I188
 (lp14
 I2
 aNatp15
 a(I4
 S'setxy'
 p16
-I223
-I163
+I314
+I228
 (lp17
 I2
 aI5
@@ -53,8 +54,8 @@ atp18
 a(I5
 S'random'
 p19
-I297
-I153
+I388
+I218
 (lp20
 I4
 aI6
@@ -65,8 +66,8 @@ a(I6
 S'-600'
 p22
 tp23
-I325
-I172
+I416
+I237
 (lp24
 I5
 aNatp25
@@ -75,15 +76,15 @@ a(I7
 S'600'
 p26
 tp27
-I447
-I172
+I538
+I237
 (lp28
 I5
 aNatp29
 a(I8
 g19
-I297
-I190
+I388
+I255
 (lp30
 I4
 aI9
@@ -94,8 +95,8 @@ a(I9
 S'-450'
 p32
 tp33
-I325
-I209
+I416
+I274
 (lp34
 I8
 aNatp35
@@ -104,16 +105,16 @@ a(I10
 S'450'
 p36
 tp37
-I447
-I209
+I538
+I274
 (lp38
 I8
 aNatp39
 a(I11
 S'storeinbox1'
 p40
-I223
-I239
+I314
+I304
 (lp41
 I4
 aI12
@@ -122,8 +123,8 @@ atp42
 a(I12
 S'ycor'
 p43
-I297
-I256
+I388
+I321
 (lp44
 I11
 aI13
@@ -131,8 +132,8 @@ atp45
 a(I13
 S'plus'
 p46
-I390
-I248
+I481
+I313
 (lp47
 I12
 aI14
@@ -142,16 +143,16 @@ a(I14
 S'900'
 p49
 tp50
-I429
-I256
+I520
+I321
 (lp51
 I13
 aNatp52
 a(I15
 S'setpensize'
 p53
-I223
-I293
+I314
+I358
 (lp54
 I11
 aI16
@@ -160,8 +161,8 @@ atp55
 a(I16
 S'box1'
 p56
-I297
-I310
+I388
+I375
 (lp57
 I15
 aI17
@@ -169,8 +170,8 @@ atp58
 a(I17
 S'division'
 p59
-I390
-I302
+I481
+I367
 (lp60
 I16
 aI18
@@ -180,16 +181,16 @@ a(I18
 S'9'
 p62
 tp63
-I429
-I310
+I520
+I375
 (lp64
 I17
 aNatp65
 a(I19
 S'setshade'
 p66
-I223
-I347
+I314
+I412
 (lp67
 I15
 aI20
@@ -197,16 +198,16 @@ aI23
 atp68
 a(I20
 g56
-I297
-I364
+I388
+I429
 (lp69
 I19
 aI21
 atp70
 a(I21
 g59
-I390
-I356
+I481
+I421
 (lp71
 I20
 aI22
@@ -216,16 +217,16 @@ a(I22
 S'12'
 p73
 tp74
+I520
 I429
-I364
 (lp75
 I21
 aNatp76
 a(I23
 S'forward'
 p77
-I223
-I401
+I314
+I466
 (lp78
 I19
 aI24
@@ -235,19 +236,27 @@ a(I24
 S'1'
 p80
 tp81
-I297
-I410
+I388
+I475
 (lp82
 I23
 aNatp83
+a(I25
+S'clean'
+p84
+I219
+I86
+(lp85
+NaI0
+atp86
 a(I-1
 S'turtle'
-p84
+p87
 I-204
 I-436
 I0
 F60.0
 F38.666666666666664
 F51.555555555555557
-tp85
+tp88
 a.
\ No newline at end of file
--
cgit v0.9.1