From 5fcdbdcf0bf2b2bea0f8f53c42bb0cfb6c8e43db Mon Sep 17 00:00:00 2001
From: Walter Bender <walter.bender@gmail.com>
Date: Wed, 13 Mar 2013 18:39:39 +0000
Subject: new sample programs

---
(limited to 'samples')

diff --git a/samples/math-heart-animation.tb b/samples/math-heart-animation.tb
new file mode 100644
index 0000000..07117c9
--- /dev/null
+++ b/samples/math-heart-animation.tb
@@ -0,0 +1,84 @@
+[[0, ["start", 2.0], 660, 160, [null, 83]],
+[1, ["setxy2", 0], 380, 214, [52, 44, 45, 10]],
+[2, "penup", 660, 248, [83, 49]],
+[3, "pendown", 40, 256, [39, null]],
+[4, "penup", 416, 592, [5, 82]],
+[5, "forward", 416, 550, [27, 81, 4]],
+[6, ["repeat", 105], 398, 382, [57, 58, 61, 7]],
+[7, ["setxy2", 20], 398, 694, [6, 9, 48, null]],
+[8, "xcor", 510, 694, [9, null]],
+[9, ["plus2", 0], 456, 694, [7, 8, 62]],
+[10, ["repeat", 218], 380, 298, [1, 54, 57, null]],
+[11, ["storein", 0], 40, 626, [38, 12, 19, null]],
+[12, ["string", "result"], 107, 626, [11, null]],
+[13, "hat", 40, 320, [null, 14, 29]],
+[14, ["string", "calculate"], 98, 332, [13, null]],
+[15, "stack", 416, 466, [61, 16, 27]],
+[16, ["string", "calculate"], 474, 466, [15, null]],
+[17, "xcor", 177, 416, [21, null]],
+[18, "ycor", 177, 542, [23, null]],
+[19, ["myfunc2arg", 0], 107, 668, [11, 20, 31, 35, null]],
+[20, ["string", "x**2 + (y - (x**2)**(1/3.))**2"], 187, 668, [19, null]],
+[21, ["division2", 0], 107, 416, [29, 17, 22]],
+[22, ["number", 100], 201, 458, [21, null]],
+[23, ["division2", 0], 107, 542, [33, 18, 24]],
+[24, ["number", 100], 201, 584, [23, null]],
+[25, "hat", 40, 160, [null, 26, 39]],
+[26, ["string", "test"], 98, 172, [25, null]],
+[27, "stack", 416, 508, [15, 28, 5]],
+[28, ["string", "test"], 474, 508, [27, null]],
+[29, ["storein", 0], 40, 374, [13, 30, 21, 37]],
+[30, ["string", "x"], 107, 374, [29, null]],
+[31, "box", 187, 710, [19, 32, null]],
+[32, ["string", "x"], 241, 710, [31, null]],
+[33, ["storein", 0], 40, 500, [37, 34, 23, 38]],
+[34, ["string", "y"], 107, 500, [33, null]],
+[35, "box", 187, 752, [19, 36, null]],
+[36, ["string", "y"], 241, 752, [35, null]],
+[37, ["vspace", 0], 40, 458, [29, 33]],
+[38, ["vspace", 0], 40, 584, [33, 11]],
+[39, "setcolor", 40, 214, [25, 41, 3]],
+[40, ["number", 100.0], 171, 256, [41, null]],
+[41, ["product2", 0], 117, 214, [39, 42, 40]],
+[42, "box", 171, 214, [41, 43, null]],
+[43, ["string", "result"], 225, 214, [42, null]],
+[44, "leftpos", 438, 214, [1, null]],
+[45, "bottompos", 438, 256, [1, null]],
+[46, "width", 508, 298, [54, null]],
+[47, "height", 526, 382, [58, null]],
+[48, "bottompos", 456, 776, [7, null]],
+[49, ["storein", 0], 660, 290, [2, 50, 51, 66]],
+[50, ["string", "scale"], 727, 290, [49, null]],
+[51, ["number", 105.0], 727, 332, [49, null]],
+[52, "hat", 380, 160, [null, 53, 1]],
+[53, ["string", "heart"], 438, 172, [52, null]],
+[54, ["division2", 0], 438, 298, [10, 46, 55]],
+[55, "box", 532, 340, [54, 56, null]],
+[56, ["string", "scale"], 586, 340, [55, null]],
+[57, ["vspace", 0], 398, 340, [10, 6]],
+[58, ["division2", 0], 456, 382, [6, 47, 59]],
+[59, "box", 550, 424, [58, 60, null]],
+[60, ["string", "scale"], 604, 424, [59, null]],
+[61, ["vspace", 0], 416, 424, [6, 15]],
+[62, "box", 510, 736, [9, 63, null]],
+[63, ["string", "scale"], 564, 736, [62, null]],
+[64, "stack", 678, 458, [74, 65, 68]],
+[65, ["string", "heart"], 736, 458, [64, null]],
+[66, ["repeat", 63], 660, 374, [49, 67, 74, null]],
+[67, ["number", 11.0], 718, 374, [66, null]],
+[68, ["storein", 0], 678, 500, [64, 69, 73, null]],
+[69, ["string", "scale"], 745, 500, [68, null]],
+[70, ["number", 10.0], 842, 584, [73, null]],
+[71, "box", 818, 542, [73, 72, null]],
+[72, ["string", "scale"], 872, 542, [71, null]],
+[73, ["minus2", 0], 745, 542, [68, 71, 70]],
+[74, "setpensize", 678, 416, [66, 75, 64]],
+[75, "box", 780, 416, [74, 76, null]],
+[76, ["string", "scale"], 834, 416, [75, null]],
+[77, ["minus2", 0], 486, 634, [82, 79, 78]],
+[78, ["number", 1.0], 583, 676, [77, null]],
+[79, "box", 559, 634, [77, 80, null]],
+[80, ["string", "scale"], 613, 634, [79, null]],
+[81, ["number", 1.0], 486, 550, [5, null]],
+[82, "forward", 416, 634, [4, 77, null]],
+[83, "clean", 660, 206, [0, 2]]]
diff --git a/samples/math-heart.tb b/samples/math-heart.tb
new file mode 100644
index 0000000..030a99e
--- /dev/null
+++ b/samples/math-heart.tb
@@ -0,0 +1,57 @@
+[[0, ["start", 2.0], 640, 77, [null, 4]],
+[1, ["setxy2", 0], 640, 165, [4, 2, 3, 17]],
+[2, ["number", -110.0], 698, 165, [1, null]],
+[3, ["number", -100.0], 698, 207, [1, null]],
+[4, "penup", 640, 123, [0, 1]],
+[5, ["if", 0], 9, 360, [30, 21, 6, null]],
+[6, "pendown", 27, 426, [5, null]],
+[7, "penup", 676, 459, [8, null]],
+[8, "forward", 676, 417, [45, 9, 7]],
+[9, ["number", 1.0], 746, 417, [8, null]],
+[10, ["repeat", 63], 658, 291, [17, 11, 33, 12]],
+[11, ["number", 300.0], 716, 291, [10, null]],
+[12, ["setxy2", 20], 658, 519, [10, 16, 14, null]],
+[13, "xcor", 770, 519, [16, null]],
+[14, ["number", -100.0], 716, 601, [12, null]],
+[15, ["number", 1.0], 770, 561, [16, null]],
+[16, ["plus2", 0], 716, 519, [12, 13, 15]],
+[17, ["repeat", 155], 640, 249, [1, 18, 10, null]],
+[18, ["number", 220.0], 698, 249, [17, null]],
+[19, ["less2", 0], 121, 236, [21, 24, 28, null]],
+[20, ["greater2", 0], 121, 318, [21, 26, 29, null]],
+[21, ["and2", 0], 65, 278, [5, 19, 20]],
+[22, ["storein", 0], 143, 723, [56, 23, 37, null]],
+[23, ["string", "result"], 210, 723, [22, null]],
+[24, "box", 177, 236, [19, 25, null]],
+[25, ["string", "result"], 231, 236, [24, null]],
+[26, "box", 177, 318, [20, 27, null]],
+[27, ["string", "result"], 231, 318, [26, null]],
+[28, ["number", 1.1], 201, 278, [19, null]],
+[29, ["number", 0.9], 201, 360, [20, null]],
+[30, ["vspace", 40], 9, 238, [43, 5]],
+[31, "hat", 143, 417, [null, 32, 47]],
+[32, ["string", "calculate"], 201, 429, [31, null]],
+[33, "stack", 676, 333, [10, 34, 45]],
+[34, ["string", "calculate"], 734, 333, [33, null]],
+[35, "xcor", 280, 513, [39, null]],
+[36, "ycor", 280, 639, [41, null]],
+[37, ["myfunc2arg", 0], 210, 765, [22, 38, 49, 53, null]],
+[38, ["string", "x**2 + (y - (x**2)**(1/3.))**2"], 290, 765, [37, null]],
+[39, ["division2", 0], 210, 513, [47, 35, 40]],
+[40, ["number", 100], 304, 555, [39, null]],
+[41, ["division2", 0], 210, 639, [51, 36, 42]],
+[42, ["number", 100], 304, 681, [41, null]],
+[43, "hat", 9, 184, [null, 44, 30]],
+[44, ["string", "test"], 67, 196, [43, null]],
+[45, "stack", 676, 375, [33, 46, 8]],
+[46, ["string", "test"], 734, 375, [45, null]],
+[47, ["storein", 0], 143, 471, [31, 48, 39, 55]],
+[48, ["string", "x"], 210, 471, [47, null]],
+[49, "box", 290, 807, [37, 50, null]],
+[50, ["string", "x"], 344, 807, [49, null]],
+[51, ["storein", 0], 143, 597, [55, 52, 41, 56]],
+[52, ["string", "y"], 210, 597, [51, null]],
+[53, "box", 290, 849, [37, 54, null]],
+[54, ["string", "y"], 344, 849, [53, null]],
+[55, ["vspace", 0], 143, 555, [47, 51]],
+[56, ["vspace", 0], 143, 681, [51, 22]]]
--
cgit v0.9.1