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

diff --git a/samples/dots.ta b/samples/dots.ta
index 6c35cdc..5e791ea 100644
--- a/samples/dots.ta
+++ b/samples/dots.ta
@@ -1,233 +1 @@
-(lp0
-(I0
-S'clean'
-p1
-I241
-I62
-(lp2
-NaI1
-atp3
-a(I1
-S'setcolor'
-p4
-I241
-I101
-(lp5
-I0
-aI2
-aI3
-atp6
-a(I2
-(S'number'
-p7
-S'0'
-p8
-tp9
-I315
-I118
-(lp10
-I1
-aNatp11
-a(I3
-g1
-I241
-I155
-(lp12
-I1
-aI4
-atp13
-a(I4
-S'setpensize'
-p14
-I241
-I194
-(lp15
-I3
-aI5
-aI6
-atp16
-a(I5
-(g7
-S'20'
-p17
-tp18
-I315
-I211
-(lp19
-I4
-aNatp20
-a(I6
-S'storeinbox1'
-p21
-I241
-I248
-(lp22
-I4
-aI7
-aI8
-atp23
-a(I7
-(g7
-g8
-tp24
-I315
-I265
-(lp25
-I6
-aNatp26
-a(I8
-S'repeat'
-p27
-I241
-I302
-(lp28
-I6
-aI9
-aI10
-aNatp29
-a(I9
-(g7
-S'1000'
-p30
-tp31
-I327
-I311
-(lp32
-I8
-aNatp33
-a(I10
-S'pendown'
-p34
-I336
-I351
-(lp35
-I8
-aI11
-atp36
-a(I11
-S'forward'
-p37
-I336
-I390
-(lp38
-I10
-aI12
-aI13
-atp39
-a(I12
-(g7
-S'1'
-p40
-tp41
-I410
-I399
-(lp42
-I11
-aNatp43
-a(I13
-S'penup'
-p44
-I336
-I429
-(lp45
-I11
-aI14
-atp46
-a(I14
-g37
-I336
-I468
-(lp47
-I13
-aI15
-aI16
-atp48
-a(I15
-S'box1'
-p49
-I410
-I477
-(lp50
-I14
-aNatp51
-a(I16
-S'right'
-p52
-I336
-I507
-(lp53
-I14
-aI17
-aI18
-atp54
-a(I17
-(g7
-S'93'
-p55
-tp56
-I410
-I516
-(lp57
-I16
-aNatp58
-a(I18
-g21
-I336
-I546
-(lp59
-I16
-aI19
-aI22
-atp60
-a(I19
-g49
-I410
-I563
-(lp61
-I18
-aI20
-atp62
-a(I20
-S'plus'
-p63
-I503
-I555
-(lp64
-I19
-aI21
-atp65
-a(I21
-(g7
-g40
-tp66
-I542
-I563
-(lp67
-I20
-aNatp68
-a(I22
-g4
-I336
-I600
-(lp69
-I18
-aI23
-aNatp70
-a(I23
-g49
-I410
-I617
-(lp71
-I22
-aNatp72
-a(I-1
-S'turtle'
-p73
-F-195.08137186354315
-F661.36192458837445
-F120.0
-F1000.0
-I50
-F20.0
-tp74
-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