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

diff --git a/samples/reflections.ta b/samples/reflections.ta
index a009075..e112aa3 100755
--- a/samples/reflections.ta
+++ b/samples/reflections.ta
@@ -2,16 +2,16 @@
 (I0
 S'clean'
 p1
-I689
-I106
+I119
+I61
 (lp2
 NaI1
 atp3
 a(I1
 S'setpensize'
 p4
-I689
-I145
+I119
+I100
 (lp5
 I0
 aI2
@@ -23,16 +23,16 @@ p7
 S'15'
 p8
 tp9
-I763
-I162
+I193
+I117
 (lp10
 I1
 aNatp11
 a(I3
 S'storeinbox1'
 p12
-I689
-I199
+I119
+I154
 (lp13
 I1
 aI4
@@ -43,16 +43,16 @@ a(I4
 S'6200'
 p15
 tp16
-I763
-I216
+I193
+I171
 (lp17
 I3
 aNatp18
 a(I5
 S'repeat'
 p19
-I689
-I253
+I119
+I208
 (lp20
 I3
 aI6
@@ -63,16 +63,16 @@ a(I6
 S'6200'
 p22
 tp23
-I775
-I262
+I205
+I217
 (lp24
 I5
 aNatp25
 a(I7
 S'storeinbox2'
 p26
-I784
-I302
+I214
+I257
 (lp27
 I5
 aI8
@@ -81,8 +81,8 @@ atp28
 a(I8
 S'box1'
 p29
-I858
-I319
+I288
+I274
 (lp30
 I7
 aI9
@@ -90,8 +90,8 @@ atp31
 a(I9
 S'division'
 p32
-I951
-I311
+I381
+I266
 (lp33
 I8
 aI10
@@ -101,16 +101,16 @@ a(I10
 S'50'
 p35
 tp36
-I990
-I319
+I420
+I274
 (lp37
 I9
 aNatp38
 a(I11
 S'setshade'
 p39
-I784
-I356
+I214
+I311
 (lp40
 I7
 aI12
@@ -121,8 +121,8 @@ a(I12
 S'100'
 p42
 tp43
-I858
-I373
+I288
+I328
 (lp44
 I11
 aI13
@@ -130,8 +130,8 @@ atp45
 a(I13
 S'minus'
 p46
-I951
-I365
+I381
+I320
 (lp47
 I12
 aI14
@@ -139,16 +139,16 @@ atp48
 a(I14
 S'box2'
 p49
-I990
-I373
+I420
+I328
 (lp50
 I13
 aNatp51
 a(I15
 S'forward'
 p52
-I784
-I410
+I214
+I365
 (lp53
 I11
 aI16
@@ -156,16 +156,16 @@ aI19
 atp54
 a(I16
 g29
-I858
-I419
+I288
+I374
 (lp55
 I15
 aI17
 atp56
 a(I17
 g32
-I951
-I411
+I381
+I366
 (lp57
 I16
 aI18
@@ -175,16 +175,16 @@ a(I18
 S'8'
 p59
 tp60
-I990
-I419
+I420
+I374
 (lp61
 I17
 aNatp62
 a(I19
 S'back'
 p63
-I784
-I449
+I214
+I404
 (lp64
 I15
 aI20
@@ -192,16 +192,16 @@ aI23
 atp65
 a(I20
 g29
-I858
-I458
+I288
+I413
 (lp66
 I19
 aI21
 atp67
 a(I21
 g32
-I951
-I450
+I381
+I405
 (lp68
 I20
 aI22
@@ -210,16 +210,16 @@ a(I22
 (g7
 g59
 tp70
-I990
-I458
+I420
+I413
 (lp71
 I21
 aNatp72
 a(I23
 S'right'
 p73
-I784
-I488
+I214
+I443
 (lp74
 I19
 aI24
@@ -230,15 +230,15 @@ a(I24
 S'1'
 p76
 tp77
-I858
-I497
+I288
+I452
 (lp78
 I23
 aNatp79
 a(I25
 g12
-I784
-I527
+I214
+I482
 (lp80
 I23
 aI26
@@ -246,16 +246,16 @@ aI29
 atp81
 a(I26
 g29
-I858
-I544
+I288
+I499
 (lp82
 I25
 aI27
 atp83
 a(I27
 g46
-I951
-I536
+I381
+I491
 (lp84
 I26
 aI28
@@ -264,35 +264,35 @@ a(I28
 (g7
 g76
 tp86
-I990
-I544
+I420
+I499
 (lp87
 I27
 aNatp88
 a(I29
 S'setcolor'
 p89
-I784
-I581
+I214
+I536
 (lp90
 I25
 aI30
 aNatp91
 a(I30
 g29
-I858
-I598
+I288
+I553
 (lp92
 I29
 aNatp93
 a(I-1
 S'turtle'
 p94
-I-584
-I-436
-I0
+I-521
+I371
+F80.0
 F0.0
-F99.019999999999996
+F99.980000000000004
 F15.0
 tp95
 a.
\ No newline at end of file
--
cgit v0.9.1