From eba6e303eaf72d59d988a248c6da6f6e436543cf Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@walter-laptop.(none)>
Date: Sat, 29 Aug 2009 15:32:58 +0000
Subject: converting samples to json

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

diff --git a/samples/redwisp.ta b/samples/redwisp.ta
index 497d3a6..5e791ea 100644
--- a/samples/redwisp.ta
+++ b/samples/redwisp.ta
@@ -1,363 +1 @@
-(lp0
-(I0
-S'hat1'
-p1
-I750
-I100
-(lp2
-NaI1
-atp3
-a(I1
-S'repeat'
-p4
-I762
-I150
-(lp5
-I0
-aI2
-aI3
-aI9
-atp6
-a(I2
-(S'number'
-p7
-S'4'
-p8
-tp9
-I848
-I159
-(lp10
-I1
-aNatp11
-a(I3
-S'arc'
-p12
-I857
-I199
-(lp13
-I1
-aI4
-aI5
-aI6
-atp14
-a(I4
-(g7
-S'180'
-p15
-tp16
-I931
-I208
-(lp17
-I3
-aNatp18
-a(I5
-(g7
-S'75'
-p19
-tp20
-I931
-I245
-(lp21
-I3
-aNatp22
-a(I6
-g12
-I857
-I275
-(lp23
-I3
-aI7
-aI8
-aNatp24
-a(I7
-(g7
-S'-180'
-p25
-tp26
-I931
-I284
-(lp27
-I6
-aNatp28
-a(I8
-(g7
-S'75'
-p29
-tp30
-I931
-I321
-(lp31
-I6
-aNatp32
-a(I9
-S'vspace'
-p33
-I762
-I240
-(lp34
-I1
-aI10
-atp35
-a(I10
-g33
-I762
-I309
-(lp36
-I9
-aI11
-atp37
-a(I11
-g4
-I762
-I378
-(lp38
-I10
-aI12
-aI13
-aI19
-atp39
-a(I12
-(g7
-g8
-tp40
-I848
-I387
-(lp41
-I11
-aNatp42
-a(I13
-g12
-I857
-I427
-(lp43
-I11
-aI14
-aI15
-aI16
-atp44
-a(I14
-(g7
-S'-180'
-p45
-tp46
-I931
-I436
-(lp47
-I13
-aNatp48
-a(I15
-(g7
-S'-75'
-p49
-tp50
-I931
-I473
-(lp51
-I13
-aNatp52
-a(I16
-g12
-I857
-I503
-(lp53
-I13
-aI17
-aI18
-aNatp54
-a(I17
-(g7
-S'180'
-p55
-tp56
-I931
-I512
-(lp57
-I16
-aNatp58
-a(I18
-(g7
-S'-75'
-p59
-tp60
-I931
-I549
-(lp61
-I16
-aNatp62
-a(I19
-g33
-I762
-I468
-(lp63
-I11
-aI20
-atp64
-a(I20
-g33
-I762
-I537
-(lp65
-I19
-aI21
-atp66
-a(I21
-S'right'
-p67
-I762
-I606
-(lp68
-I20
-aI22
-aNatp69
-a(I22
-(g7
-S'1'
-p70
-tp71
-I836
-I615
-(lp72
-I21
-aNatp73
-a(I23
-S'setpensize'
-p74
-I228
-I140
-(lp75
-I25
-aI24
-aI26
-atp76
-a(I24
-(g7
-S'15'
-p77
-tp78
-I302
-I157
-(lp79
-I23
-aNatp80
-a(I25
-S'clean'
-p81
-I228
-I101
-(lp82
-NaI23
-atp83
-a(I26
-g4
-I228
-I194
-(lp84
-I23
-aI27
-aI28
-aNatp85
-a(I27
-(g7
-S'360'
-p86
-tp87
-I314
-I203
-(lp88
-I26
-aNatp89
-a(I28
-S'storeinbox1'
-p90
-I323
-I243
-(lp91
-I26
-aI29
-aI32
-atp92
-a(I29
-S'heading'
-p93
-I397
-I260
-(lp94
-I28
-aI30
-atp95
-a(I30
-S'product'
-p96
-I490
-I252
-(lp97
-I29
-aI31
-atp98
-a(I31
-(g7
-S'600'
-p99
-tp100
-I529
-I260
-(lp101
-I30
-aNatp102
-a(I32
-S'setshade'
-p103
-I323
-I297
-(lp104
-I28
-aI33
-aI36
-atp105
-a(I33
-S'box1'
-p106
-I397
-I314
-(lp107
-I32
-aI34
-atp108
-a(I34
-S'division'
-p109
-I490
-I306
-(lp110
-I33
-aI35
-atp111
-a(I35
-(g7
-S'360'
-p112
-tp113
-I529
-I314
-(lp114
-I34
-aNatp115
-a(I36
-S'stack1'
-p116
-I323
-I351
-(lp117
-I32
-aNatp118
-a(I-1
-S'turtle'
-p119
-I-559
-I403
-F0.0
-I0
-F598.33333333333337
-F15.0
-tp120
-a.
\ No newline at end of file
+[[0, "clean", 227, 73, [1, 51]], [1, "start", 215, 23, [null, 0]], [2, "hat2", 220, 328, [null, 3]], [3, "setcolor", 232, 378, [2, 4, 7]], [4, "random", 306, 376, [3, 5, 6, null]], [5, ["number", "0"], 334, 395, [4, null]], [6, ["number", "100"], 456, 395, [4, null]], [7, "setpensize", 232, 432, [3, 8, 9]], [8, ["number", "40"], 306, 449, [7, null]], [9, "stack1", 232, 486, [7, 10]], [10, "setcolor", 232, 525, [9, 11, 14]], [11, "plus2", 306, 518, [10, 12, 13]], [12, "color", 346, 526, [11, null]], [13, ["number", "10"], 346, 559, [11, null]], [14, "setpensize", 232, 579, [10, 15, 18]], [15, "minus2", 306, 572, [14, 16, 17]], [16, "pensize", 346, 580, [15, null]], [17, ["number", "25"], 365, 613, [15, null]], [18, "stack1", 232, 633, [14, null]], [19, "hat1", 685, 19, [null, 20]], [20, "left", 697, 69, [19, 21, 22]], [21, ["number", "45"], 771, 78, [20, null]], [22, "repeat", 697, 108, [20, 23, 24, 30]], [23, ["number", "4"], 783, 117, [22, null]], [24, "forward", 792, 157, [22, 25, 26]], [25, ["number", "75"], 866, 166, [24, null]], [26, "back", 792, 196, [24, 27, 28]], [27, ["number", "75"], 866, 205, [26, null]], [28, "left", 792, 235, [26, 29, null]], [29, ["number", "90"], 866, 244, [28, null]], [30, "vspace", 697, 198, [22, 31]], [31, "right", 697, 267, [30, 32, 33]], [32, ["number", "45"], 771, 276, [31, null]], [33, "penup", 697, 306, [31, 34]], [34, "forward", 697, 345, [33, 35, 36]], [35, ["number", "90"], 771, 354, [34, null]], [36, "pendown", 697, 384, [34, 37]], [37, "setpensize", 697, 423, [36, 45, 38]], [38, "forward", 697, 477, [37, 39, 40]], [39, ["number", "1"], 771, 486, [38, null]], [40, "penup", 697, 516, [38, 41]], [41, "back", 697, 555, [40, 42, 43]], [42, ["number", "91"], 771, 564, [41, null]], [43, "pendown", 697, 594, [41, 44]], [44, "setpensize", 697, 633, [43, 48, null]], [45, "plus2", 771, 416, [37, 46, 47]], [46, "pensize", 811, 424, [45, null]], [47, ["number", "35"], 811, 457, [45, null]], [48, "minus2", 771, 626, [44, 49, 50]], [49, "pensize", 811, 634, [48, null]], [50, ["number", "35"], 830, 667, [48, null]], [51, "repeat", 227, 112, [0, 52, 53, null]], [52, ["number", "500"], 313, 121, [51, null]], [53, "penup", 322, 161, [51, 54]], [54, "setxy", 322, 200, [53, 55, 58, 61]], [55, "random", 396, 190, [54, 56, 57, null]], [56, ["number", "-600"], 424, 209, [55, null]], [57, ["number", "600"], 546, 209, [55, null]], [58, "random", 396, 227, [54, 59, 60, null]], [59, ["number", "-450"], 424, 246, [58, null]], [60, ["number", "450"], 546, 246, [58, null]], [61, "pendown", 322, 276, [54, 62]], [62, "stack2", 322, 315, [61, null]], [-1, "turtle", 562.0, -180.0, 0.0, 87.0, 50, 15.0]]
\ No newline at end of file
--
cgit v0.9.1