more samples from turtleart.org

1 files changed, 74 insertions, 0 deletions

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]]]
+