From 7498af0ea46d0fdb20ad4a169bb138ef6db30f54 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@sugarlabs.org>
Date: Thu, 11 Jul 2013 00:00:43 +0000
Subject: more samples from turtleart.org

---
diff --git a/samples/graphics-curls.tb b/samples/graphics-curls.tb
new file mode 100644
index 0000000..05f46f4
--- /dev/null
+++ b/samples/graphics-curls.tb
@@ -0,0 +1,73 @@
+[[0, ["start", 2.0], 299, 180, [null, 71]],
+[1, ["arc", 0], 978, 344, [8, 2, 6, 10]],
+[2, ["number", 90.0], 1036, 344, [1, null]],
+[3, ["storein", 0], 960, 218, [25, 4, 5, 8]],
+[4, ["string", "radius"], 1028, 218, [3, null]],
+[5, ["number", 10.0], 1028, 260, [3, null]],
+[6, "box", 1036, 386, [1, 7, null]],
+[7, ["string", "radius"], 1091, 386, [6, null]],
+[8, ["repeat", 63], 960, 302, [3, 9, 1, 26]],
+[9, ["number", 36.0], 1019, 302, [8, null]],
+[10, ["storein", 0], 978, 428, [1, 11, 12, null]],
+[11, ["string", "radius"], 1046, 428, [10, null]],
+[12, ["plus2", 0], 1046, 470, [10, 14, 16]],
+[13, "pensize", 1170, 512, [16, null]],
+[14, "box", 1100, 470, [12, 15, null]],
+[15, ["string", "radius"], 1155, 470, [14, null]],
+[16, ["division2", 0], 1100, 512, [12, 13, 17]],
+[17, ["number", 2.0], 1194, 554, [16, null]],
+[18, "hat", 960, 80, [null, 19, 29]],
+[19, ["string", "curl"], 1018, 92, [18, null]],
+[20, "fillscreen2", 299, 268, [71, 21, 23, 22, 24]],
+[21, ["number", 60], 381, 268, [20, null]],
+[22, ["number", 100], 381, 352, [20, null]],
+[23, "black", 381, 310, [20, null]],
+[24, "penup", 299, 394, [20, 36]],
+[25, "pendown", 960, 176, [29, 3]],
+[26, "penup", 960, 530, [8, null]],
+[27, "leftpos", 357, 436, [36, null]],
+[28, "toppos", 357, 478, [36, null]],
+[29, "setcolor", 960, 134, [18, 30, 25]],
+[30, ["random", 0], 1037, 134, [29, 31, 32, null]],
+[31, ["number", 0], 1123, 134, [30, null]],
+[32, ["number", 100], 1123, 176, [30, null]],
+[33, "stack", 18, 268, [59, 34, 57]],
+[34, ["string", "curl"], 76, 268, [33, null]],
+[35, ["setxy2", 40], 580, 134, [55, 46, 53, 54]],
+[36, ["setxy2", 0], 299, 436, [24, 27, 28, 69]],
+[37, ["if", 21], 580, 340, [54, 39, 41, null]],
+[38, "xcor", 692, 306, [39, null]],
+[39, ["greater2", 0], 636, 306, [37, 38, 40, null]],
+[40, "rightpos", 716, 348, [39, null]],
+[41, ["setxy2", 0], 598, 406, [37, 43, 47, null]],
+[42, ["number", 40.0], 807, 532, [48, null]],
+[43, "leftpos", 656, 406, [41, null]],
+[44, "ycor", 729, 448, [47, null]],
+[45, "xcor", 692, 134, [46, null]],
+[46, ["plus2", 0], 638, 134, [35, 45, 51]],
+[47, ["minus2", 0], 656, 448, [41, 44, 48]],
+[48, ["product2", 0], 753, 490, [47, 49, 42]],
+[49, "pensize", 807, 490, [48, null]],
+[50, "pensize", 746, 176, [51, null]],
+[51, ["product2", 0], 692, 176, [46, 50, 52]],
+[52, ["number", 60.0], 746, 218, [51, null]],
+[53, "ycor", 638, 256, [35, null]],
+[54, ["vspace", 0], 580, 298, [35, 37]],
+[55, "hat", 580, 80, [null, 56, 35]],
+[56, ["string", "next position"], 638, 92, [55, null]],
+[57, "stack", 18, 310, [33, 58, 65]],
+[58, ["string", "next position"], 76, 310, [57, null]],
+[59, ["forever", 105], 0, 234, [67, 33, 66]],
+[60, "stopstack", 36, 460, [61, null]],
+[61, ["if", 0], 18, 394, [65, 63, 60, null]],
+[62, "ycor", 130, 360, [63, null]],
+[63, ["less2", 0], 74, 360, [61, 62, 64, null]],
+[64, "bottompos", 154, 402, [63, null]],
+[65, ["vspace", 0], 18, 352, [57, 61]],
+[66, "pendown", 0, 538, [59, null]],
+[67, "hat", 0, 180, [null, 68, 59]],
+[68, ["string", "action"], 58, 192, [67, null]],
+[69, "stack", 299, 520, [36, 70, null]],
+[70, ["string", "action"], 357, 520, [69, null]],
+[71, "setpensize", 299, 226, [0, 72, 20]],
+[72, ["number", 5.0], 401, 226, [71, null]]]
diff --git a/samples/graphics-daimons.tb b/samples/graphics-daimons.tb
new file mode 100644
index 0000000..da6bec8
--- /dev/null
+++ b/samples/graphics-daimons.tb
@@ -0,0 +1,74 @@
+[[0, ["start", 2.0], 47, 205, [null, 1]],
+[1, "fillscreen2", 47, 251, [0, 2, 4, 3, 5]],
+[2, ["number", 0.0], 129, 251, [1, null]],
+[3, ["number", 0.0], 129, 335, [1, null]],
+[4, ["number", 0.0], 129, 293, [1, null]],
+[5, "setcolor", 47, 377, [1, 6, 7]],
+[6, ["number", 75.0], 124, 377, [5, null]],
+[7, "setpensize", 47, 419, [5, 8, 9]],
+[8, ["number", 7.0], 149, 419, [7, null]],
+[9, "stack", 47, 461, [7, 10, null]],
+[10, ["string", "action 1"], 105, 461, [9, null]],
+[11, "hat", 308, 192, [null, 12, 13]],
+[12, ["string", "action 1"], 366, 204, [11, null]],
+[13, ["storein", 0], 308, 246, [11, 14, 15, 19]],
+[14, ["string", "my box 3"], 376, 246, [13, null]],
+[15, ["number", 100], 376, 288, [13, null]],
+[16, "setshade", 326, 414, [21, 17, 25]],
+[17, "box", 411, 414, [16, 18, null]],
+[18, ["string", "my box 3"], 466, 414, [17, null]],
+[19, ["repeat", 126], 308, 330, [13, 20, 21, null]],
+[20, ["number", 70.0], 367, 330, [19, null]],
+[21, "seth", 326, 372, [19, 22, 16]],
+[22, ["number", 0], 425, 372, [21, null]],
+[23, "hat", 784, 76, [null, 24, 38]],
+[24, ["string", "action 2"], 842, 88, [23, null]],
+[25, "stack", 326, 456, [16, 26, 27]],
+[26, ["string", "action 2"], 384, 456, [25, null]],
+[27, "seth", 326, 498, [25, 28, 29]],
+[28, ["number", 180.0], 425, 498, [27, null]],
+[29, "stack", 326, 540, [27, 30, 31]],
+[30, ["string", "action 2"], 384, 540, [29, null]],
+[31, ["storein", 0], 326, 582, [29, 32, 36, null]],
+[32, ["string", "my box 3"], 394, 582, [31, null]],
+[33, ["number", 1.0], 448, 666, [36, null]],
+[34, "box", 448, 624, [36, 35, null]],
+[35, ["string", "my box 3"], 503, 624, [34, null]],
+[36, ["plus2", 0], 394, 624, [31, 34, 33]],
+[37, "right", 784, 298, [41, 44, 46]],
+[38, ["storein", 0], 784, 130, [23, 39, 40, 41]],
+[39, ["string", "my box 1"], 852, 130, [38, null]],
+[40, ["number", 10.0], 852, 172, [38, null]],
+[41, ["storein", 0], 784, 214, [38, 42, 43, 37]],
+[42, ["string", "my box 2"], 852, 214, [41, null]],
+[43, ["number", 200.0], 852, 256, [41, null]],
+[44, "box", 842, 298, [37, 45, null]],
+[45, ["string", "my box 3"], 897, 298, [44, null]],
+[46, "penup", 784, 340, [37, 48]],
+[47, "pendown", 784, 466, [48, 51]],
+[48, ["setxy2", 0], 784, 382, [46, 49, 50, 47]],
+[49, ["number", 0], 842, 382, [48, null]],
+[50, ["number", 0], 842, 424, [48, null]],
+[51, ["repeat", 147], 784, 508, [47, 52, 53, null]],
+[52, ["number", 40.0], 843, 508, [51, null]],
+[53, ["arc", 0], 802, 550, [51, 56, 54, 58]],
+[54, "box", 860, 592, [53, 55, null]],
+[55, ["string", "my box 1"], 915, 592, [54, null]],
+[56, "box", 860, 550, [53, 57, null]],
+[57, ["string", "my box 2"], 915, 550, [56, null]],
+[58, "left", 802, 634, [53, 59, 70]],
+[59, ["number", 100.0], 860, 634, [58, null]],
+[60, ["plus2", 0], 870, 718, [70, 68, 63]],
+[61, ["minus2", 0], 870, 844, [64, 66, 62]],
+[62, ["number", 10.0], 948, 886, [61, null]],
+[63, ["number", 10.0], 924, 760, [60, null]],
+[64, ["storein", 0], 802, 802, [72, 65, 61, null]],
+[65, ["string", "my box 2"], 870, 802, [64, null]],
+[66, "box", 924, 844, [61, 67, null]],
+[67, ["string", "my box 2"], 979, 844, [66, null]],
+[68, "box", 924, 718, [60, 69, null]],
+[69, ["string", "my box 1"], 979, 718, [68, null]],
+[70, ["storein", 0], 802, 676, [58, 71, 60, 72]],
+[71, ["string", "my box 1"], 870, 676, [70, null]],
+[72, ["vspace", 0], 802, 760, [70, 64]]]
+
--
cgit v0.9.1