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

diff --git a/samples/csquiral.ta b/samples/csquiral.ta
index 6682f0d..647b5b2 100755
--- a/samples/csquiral.ta
+++ b/samples/csquiral.ta
@@ -1,201 +1,210 @@
 (lp0
 (I0
-S'setpensize'
+S'clean'
 p1
-I163
-I114
+I207
+I67
 (lp2
 NaI1
-aI2
 atp3
 a(I1
-(S'number'
+S'setpensize'
 p4
-S'25'
-p5
-tp6
-I237
-I131
-(lp7
+I207
+I106
+(lp5
 I0
-aNatp8
+aI2
+aI3
+atp6
 a(I2
-S'storeinbox1'
-p9
-I163
-I168
+(S'number'
+p7
+S'25'
+p8
+tp9
+I281
+I123
 (lp10
-I0
-aI3
-aI4
-atp11
+I1
+aNatp11
 a(I3
-(g4
-S'0'
+S'storeinbox1'
 p12
-tp13
-I237
-I185
-(lp14
-I2
-aNatp15
+I207
+I160
+(lp13
+I1
+aI4
+aI5
+atp14
 a(I4
-S'repeat'
-p16
-I163
-I222
+(g7
+S'0'
+p15
+tp16
+I281
+I177
 (lp17
-I2
-aI5
-aI6
+I3
 aNatp18
 a(I5
-(g4
-S'1300'
+S'repeat'
 p19
-tp20
-I249
-I231
-(lp21
-I4
-aNatp22
+I207
+I214
+(lp20
+I3
+aI6
+aI7
+aNatp21
 a(I6
-S'setcolor'
-p23
-I258
-I271
+(g7
+S'1300'
+p22
+tp23
+I293
+I223
 (lp24
-I4
-aI7
-aI10
-atp25
+I5
+aNatp25
 a(I7
-S'xcor'
+S'setcolor'
 p26
-I332
-I288
+I302
+I263
 (lp27
-I6
+I5
 aI8
+aI11
 atp28
 a(I8
-S'division'
+S'xcor'
 p29
-I425
+I376
 I280
 (lp30
 I7
 aI9
 atp31
 a(I9
-(g4
-S'6'
+S'division'
 p32
-tp33
-I464
-I288
-(lp34
+I469
+I272
+(lp33
 I8
-aNatp35
+aI10
+atp34
 a(I10
-S'setshade'
-p36
-I258
-I325
+(g7
+S'6'
+p35
+tp36
+I508
+I280
 (lp37
-I6
-aI11
-aI12
-atp38
+I9
+aNatp38
 a(I11
-S'heading'
+S'setshade'
 p39
-I332
-I342
+I302
+I317
 (lp40
-I10
-aNatp41
+I7
+aI12
+aI13
+atp41
 a(I12
-S'forward'
+S'heading'
 p42
-I258
-I379
+I376
+I334
 (lp43
-I10
-aI13
-aI14
-atp44
+I11
+aNatp44
 a(I13
-S'box1'
+S'forward'
 p45
-I332
-I388
+I302
+I371
 (lp46
-I12
-aNatp47
+I11
+aI14
+aI15
+atp47
 a(I14
-S'right'
+S'box1'
 p48
-I258
-I418
+I376
+I380
 (lp49
-I12
-aI15
-aI16
-atp50
+I13
+aNatp50
 a(I15
-(g4
-S'91'
+S'right'
 p51
-tp52
-I332
-I427
-(lp53
-I14
-aNatp54
-a(I16
-g9
-I258
-I457
-(lp55
-I14
+I302
+I410
+(lp52
+I13
+aI16
 aI17
-aNatp56
+atp53
+a(I16
+(g7
+S'91'
+p54
+tp55
+I376
+I419
+(lp56
+I15
+aNatp57
 a(I17
-g45
-I332
-I474
-(lp57
-I16
+g12
+I302
+I449
+(lp58
+I15
 aI18
-atp58
+aNatp59
 a(I18
-S'plus'
-p59
-I425
+g48
+I376
 I466
 (lp60
 I17
 aI19
 atp61
 a(I19
-(g4
-S'1'
+S'plus'
 p62
-tp63
-I464
-I474
-(lp64
+I469
+I458
+(lp63
 I18
-aNatp65
+aI20
+atp64
+a(I20
+(g7
+S'1'
+p65
+tp66
+I508
+I466
+(lp67
+I19
+aNatp68
 a(I-1
 S'turtle'
-p66
+p69
 F906.80942086435073
 F86.478356202884811
 F220.0
 F-17.117197178042431
 F129.0
 F25.0
-tp67
+tp70
 a.
\ No newline at end of file
--
cgit v0.9.1