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

diff --git a/samples/sierpquad2.ta b/samples/sierpquad2.ta
index ede1a22..86e2a7d 100644
--- a/samples/sierpquad2.ta
+++ b/samples/sierpquad2.ta
@@ -1,695 +1 @@
-(lp0
-(I0
-S'hat1'
-p1
-I512
-I-8
-(lp2
-NaI1
-atp3
-a(I1
-S'penup'
-p4
-I524
-I42
-(lp5
-I0
-aI2
-atp6
-a(I2
-S'setcolor'
-p7
-I524
-I81
-(lp8
-I1
-aI3
-aI6
-atp9
-a(I3
-S'color'
-p10
-I598
-I98
-(lp11
-I2
-aI4
-atp12
-a(I4
-S'plus'
-p13
-I691
-I90
-(lp14
-I3
-aI5
-atp15
-a(I5
-(S'number'
-p16
-S'8'
-p17
-tp18
-I730
-I98
-(lp19
-I4
-aNatp20
-a(I6
-S'storeinbox1'
-p21
-I524
-I135
-(lp22
-I2
-aI7
-aI10
-atp23
-a(I7
-S'box1'
-p24
-I598
-I152
-(lp25
-I6
-aI8
-atp26
-a(I8
-S'division'
-p27
-I691
-I144
-(lp28
-I7
-aI9
-atp29
-a(I9
-(g16
-S'3'
-p30
-tp31
-I730
-I152
-(lp32
-I8
-aNatp33
-a(I10
-S'repeat'
-p34
-I524
-I189
-(lp35
-I6
-aI11
-aI12
-aI53
-atp36
-a(I11
-(g16
-S'4'
-p37
-tp38
-I610
-I198
-(lp39
-I10
-aNatp40
-a(I12
-S'hspace'
-p41
-I619
-I229
-(lp42
-I10
-aI13
-atp43
-a(I13
-g41
-I710
-I228
-(lp44
-I12
-aI14
-atp45
-a(I14
-g7
-I801
-I236
-(lp46
-I13
-aI15
-aI18
-atp47
-a(I15
-g10
-I875
-I253
-(lp48
-I14
-aI16
-atp49
-a(I16
-S'minus'
-p50
-I968
-I245
-(lp51
-I15
-aI17
-atp52
-a(I17
-(g16
-S'2'
-p53
-tp54
-I1007
-I253
-(lp55
-I16
-aNatp56
-a(I18
-S'if'
-p57
-I801
-I290
-(lp58
-I14
-aI19
-aI21
-aI41
-atp59
-a(I19
-S'greater'
-p60
-I881
-I300
-(lp61
-I18
-aI20
-aI69
-aNatp62
-a(I20
-g24
-I913
-I309
-(lp63
-I19
-aNatp64
-a(I21
-S'stack1'
-p65
-I896
-I364
-(lp66
-I18
-aI22
-atp67
-a(I22
-S'forward'
-p68
-I896
-I403
-(lp69
-I21
-aI23
-aI24
-atp70
-a(I23
-g24
-I970
-I412
-(lp71
-I22
-aNatp72
-a(I24
-g65
-I896
-I442
-(lp73
-I22
-aI25
-atp74
-a(I25
-g34
-I896
-I481
-(lp75
-I24
-aI26
-aI27
-aI31
-atp76
-a(I26
-(g16
-S'2'
-p77
-tp78
-I982
-I490
-(lp79
-I25
-aNatp80
-a(I27
-g68
-I991
-I530
-(lp81
-I25
-aI28
-aI29
-atp82
-a(I28
-g24
-I1065
-I539
-(lp83
-I27
-aNatp84
-a(I29
-S'right'
-p85
-I991
-I569
-(lp86
-I27
-aI30
-aNatp87
-a(I30
-(g16
-S'90'
-p88
-tp89
-I1065
-I578
-(lp90
-I29
-aNatp91
-a(I31
-S'pendown'
-p92
-I896
-I571
-(lp93
-I25
-aI32
-atp94
-a(I32
-g68
-I896
-I610
-(lp95
-I31
-aI33
-aI34
-atp96
-a(I33
-g24
-I970
-I619
-(lp97
-I32
-aNatp98
-a(I34
-g4
-I896
-I649
-(lp99
-I32
-aI35
-atp100
-a(I35
-g34
-I896
-I688
-(lp101
-I34
-aI36
-aI37
-aNatp102
-a(I36
-(g16
-g77
-tp103
-I982
-I697
-(lp104
-I35
-aNatp105
-a(I37
-g68
-I991
-I737
-(lp106
-I35
-aI38
-aI39
-atp107
-a(I38
-g24
-I1065
-I746
-(lp108
-I37
-aNatp109
-a(I39
-g85
-I991
-I776
-(lp110
-I37
-aI40
-aNatp111
-a(I40
-(g16
-S'90'
-p112
-tp113
-I1065
-I785
-(lp114
-I39
-aNatp115
-a(I41
-S'vspace'
-p116
-I801
-I405
-(lp117
-I18
-aI42
-atp118
-a(I42
-g116
-I801
-I474
-(lp119
-I41
-aI43
-atp120
-a(I43
-g116
-I801
-I543
-(lp121
-I42
-aI44
-atp122
-a(I44
-g116
-I801
-I612
-(lp123
-I43
-aI45
-atp124
-a(I45
-g116
-I801
-I681
-(lp125
-I44
-aI46
-atp126
-a(I46
-g116
-I801
-I750
-(lp127
-I45
-aI47
-atp128
-a(I47
-g68
-I801
-I819
-(lp129
-I46
-aI48
-aI51
-atp130
-a(I48
-g24
-I875
-I828
-(lp131
-I47
-aI49
-atp132
-a(I49
-S'product'
-p133
-I968
-I820
-(lp134
-I48
-aI50
-atp135
-a(I50
-(g16
-S'3'
-p136
-tp137
-I1007
-I828
-(lp138
-I49
-aNatp139
-a(I51
-g85
-I801
-I858
-(lp140
-I47
-aI52
-aNatp141
-a(I52
-(g16
-S'90'
-p142
-tp143
-I875
-I867
-(lp144
-I51
-aNatp145
-a(I53
-g21
-I524
-I279
-(lp146
-I10
-aI54
-aNatp147
-a(I54
-g24
-I598
-I296
-(lp148
-I53
-aI55
-atp149
-a(I55
-g133
-I691
-I288
-(lp150
-I54
-aI56
-atp151
-a(I56
-(g16
-g30
-tp152
-I730
-I296
-(lp153
-I55
-aNatp154
-a(I57
-S'clean'
-p155
-I512
-I373
-(lp156
-NaI58
-atp157
-a(I58
-S'setpensize'
-p158
-I512
-I412
-(lp159
-I57
-aI59
-aI60
-atp160
-a(I59
-(g16
-S'1'
-p161
-tp162
-I586
-I429
-(lp163
-I58
-aNatp164
-a(I60
-S'setxy'
-p165
-I512
-I466
-(lp166
-I58
-aI68
-aI67
-aI61
-atp167
-a(I61
-S'left'
-p168
-I512
-I542
-(lp169
-I60
-aI62
-aI63
-atp170
-a(I62
-(g16
-S'90'
-p171
-tp172
-I586
-I551
-(lp173
-I61
-aNatp174
-a(I63
-g21
-I512
-I581
-(lp175
-I61
-aI64
-aI65
-atp176
-a(I64
-(g16
-S'729'
-p177
-tp178
-I586
-I598
-(lp179
-I63
-aNatp180
-a(I65
-g65
-I512
-I635
-(lp181
-I63
-aI66
-atp182
-a(I66
-g92
-I512
-I674
-(lp183
-I65
-aI70
-atp184
-a(I67
-(g16
-S'-375'
-p185
-tp186
-I586
-I512
-(lp187
-I60
-aNatp188
-a(I68
-(g16
-S'350'
-p189
-tp190
-I586
-I475
-(lp191
-I60
-aNatp192
-a(I69
-(g16
-S'1'
-p193
-tp194
-I1062
-I309
-(lp195
-I19
-aNatp196
-a(I70
-g34
-I512
-I713
-(lp197
-I66
-aI71
-aI72
-aNatp198
-a(I71
-(g16
-S'4'
-p199
-tp200
-I598
-I722
-(lp201
-I70
-aNatp202
-a(I72
-g68
-I607
-I762
-(lp203
-I70
-aI73
-aI74
-atp204
-a(I73
-g24
-I681
-I771
-(lp205
-I72
-aNatp206
-a(I74
-g85
-I607
-I801
-(lp207
-I72
-aI75
-aNatp208
-a(I75
-(g16
-S'90'
-p209
-tp210
-I681
-I810
-(lp211
-I74
-aNatp212
-a(I-1
-S'turtle'
-p213
-F350.00000000000148
-F-375.00000000000279
-F270.0
-F0.0
-I50
-F1.0
-tp214
-a.
\ No newline at end of file
+[[0, "start", 227, 13, [null, 1]], [1, "clean", 239, 63, [0, 2]], [2, "setpensize", 239, 102, [1, 3, 4]], [3, ["number", "1"], 313, 119, [2, null]], [4, "setxy", 239, 156, [2, 5, 6, 7]], [5, ["number", "350"], 313, 165, [4, null]], [6, ["number", "-375"], 313, 202, [4, null]], [7, "left", 239, 232, [4, 8, 9]], [8, ["number", "90"], 313, 241, [7, null]], [9, "storeinbox1", 239, 271, [7, 10, 11]], [10, ["number", "729"], 313, 288, [9, null]], [11, "stack1", 239, 325, [9, 12]], [12, "pendown", 239, 364, [11, 13]], [13, "repeat", 239, 403, [12, 14, 15, null]], [14, ["number", "4"], 325, 412, [13, null]], [15, "forward", 334, 452, [13, 16, 17]], [16, "box1", 408, 461, [15, null]], [17, "right", 334, 491, [15, 18, null]], [18, ["number", "90"], 408, 500, [17, null]], [19, "hat1", 452, 35, [null, 20]], [20, "penup", 464, 85, [19, 21]], [21, "setcolor", 464, 124, [20, 66, 22]], [22, "storeinbox1", 464, 178, [21, 69, 23]], [23, "repeat", 464, 232, [22, 24, 25, 41]], [24, ["number", "4"], 550, 241, [23, null]], [25, "hspace", 559, 272, [23, 26]], [26, "setcolor", 650, 280, [25, 27, 30]], [27, "color", 724, 297, [26, 28]], [28, "minus", 817, 289, [27, 29]], [29, ["number", "2"], 856, 297, [28, null]], [30, "if", 650, 334, [26, 31, 34, 35]], [31, "greater", 730, 344, [30, 32, 33, null]], [32, "box1", 762, 353, [31, null]], [33, ["number", "1"], 911, 353, [31, null]], [34, "stack2", 745, 408, [30, null]], [35, "forward", 650, 449, [30, 36, 39]], [36, "product2", 724, 434, [35, 37, 38]], [37, "box1", 764, 442, [36, null]], [38, ["number", "3"], 764, 475, [36, null]], [39, "right", 650, 488, [35, 40, null]], [40, ["number", "90"], 724, 497, [39, null]], [41, "storeinbox1", 464, 322, [23, 42, null]], [42, "product2", 538, 315, [41, 43, 44]], [43, "box1", 578, 323, [42, null]], [44, ["number", "3"], 578, 356, [42, null]], [45, "hat2", 833, 26, [null, 46]], [46, "stack1", 845, 76, [45, 47]], [47, "forward", 845, 115, [46, 48, 49]], [48, "box1", 919, 124, [47, null]], [49, "stack1", 845, 154, [47, 50]], [50, "repeat", 845, 193, [49, 51, 52, 56]], [51, ["number", "2"], 931, 202, [50, null]], [52, "forward", 940, 242, [50, 53, 54]], [53, "box1", 1014, 251, [52, null]], [54, "right", 940, 281, [52, 55, null]], [55, ["number", "90"], 1014, 290, [54, null]], [56, "pendown", 845, 283, [50, 57]], [57, "forward", 845, 322, [56, 58, 59]], [58, "box1", 919, 331, [57, null]], [59, "penup", 845, 361, [57, 60]], [60, "repeat", 845, 400, [59, 61, 62, null]], [61, ["number", "2"], 931, 409, [60, null]], [62, "forward", 940, 449, [60, 63, 64]], [63, "box1", 1014, 458, [62, null]], [64, "right", 940, 488, [62, 65, null]], [65, ["number", "90"], 1014, 497, [64, null]], [66, "plus2", 538, 117, [21, 67, 68]], [67, "color", 578, 125, [66, null]], [68, ["number", "8"], 578, 158, [66, null]], [69, "division2", 538, 171, [22, 70, 71]], [70, "box1", 578, 179, [69, null]], [71, ["number", "3"], 597, 212, [69, null]], [-1, "turtle", -303.99999999999949, -303.00000000000051, 0.0, 18.0, 50, 1.0]]
\ No newline at end of file
--
cgit v0.9.1