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

diff --git a/samples/squares.ta b/samples/squares.ta
index 4886245..e8e86f0 100755
--- a/samples/squares.ta
+++ b/samples/squares.ta
@@ -1,114 +1,123 @@
 (lp0
 (I0
-S'repeat'
+S'clean'
 p1
-I765
-I94
+I261
+I118
 (lp2
 NaI1
-aI2
-aNatp3
+atp3
 a(I1
-(S'number'
+S'repeat'
 p4
-I36
-tp5
-I851
-I103
-(lp6
-I0
-aNatp7
-a(I2
-g1
-I860
-I143
-(lp8
+I261
+I157
+(lp5
 I0
+aI2
 aI3
-aI4
-aI8
-atp9
+aNatp6
+a(I2
+(S'number'
+p7
+I36
+tp8
+I347
+I166
+(lp9
+I1
+aNatp10
 a(I3
-(g4
-I4
-tp10
-I946
-I152
+g4
+I356
+I206
 (lp11
-I2
-aNatp12
+I1
+aI4
+aI5
+aI9
+atp12
 a(I4
-S'forward'
-p13
-I955
-I192
+(g7
+I4
+tp13
+I442
+I215
 (lp14
-I2
-aI5
-aI6
-atp15
+I3
+aNatp15
 a(I5
-(g4
-S'300'
+S'forward'
 p16
-tp17
-I1029
-I201
-(lp18
-I4
-aNatp19
+I451
+I255
+(lp17
+I3
+aI6
+aI7
+atp18
 a(I6
-S'right'
-p20
-I955
-I231
+(g7
+S'300'
+p19
+tp20
+I525
+I264
 (lp21
-I4
-aI7
+I5
 aNatp22
 a(I7
-(g4
-I90
-tp23
-I1029
-I240
+S'right'
+p23
+I451
+I294
 (lp24
-I6
+I5
+aI8
 aNatp25
 a(I8
-S'vspace'
-p26
-I860
-I233
+(g7
+I90
+tp26
+I525
+I303
 (lp27
-I2
-aI9
-atp28
+I7
+aNatp28
 a(I9
-g20
-I860
-I302
-(lp29
-I8
+S'vspace'
+p29
+I356
+I296
+(lp30
+I3
 aI10
-aNatp30
+atp31
 a(I10
-(g4
-I10
-tp31
-I934
-I311
+g23
+I356
+I365
 (lp32
 I9
+aI11
 aNatp33
+a(I11
+(g7
+I10
+tp34
+I430
+I374
+(lp35
+I10
+aNatp36
 a(I-1
 S'turtle'
-p34
+p37
 F-2.8421709430404007e-13
 F-1.0587086762825493e-12
 F0.0
 I0
 I50
 I5
-tp35
+tp38
 a.
\ No newline at end of file
--
cgit v0.9.1