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