Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/samples/dots.ta
diff options
context:
space:
mode:
Diffstat (limited to 'samples/dots.ta')
-rwxr-xr-xsamples/dots.ta290
1 files changed, 145 insertions, 145 deletions
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