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

diff --git a/samples/flower.ta b/samples/flower.ta
index 0f6ce72..402dc55 100644
--- a/samples/flower.ta
+++ b/samples/flower.ta
@@ -1,297 +1 @@
-(lp0
-(I0
-S'hat1'
-p1
-I838
-I260
-(lp2
-NaI1
-atp3
-a(I1
-S'repeat'
-p4
-I850
-I310
-(lp5
-I0
-aI2
-aI3
-aNatp6
-a(I2
-(S'number'
-p7
-S'4'
-p8
-tp9
-I936
-I319
-(lp10
-I1
-aNatp11
-a(I3
-S'forward'
-p12
-I945
-I359
-(lp13
-I1
-aI4
-aI5
-atp14
-a(I4
-S'box1'
-p15
-I1019
-I368
-(lp16
-I3
-aNatp17
-a(I5
-S'right'
-p18
-I945
-I398
-(lp19
-I3
-aI6
-aNatp20
-a(I6
-(g7
-S'90'
-p21
-tp22
-I1019
-I407
-(lp23
-I5
-aNatp24
-a(I7
-S'hat2'
-p25
-I846
-I55
-(lp26
-NaI8
-atp27
-a(I8
-g4
-I858
-I105
-(lp28
-I7
-aI9
-aI10
-aNatp29
-a(I9
-(g7
-S'10'
-p30
-tp31
-I944
-I114
-(lp32
-I8
-aNatp33
-a(I10
-S'stack1'
-p34
-I953
-I154
-(lp35
-I8
-aI11
-atp36
-a(I11
-g18
-I953
-I193
-(lp37
-I10
-aI12
-aNatp38
-a(I12
-(g7
-S'36'
-p39
-tp40
-I1027
-I202
-(lp41
-I11
-aNatp42
-a(I13
-S'storeinbox1'
-p43
-I206
-I69
-(lp44
-I15
-aI14
-aI16
-atp45
-a(I14
-(g7
-S'0'
-p46
-tp47
-I280
-I86
-(lp48
-I13
-aNatp49
-a(I15
-S'clean'
-p50
-I206
-I30
-(lp51
-NaI13
-atp52
-a(I16
-g4
-I206
-I123
-(lp53
-I13
-aI17
-aI18
-aNatp54
-a(I17
-(g7
-S'300'
-p55
-tp56
-I292
-I132
-(lp57
-I16
-aNatp58
-a(I18
-S'setshade'
-p59
-I301
-I172
-(lp60
-I16
-aI19
-aI22
-atp61
-a(I19
-(g7
-S'100'
-p62
-tp63
-I375
-I189
-(lp64
-I18
-aI20
-atp65
-a(I20
-S'minus'
-p66
-I468
-I181
-(lp67
-I19
-aI21
-atp68
-a(I21
-g15
-I507
-I189
-(lp69
-I20
-aNatp70
-a(I22
-S'setcolor'
-p71
-I301
-I226
-(lp72
-I18
-aI23
-aI26
-atp73
-a(I23
-g15
-I375
-I243
-(lp74
-I22
-aI24
-atp75
-a(I24
-S'division'
-p76
-I468
-I235
-(lp77
-I23
-aI25
-atp78
-a(I25
-(g7
-S'3'
-p79
-tp80
-I507
-I243
-(lp81
-I24
-aNatp82
-a(I26
-S'stack2'
-p83
-I301
-I280
-(lp84
-I22
-aI27
-atp85
-a(I27
-g43
-I301
-I319
-(lp86
-I26
-aI28
-aNatp87
-a(I28
-g15
-I375
-I336
-(lp88
-I27
-aI29
-atp89
-a(I29
-S'plus'
-p90
-I468
-I328
-(lp91
-I28
-aI30
-atp92
-a(I30
-(g7
-S'1'
-p93
-tp94
-I507
-I336
-(lp95
-I29
-aNatp96
-a(I-1
-S'turtle'
-p97
-F1.3812950783176348e-11
-F-7.4464878707658499e-11
-F0.0
-F99.666666666666671
-F-199.0
-I5
-tp98
-a.
\ No newline at end of file
+[[0, "hat1", 838, 260, [null, 1]], [1, "repeat", 850, 310, [0, 2, 3, null]], [2, ["number", "4"], 936, 319, [1, null]], [3, "forward", 945, 359, [1, 4, 5]], [4, "box1", 1019, 368, [3, null]], [5, "right", 945, 398, [3, 6, null]], [6, ["number", "90"], 1019, 407, [5, null]], [7, "hat2", 846, 55, [null, 8]], [8, "repeat", 858, 105, [7, 9, 10, null]], [9, ["number", "10"], 944, 114, [8, null]], [10, "stack1", 953, 154, [8, 11]], [11, "right", 953, 193, [10, 12, null]], [12, ["number", "36"], 1027, 202, [11, null]], [13, "start", 200, 19, [null, 14]], [14, "clean", 212, 69, [13, 15]], [15, "storeinbox1", 212, 108, [14, 16, 17]], [16, ["number", "0"], 286, 125, [15, null]], [17, "repeat", 212, 162, [15, 18, 19, null]], [18, ["number", "300"], 298, 171, [17, null]], [19, "setshade", 307, 211, [17, 20, 23]], [20, "minus2", 381, 204, [19, 21, 22]], [21, ["number", "100"], 421, 212, [20, null]], [22, "box1", 440, 245, [20, null]], [23, "setcolor", 307, 265, [19, 24, 27]], [24, "division2", 381, 258, [23, 25, 26]], [25, "box1", 421, 266, [24, null]], [26, ["number", "3"], 440, 299, [24, null]], [27, "stack2", 307, 319, [23, 28]], [28, "storeinbox1", 307, 358, [27, 29, null]], [29, "plus2", 381, 351, [28, 30, 31]], [30, "box1", 421, 359, [29, null]], [31, ["number", "1"], 421, 392, [29, null]], [-1, "turtle", 1.3812950783176348e-11, -7.4464878707658499e-11, 0.0, 99.666666666666671, -199.0, 5]]
\ No newline at end of file
--
cgit v0.9.1