OLD | NEW |
1 -- just a helper function to dump the parameters, for debugging | 1 -- just a helper function to dump the parameters, for debugging |
2 function tostr(t) | 2 function tostr(t) |
3 local str = "" | 3 local str = "" |
4 for k, v in next, t do | 4 for k, v in next, t do |
5 if #str > 0 then | 5 if #str > 0 then |
6 str = str .. ", " | 6 str = str .. ", " |
7 end | 7 end |
8 if type(k) == "number" then | 8 if type(k) == "number" then |
9 str = str .. "[" .. k .. "] = " | 9 str = str .. "[" .. k .. "] = " |
10 else | 10 else |
11 str = str .. tostring(k) .. " = " | 11 str = str .. tostring(k) .. " = " |
12 end | 12 end |
13 if type(v) == "table" then | 13 if type(v) == "table" then |
14 str = str .. "{ " .. tostr(v) .. " }" | 14 str = str .. "{ " .. tostr(v) .. " }" |
15 else | 15 else |
16 str = str .. tostring(v) | 16 str = str .. tostring(v) |
17 end | 17 end |
18 end | 18 end |
19 return str | 19 return str |
20 end | 20 end |
21 | 21 |
22 total = {} | 22 local total = {} -- accumulate() stores its data in here |
| 23 local canvas -- holds the current canvas (from startcanvas()) |
23 | 24 |
24 function setcanvas(c) | 25 --[[ |
| 26 startcanvas() is called at the start of each picture file, passing the |
| 27 canvas that we will be drawing into, and the name of the file. |
| 28 |
| 29 Following this call, there will be some number of calls to accumulate(t) |
| 30 where t is a table of parameters that were passed to that draw-op. |
| 31 |
| 32 t.verb is a string holding the name of the draw-op (e.g. "drawRect") |
| 33 |
| 34 when a given picture is done, we call endcanvas(canvas, fileName) |
| 35 ]] |
| 36 function sk_scrape_startcanvas(c, fileName) |
25 canvas = c | 37 canvas = c |
26 end | 38 end |
27 | 39 |
28 -- called with the parameters to each canvas.draw call | 40 --[[ |
29 function accumulate(t) | 41 Called when the current canvas is done drawing. |
| 42 ]] |
| 43 function sk_scrape_endcanvas(c, fileName) |
| 44 canvas = nil |
| 45 end |
| 46 |
| 47 --[[ |
| 48 Called with the parameters to each canvas.draw call, where canvas is the |
| 49 current canvas as set by startcanvas() |
| 50 ]] |
| 51 function sk_scrape_accumulate(t) |
30 local n = total[t.verb] or 0 | 52 local n = total[t.verb] or 0 |
31 total[t.verb] = n + 1 | 53 total[t.verb] = n + 1 |
32 | 54 |
33 if false and t.verb == "drawRect" then | 55 if false and t.verb == "drawRect" then |
34 local m = canvas:getTotalMatrix() | 56 local m = canvas:getTotalMatrix() |
35 print("... ", tostr(m), "\n") | 57 print("... ", tostr(m), "\n") |
36 end | 58 end |
37 | 59 |
38 -- enable to dump all of the parameters we were sent | 60 -- enable to dump all of the parameters we were sent |
39 if false then | 61 if false then |
40 -- dump the params in t, specifically showing the verb first, which we | 62 -- dump the params in t, specifically showing the verb first, which we |
41 -- then nil out so it doesn't appear in tostr() | 63 -- then nil out so it doesn't appear in tostr() |
42 io.write(t.verb, " ") | 64 io.write(t.verb, " ") |
43 t.verb = nil | 65 t.verb = nil |
44 io.write(tostr(t), "\n") | 66 io.write(tostr(t), "\n") |
45 end | 67 end |
46 end | 68 end |
47 | 69 |
48 -- lua_pictures will call this function after all of the files have been | 70 --[[ |
49 -- "accumulated" | 71 lua_pictures will call this function after all of the pictures have been |
50 function summarize() | 72 "accumulated". |
51 io.write("\n", tostr(total), "\n") | 73 ]] |
| 74 function sk_scrape_summarize() |
| 75 io.write("\n{ ", tostr(total), " }\n") |
52 end | 76 end |
53 | 77 |
OLD | NEW |