From ebbaf1f427c01334106add9a11802381e170d7ce Mon Sep 17 00:00:00 2001
From: U-BRIAN-X60\Brian Silverman <Brian Silverman@Brian-X60.(none)>
Date: Thu, 30 Aug 2007 21:48:32 +0000
Subject: added journal awareness

---
(limited to 'samples/redwisp.ta')

diff --git a/samples/redwisp.ta b/samples/redwisp.ta
index 63667c7..3158a7d 100755
--- a/samples/redwisp.ta
+++ b/samples/redwisp.ta
@@ -2,16 +2,16 @@
 (I0
 S'hat1'
 p1
-I870
-I142
+I750
+I100
 (lp2
 NaI1
 atp3
 a(I1
 S'repeat'
 p4
-I882
-I192
+I762
+I150
 (lp5
 I0
 aI2
@@ -24,16 +24,16 @@ p7
 S'4'
 p8
 tp9
-I968
-I201
+I848
+I159
 (lp10
 I1
 aNatp11
 a(I3
 S'arc'
 p12
-I977
-I241
+I857
+I199
 (lp13
 I1
 aI4
@@ -45,8 +45,8 @@ a(I4
 S'180'
 p15
 tp16
-I1051
-I250
+I931
+I208
 (lp17
 I3
 aNatp18
@@ -55,15 +55,15 @@ a(I5
 S'75'
 p19
 tp20
-I1051
-I287
+I931
+I245
 (lp21
 I3
 aNatp22
 a(I6
 g12
-I977
-I317
+I857
+I275
 (lp23
 I3
 aI7
@@ -74,8 +74,8 @@ a(I7
 S'-180'
 p25
 tp26
-I1051
-I326
+I931
+I284
 (lp27
 I6
 aNatp28
@@ -84,32 +84,32 @@ a(I8
 S'75'
 p29
 tp30
-I1051
-I363
+I931
+I321
 (lp31
 I6
 aNatp32
 a(I9
 S'vspace'
 p33
-I882
-I282
+I762
+I240
 (lp34
 I1
 aI10
 atp35
 a(I10
 g33
-I882
-I351
+I762
+I309
 (lp36
 I9
 aI11
 atp37
 a(I11
 g4
-I882
-I420
+I762
+I378
 (lp38
 I10
 aI12
@@ -120,15 +120,15 @@ a(I12
 (g7
 g8
 tp40
-I968
-I429
+I848
+I387
 (lp41
 I11
 aNatp42
 a(I13
 g12
-I977
-I469
+I857
+I427
 (lp43
 I11
 aI14
@@ -140,8 +140,8 @@ a(I14
 S'-180'
 p45
 tp46
-I1051
-I478
+I931
+I436
 (lp47
 I13
 aNatp48
@@ -150,15 +150,15 @@ a(I15
 S'-75'
 p49
 tp50
-I1051
-I515
+I931
+I473
 (lp51
 I13
 aNatp52
 a(I16
 g12
-I977
-I545
+I857
+I503
 (lp53
 I13
 aI17
@@ -169,8 +169,8 @@ a(I17
 S'180'
 p55
 tp56
-I1051
-I554
+I931
+I512
 (lp57
 I16
 aNatp58
@@ -179,23 +179,23 @@ a(I18
 S'-75'
 p59
 tp60
-I1051
-I591
+I931
+I549
 (lp61
 I16
 aNatp62
 a(I19
 g33
-I882
-I510
+I762
+I468
 (lp63
 I11
 aI20
 atp64
 a(I20
 g33
-I882
-I579
+I762
+I537
 (lp65
 I19
 aI21
@@ -203,8 +203,8 @@ atp66
 a(I21
 S'right'
 p67
-I882
-I648
+I762
+I606
 (lp68
 I20
 aI22
@@ -214,16 +214,16 @@ a(I22
 S'1'
 p70
 tp71
-I956
-I657
+I836
+I615
 (lp72
 I21
 aNatp73
 a(I23
 S'setpensize'
 p74
-I351
-I344
+I162
+I124
 (lp75
 NaI24
 aI25
@@ -233,15 +233,15 @@ a(I24
 S'15'
 p77
 tp78
-I425
-I361
+I236
+I141
 (lp79
 I23
 aNatp80
 a(I25
 g4
-I351
-I398
+I162
+I178
 (lp81
 I23
 aI26
@@ -252,16 +252,16 @@ a(I26
 S'360'
 p83
 tp84
-I437
-I407
+I248
+I187
 (lp85
 I25
 aNatp86
 a(I27
 S'storeinbox1'
 p87
-I446
-I447
+I257
+I227
 (lp88
 I25
 aI28
@@ -270,8 +270,8 @@ atp89
 a(I28
 S'heading'
 p90
-I520
-I464
+I331
+I244
 (lp91
 I27
 aI29
@@ -279,8 +279,8 @@ atp92
 a(I29
 S'product'
 p93
-I613
-I456
+I424
+I236
 (lp94
 I28
 aI30
@@ -290,16 +290,16 @@ a(I30
 S'600'
 p96
 tp97
-I652
-I464
+I463
+I244
 (lp98
 I29
 aNatp99
 a(I31
 S'setshade'
 p100
-I446
-I501
+I257
+I281
 (lp101
 I27
 aI32
@@ -308,8 +308,8 @@ atp102
 a(I32
 S'box1'
 p103
-I520
-I518
+I331
+I298
 (lp104
 I31
 aI33
@@ -317,8 +317,8 @@ atp105
 a(I33
 S'division'
 p106
-I613
-I510
+I424
+I290
 (lp107
 I32
 aI34
@@ -328,27 +328,27 @@ a(I34
 S'360'
 p109
 tp110
-I652
-I518
+I463
+I298
 (lp111
 I33
 aNatp112
 a(I35
 S'stack1'
 p113
-I446
-I555
+I257
+I335
 (lp114
 I31
 aNatp115
 a(I-1
 S'turtle'
 p116
-I557
-I373
+I-552
+I376
 F0.0
 I0
-F0.66666666666662877
+F598.33333333333337
 F15.0
 tp117
 a.
\ No newline at end of file
--
cgit v0.9.1