2013-05-21 03:24:37 +00:00
|
|
|
-- just a helper function to dump the parameters, for debugging
|
2013-05-16 04:20:23 +00:00
|
|
|
function tostr(t)
|
|
|
|
local str = ""
|
|
|
|
for k, v in next, t do
|
2013-05-21 03:24:37 +00:00
|
|
|
if #str > 0 then
|
|
|
|
str = str .. ", "
|
|
|
|
end
|
|
|
|
if type(k) == "number" then
|
|
|
|
str = str .. "[" .. k .. "] = "
|
|
|
|
else
|
|
|
|
str = str .. tostring(k) .. " = "
|
|
|
|
end
|
2013-05-16 04:20:23 +00:00
|
|
|
if type(v) == "table" then
|
2013-05-21 03:24:37 +00:00
|
|
|
str = str .. "{ " .. tostr(v) .. " }"
|
2013-05-16 04:20:23 +00:00
|
|
|
else
|
2013-05-21 03:24:37 +00:00
|
|
|
str = str .. tostring(v)
|
2013-05-16 04:20:23 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
return str
|
|
|
|
end
|
|
|
|
|
2013-05-21 16:05:53 +00:00
|
|
|
local total = {} -- accumulate() stores its data in here
|
|
|
|
local canvas -- holds the current canvas (from startcanvas())
|
2013-05-21 12:20:39 +00:00
|
|
|
|
2013-05-21 16:05:53 +00:00
|
|
|
--[[
|
|
|
|
startcanvas() is called at the start of each picture file, passing the
|
|
|
|
canvas that we will be drawing into, and the name of the file.
|
|
|
|
|
|
|
|
Following this call, there will be some number of calls to accumulate(t)
|
|
|
|
where t is a table of parameters that were passed to that draw-op.
|
|
|
|
|
|
|
|
t.verb is a string holding the name of the draw-op (e.g. "drawRect")
|
|
|
|
|
|
|
|
when a given picture is done, we call endcanvas(canvas, fileName)
|
|
|
|
]]
|
|
|
|
function sk_scrape_startcanvas(c, fileName)
|
2013-05-21 12:20:39 +00:00
|
|
|
canvas = c
|
|
|
|
end
|
2013-05-16 04:20:23 +00:00
|
|
|
|
2013-05-21 16:05:53 +00:00
|
|
|
--[[
|
|
|
|
Called when the current canvas is done drawing.
|
|
|
|
]]
|
|
|
|
function sk_scrape_endcanvas(c, fileName)
|
|
|
|
canvas = nil
|
|
|
|
end
|
|
|
|
|
|
|
|
--[[
|
|
|
|
Called with the parameters to each canvas.draw call, where canvas is the
|
|
|
|
current canvas as set by startcanvas()
|
|
|
|
]]
|
|
|
|
function sk_scrape_accumulate(t)
|
2013-05-21 12:20:39 +00:00
|
|
|
local n = total[t.verb] or 0
|
|
|
|
total[t.verb] = n + 1
|
|
|
|
|
2013-05-21 14:19:53 +00:00
|
|
|
if false and t.verb == "drawRect" then
|
2013-05-21 12:20:39 +00:00
|
|
|
local m = canvas:getTotalMatrix()
|
|
|
|
print("... ", tostr(m), "\n")
|
|
|
|
end
|
2013-05-16 04:20:23 +00:00
|
|
|
|
2013-05-21 03:24:37 +00:00
|
|
|
-- enable to dump all of the parameters we were sent
|
|
|
|
if false then
|
|
|
|
-- dump the params in t, specifically showing the verb first, which we
|
|
|
|
-- then nil out so it doesn't appear in tostr()
|
|
|
|
io.write(t.verb, " ")
|
|
|
|
t.verb = nil
|
|
|
|
io.write(tostr(t), "\n")
|
|
|
|
end
|
2013-05-15 19:34:20 +00:00
|
|
|
end
|
2013-05-16 04:20:23 +00:00
|
|
|
|
2013-05-21 16:05:53 +00:00
|
|
|
--[[
|
|
|
|
lua_pictures will call this function after all of the pictures have been
|
|
|
|
"accumulated".
|
|
|
|
]]
|
|
|
|
function sk_scrape_summarize()
|
|
|
|
io.write("\n{ ", tostr(total), " }\n")
|
2013-05-16 04:20:23 +00:00
|
|
|
end
|
|
|
|
|