Web   ·   Wiki   ·   Activities   ·   Blog   ·   Lists   ·   Chat   ·   Meeting   ·   Bugs   ·   Git   ·   Translate   ·   Archive   ·   People   ·   Donate
summaryrefslogtreecommitdiffstats
path: root/samples/fractions.ta
diff options
context:
space:
mode:
authorWalter Bender <walter.bender@gmail.com>2011-07-13 11:33:40 (GMT)
committer Walter Bender <walter.bender@gmail.com>2011-07-13 11:33:40 (GMT)
commite2ff892ef5bcca7fabbebd621ab3043af1ab4492 (patch)
tree04d94dbbb6a72fb62f9e3a0d8934408a9812ad47 /samples/fractions.ta
parent393fcf40dd2585407685132ab1851f5ae81d91c8 (diff)
new fractions example
Diffstat (limited to 'samples/fractions.ta')
-rw-r--r--samples/fractions.ta119
1 files changed, 119 insertions, 0 deletions
diff --git a/samples/fractions.ta b/samples/fractions.ta
new file mode 100644
index 0000000..5578f5c
--- /dev/null
+++ b/samples/fractions.ta
@@ -0,0 +1,119 @@
+[[0, ["start", 2.0], 19, 117, [null, 1]],
+[1, ["storein", 0], 19, 159, [0, 2, 3, 4]],
+[2, ["string", "denom"], 115, 159, [1, null]],
+[3, ["number", 7.0], 115, 201, [1, null]],
+[4, ["storein", 0], 19, 243, [1, 5, 6, 7]],
+[5, ["string", "num"], 115, 243, [4, null]],
+[6, ["number", 3], 115, 285, [4, null]],
+[7, "stack", 19, 327, [4, 8, 80]],
+[8, ["string", "setup"], 80, 327, [7, null]],
+[9, "hat", 671, 501, [null, 10, 11]],
+[10, ["string", "setup"], 732, 509, [9, null]],
+[11, "clean", 671, 551, [9, 110]],
+[12, "hat", 305, 540, [null, 13, 117]],
+[13, ["string", "print"], 366, 548, [12, null]],
+[14, "penup", 305, 632, [117, 98]],
+[15, "show", 305, 800, [97, 17, null]],
+[16, ["string", " / "], 484, 842, [18, null]],
+[17, ["plus2", 0], 376, 800, [15, 19, 18]],
+[18, ["plus2", 0], 430, 842, [17, 16, 21]],
+[19, "box", 430, 800, [17, 20, null]],
+[20, ["string", "num"], 489, 800, [19, null]],
+[21, "box", 484, 884, [18, 22, null]],
+[22, ["string", "denom"], 543, 884, [21, null]],
+[23, "startfill", 677, 184, [64, 68]],
+[24, "stopfill", 677, 268, [68, 58]],
+[25, "hat", 1040, 4, [null, 26, 27]],
+[26, ["string", "slice"], 1101, 12, [25, null]],
+[27, "forward", 1040, 54, [25, 31, 33]],
+[28, ["storein", 0], 671, 719, [94, 29, 30, null]],
+[29, ["string", "radius"], 767, 719, [28, null]],
+[30, ["number", 200.0], 767, 761, [28, null]],
+[31, "box", 1120, 54, [27, 32, null]],
+[32, ["string", "radius"], 1179, 54, [31, null]],
+[33, "right", 1040, 96, [27, 34, 115]],
+[34, ["number", 90], 1114, 96, [33, null]],
+[35, "repeat", 1040, 180, [115, 45, 107, 37]],
+[36, ["number", 3600.0], 1199, 180, [38, null]],
+[37, ["vspace", 100], 1040, 258, [35, 46]],
+[38, ["division2", 0], 1145, 180, [45, 36, 39]],
+[39, "box", 1223, 222, [38, 40, null]],
+[40, ["string", "denom"], 1282, 222, [39, null]],
+[41, "forward", 1105, 324, [108, 51, 106]],
+[42, ["number", 3600.0], 1263, 406, [51, null]],
+[43, "right", 1105, 448, [106, 44, null]],
+[44, ["number", 0.1], 1179, 448, [43, null]],
+[45, ["identity2", 0], 1091, 180, [35, 38]],
+[46, "right", 1040, 500, [37, 47, 48]],
+[47, ["number", 90], 1114, 500, [46, null]],
+[48, "forward", 1040, 542, [46, 49, 56]],
+[49, "box", 1120, 542, [48, 50, null]],
+[50, ["string", "radius"], 1179, 542, [49, null]],
+[51, ["division2", 20], 1185, 324, [41, 54, 42]],
+[52, "box", 1293, 324, [54, 53, null]],
+[53, ["string", "radius"], 1352, 324, [52, null]],
+[54, ["product2", 0], 1239, 324, [51, 52, 55]],
+[55, ["number", 6.283], 1293, 366, [54, null]],
+[56, "right", 1040, 584, [48, 57, null]],
+[57, ["number", 180.0], 1114, 584, [56, null]],
+[58, "left", 677, 310, [24, 60, 63]],
+[59, ["number", 360.0], 813, 310, [60, null]],
+[60, ["division2", 0], 759, 310, [58, 59, 61]],
+[61, "box", 837, 352, [60, 62, null]],
+[62, ["string", "denom"], 896, 352, [61, null]],
+[63, ["vspace", 0], 677, 352, [58, 66]],
+[64, "setgray", 677, 142, [112, 65, 23]],
+[65, ["number", 100.0], 803, 142, [64, null]],
+[66, "setgray", 677, 394, [63, 67, 70]],
+[67, ["number", 0.0], 803, 394, [66, null]],
+[68, "stack", 677, 226, [23, 69, 24]],
+[69, ["string", "slice"], 738, 226, [68, null]],
+[70, "stack", 677, 436, [66, 71, null]],
+[71, ["string", "slice"], 738, 436, [70, null]],
+[72, "hat", 677, 8, [null, 73, 112]],
+[73, ["string", "fancy slice"], 738, 16, [72, null]],
+[74, "repeat", 19, 613, [78, 84, 90, 105]],
+[75, ["vspace", 20], 19, 489, [76, 78]],
+[76, "repeat", 19, 411, [80, 89, 77, 75]],
+[77, ["vspace", 0], 84, 471, [76, 92]],
+[78, "setcolor", 19, 571, [75, 79, 74]],
+[79, "red", 104, 571, [78, null]],
+[80, "setcolor", 19, 369, [7, 81, 76]],
+[81, "blue", 104, 369, [80, null]],
+[82, "box", 202, 453, [88, 83, null]],
+[83, ["string", "num"], 261, 453, [82, null]],
+[84, "box", 70, 613, [74, 85, null]],
+[85, ["string", "num"], 129, 613, [84, null]],
+[86, "box", 178, 411, [88, 87, null]],
+[87, ["string", "denom"], 237, 411, [86, null]],
+[88, ["minus2", 0], 124, 411, [89, 86, 82]],
+[89, ["identity2", 0], 70, 411, [76, 88]],
+[90, "stack", 84, 673, [74, 91, null]],
+[91, ["string", "fancy slice"], 145, 673, [90, null]],
+[92, "stack", 84, 513, [77, 93, null]],
+[93, ["string", "fancy slice"], 145, 513, [92, null]],
+[94, ["fillscreen", 0], 671, 635, [110, 96, 95, 28]],
+[95, ["number", 80], 810, 677, [94, null]],
+[96, "white", 810, 635, [94, null]],
+[97, "pendown", 305, 758, [98, 15]],
+[98, ["setxy2", 0], 305, 674, [14, 99, 101, 97]],
+[99, "box", 369, 674, [98, 100, null]],
+[100, ["string", "radius"], 428, 674, [99, null]],
+[101, "box", 369, 716, [98, 102, null]],
+[102, ["string", "radius"], 428, 716, [101, null]],
+[103, "stack", 19, 733, [105, 104, null]],
+[104, ["string", "print"], 80, 733, [103, null]],
+[105, ["vspace", 0], 19, 691, [74, 103]],
+[106, ["vspace", 20], 1105, 366, [41, 43]],
+[107, ["vspace", 0], 1105, 240, [35, 108]],
+[108, "comment", 1105, 282, [107, 109, 41]],
+[109, ["string", "circumfrence/360"], 1191, 282, [108, null]],
+[110, "setpensize", 671, 593, [11, 111, 94]],
+[111, ["number", 5.0], 779, 593, [110, null]],
+[112, ["setxy2", 0], 677, 58, [72, 113, 114, 64]],
+[113, ["number", 0], 741, 58, [112, null]],
+[114, ["number", 0], 741, 100, [112, null]],
+[115, "comment", 1040, 138, [33, 116, 35]],
+[116, ["string", "higher precision"], 1126, 138, [115, null]],
+[117, "setscale", 305, 590, [12, 118, 14]],
+[118, ["number", 100.0], 402, 590, [117, null]]]