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

diff --git a/samples/candyvortex.ta b/samples/candyvortex.ta
index 9060fef..c399cee 100755
--- a/samples/candyvortex.ta
+++ b/samples/candyvortex.ta
@@ -1,143 +1,152 @@
 (lp0
 (I0
-S'repeat'
+S'clean'
 p1
 I212
-I116
+I77
 (lp2
 NaI1
-aI2
-aNatp3
+atp3
 a(I1
-(S'number'
+S'repeat'
 p4
+I212
+I116
+(lp5
+I0
+aI2
+aI3
+aNatp6
+a(I2
+(S'number'
+p7
 I350
-tp5
+tp8
 I298
 I125
-(lp6
-I0
-aNatp7
-a(I2
+(lp9
+I1
+aNatp10
+a(I3
 S'setpensize'
-p8
+p11
 I307
 I165
-(lp9
-I0
-aI3
+(lp12
+I1
 aI4
-atp10
-a(I3
+aI5
+atp13
+a(I4
 S'heading'
-p11
+p14
 I381
 I182
-(lp12
-I2
-aNatp13
-a(I4
+(lp15
+I3
+aNatp16
+a(I5
 S'forward'
-p14
+p17
 I307
 I219
-(lp15
-I2
-aI5
+(lp18
+I3
 aI6
-atp16
-a(I5
-(g4
+aI7
+atp19
+a(I6
+(g7
 S'1000'
-p17
-tp18
+p20
+tp21
 I381
 I228
-(lp19
-I4
-aNatp20
-a(I6
+(lp22
+I5
+aNatp23
+a(I7
 S'setcolor'
-p21
+p24
 I307
 I258
-(lp22
-I4
-aI7
+(lp25
+I5
 aI8
-atp23
-a(I7
+aI9
+atp26
+a(I8
 S'xcor'
-p24
+p27
 I381
 I275
-(lp25
-I6
-aNatp26
-a(I8
+(lp28
+I7
+aNatp29
+a(I9
 S'setshade'
-p27
+p30
 I307
 I312
-(lp28
-I6
-aI9
+(lp31
+I7
 aI10
-atp29
-a(I9
+aI11
+atp32
+a(I10
 S'ycor'
-p30
+p33
 I381
 I329
-(lp31
-I8
-aNatp32
-a(I10
+(lp34
+I9
+aNatp35
+a(I11
 S'back'
-p33
+p36
 I307
 I366
-(lp34
-I8
-aI11
+(lp37
+I9
 aI12
-atp35
-a(I11
-(g4
+aI13
+atp38
+a(I12
+(g7
 S'1000'
-p36
-tp37
+p39
+tp40
 I381
 I375
-(lp38
-I10
-aNatp39
-a(I12
-S'left'
-p40
-I307
-I405
 (lp41
-I10
-aI13
+I11
 aNatp42
 a(I13
-(g4
+S'left'
+p43
+I307
+I405
+(lp44
+I11
+aI14
+aNatp45
+a(I14
+(g7
 I1
-tp43
+tp46
 I381
 I414
-(lp44
-I12
-aNatp45
+(lp47
+I13
+aNatp48
 a(I-1
 S'turtle'
-p46
-F0.0
-F0.0
+p49
+I-524
+I384
 F10.0
 F190.8089953765448
 F981.62718344766392
 F11.0
-tp47
+tp50
 a.
\ No newline at end of file
--
cgit v0.9.1