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

diff --git a/samples/colors.ta b/samples/colors.ta
index 5819d26..c7b7c16 100755
--- a/samples/colors.ta
+++ b/samples/colors.ta
@@ -5,8 +5,9 @@ p1
 I202
 I114
 (lp2
-NaI1
-aI2
+I2
+aI1
+aI3
 atp3
 a(I1
 (S'number'
@@ -20,106 +21,114 @@ I131
 I0
 aNatp8
 a(I2
-S'repeat'
+S'clean'
 p9
 I202
-I168
+I75
 (lp10
+NaI0
+atp11
+a(I3
+S'repeat'
+p12
+I202
+I168
+(lp13
 I0
-aI3
 aI4
-aNatp11
-a(I3
+aI5
+aNatp14
+a(I4
 (g4
 I360
-tp12
+tp15
 I288
 I177
-(lp13
-I2
-aNatp14
-a(I4
+(lp16
+I3
+aNatp17
+a(I5
 S'setcolor'
-p15
+p18
 I297
 I217
-(lp16
-I2
-aI5
+(lp19
+I3
 aI6
-atp17
-a(I5
+aI7
+atp20
+a(I6
 S'heading'
-p18
+p21
 I371
 I234
-(lp19
-I4
-aNatp20
-a(I6
+(lp22
+I5
+aNatp23
+a(I7
 S'forward'
-p21
+p24
 I297
 I271
-(lp22
-I4
-aI7
+(lp25
+I5
 aI8
-atp23
-a(I7
+aI9
+atp26
+a(I8
 (g4
 I1000
-tp24
+tp27
 I371
 I280
-(lp25
-I6
-aNatp26
-a(I8
+(lp28
+I7
+aNatp29
+a(I9
 S'back'
-p27
+p30
 I297
 I310
-(lp28
-I6
-aI9
+(lp31
+I7
 aI10
-atp29
-a(I9
+aI11
+atp32
+a(I10
 (g4
 I1000
-tp30
+tp33
 I371
 I319
-(lp31
-I8
-aNatp32
-a(I10
-S'right'
-p33
-I297
-I349
 (lp34
-I8
-aI11
+I9
 aNatp35
 a(I11
+S'right'
+p36
+I297
+I349
+(lp37
+I9
+aI12
+aNatp38
+a(I12
 (g4
 I1
-tp36
+tp39
 I371
 I358
-(lp37
-I10
-aNatp38
+(lp40
+I11
+aNatp41
 a(I-1
 S'turtle'
-p39
+p42
 F0.0
 F0.0
 F0.0
 F359.0
 I50
 F15.0
-tp40
+tp43
 a.
\ No newline at end of file
--
cgit v0.9.1