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

diff --git a/samples/dots.ta b/samples/dots.ta
index a228722..c5abca9 100755
--- a/samples/dots.ta
+++ b/samples/dots.ta
@@ -2,8 +2,8 @@
 (I0
 S'setcolor'
 p1
-I322
-I195
+I241
+I101
 (lp2
 NaI1
 aI2
@@ -14,16 +14,16 @@ p4
 S'0'
 p5
 tp6
-I396
-I212
+I315
+I118
 (lp7
 I0
 aNatp8
 a(I2
 S'clean'
 p9
-I322
-I249
+I241
+I155
 (lp10
 I0
 aI3
@@ -31,186 +31,186 @@ atp11
 a(I3
 S'setpensize'
 p12
-I322
-I288
+I241
+I194
 (lp13
 I2
-aI22
 aI4
+aI5
 atp14
 a(I4
-S'storeinbox1'
+(g4
+S'20'
 p15
-I322
-I342
-(lp16
+tp16
+I315
+I211
+(lp17
 I3
-aI5
-aI6
-atp17
+aNatp18
 a(I5
+S'storeinbox1'
+p19
+I241
+I248
+(lp20
+I3
+aI6
+aI7
+atp21
+a(I6
 (g4
 g5
-tp18
-I396
-I359
-(lp19
-I4
-aNatp20
-a(I6
-S'repeat'
-p21
-I322
-I396
-(lp22
-I4
-aI7
-aI8
-aNatp23
+tp22
+I315
+I265
+(lp23
+I5
+aNatp24
 a(I7
-(g4
-S'1000'
-p24
-tp25
-I408
-I405
+S'repeat'
+p25
+I241
+I302
 (lp26
-I6
+I5
+aI8
+aI9
 aNatp27
 a(I8
-S'pendown'
+(g4
+S'1000'
 p28
-I417
-I445
-(lp29
-I6
-aI9
-atp30
+tp29
+I327
+I311
+(lp30
+I7
+aNatp31
 a(I9
-S'forward'
-p31
-I417
-I484
-(lp32
-I8
+S'pendown'
+p32
+I336
+I351
+(lp33
+I7
 aI10
-aI11
-atp33
+atp34
 a(I10
-(g4
-S'1'
-p34
-tp35
-I491
-I493
+S'forward'
+p35
+I336
+I390
 (lp36
 I9
-aNatp37
+aI11
+aI12
+atp37
 a(I11
-S'penup'
+(g4
+S'1'
 p38
-I417
-I523
-(lp39
-I9
-aI12
-atp40
+tp39
+I410
+I399
+(lp40
+I10
+aNatp41
 a(I12
-g31
-I417
-I562
-(lp41
-I11
+S'penup'
+p42
+I336
+I429
+(lp43
+I10
 aI13
-aI14
-atp42
+atp44
 a(I13
-S'box1'
-p43
-I491
-I571
-(lp44
+g35
+I336
+I468
+(lp45
 I12
-aNatp45
+aI14
+aI15
+atp46
 a(I14
+S'box1'
+p47
+I410
+I477
+(lp48
+I13
+aNatp49
+a(I15
 S'right'
-p46
-I417
-I601
-(lp47
-I12
-aI15
+p50
+I336
+I507
+(lp51
+I13
 aI16
-atp48
-a(I15
+aI17
+atp52
+a(I16
 (g4
 S'93'
-p49
-tp50
-I491
-I610
-(lp51
-I14
-aNatp52
-a(I16
-g15
-I417
-I640
-(lp53
-I14
-aI17
-aI20
-atp54
-a(I17
-g43
-I491
-I657
+p53
+tp54
+I410
+I516
 (lp55
-I16
+I15
+aNatp56
+a(I17
+g19
+I336
+I546
+(lp57
+I15
 aI18
-atp56
+aI21
+atp58
 a(I18
-S'plus'
-p57
-I584
-I649
-(lp58
+g47
+I410
+I563
+(lp59
 I17
 aI19
-atp59
+atp60
 a(I19
-(g4
-g34
-tp60
-I623
-I657
-(lp61
+S'plus'
+p61
+I503
+I555
+(lp62
 I18
-aNatp62
+aI20
+atp63
 a(I20
-g1
-I417
-I694
-(lp63
-I16
-aI21
-aNatp64
-a(I21
-g43
-I491
-I711
+(g4
+g38
+tp64
+I542
+I563
 (lp65
-I20
+I19
 aNatp66
+a(I21
+g1
+I336
+I600
+(lp67
+I17
+aI22
+aNatp68
 a(I22
-(g4
-S'20'
-p67
-tp68
-I396
-I305
+g47
+I410
+I617
 (lp69
-I3
+I21
 aNatp70
 a(I-1
 S'turtle'
@@ -218,8 +218,8 @@ p71
 F-195.08137186354315
 F661.36192458837445
 F120.0
-F0.0
+F1000.0
 I50
-F15.0
+F20.0
 tp72
 a.
\ No newline at end of file
--
cgit v0.9.1