tools/lua/dump_clipstack_at_restore.lua

function sk_scrape_startcanvas(c, fileName)
    canvas = c
    clipstack = {}
    restoreCount = 0
end

function sk_scrape_endcanvas(c, fileName)
    canvas = nil
end

function sk_scrape_accumulate(t)
    if (t.verb == "restore") then
        restoreCount = restoreCount + 1;
        -- io.write("Clip Stack at restore #", restoreCount, ":\n")
        io.write("Reduced Clip Stack at restore #", restoreCount, ":\n")
        for i = 1, #clipstack do
            local element = clipstack[i];
            io.write("\t", element["op"], ", ", element["type"], ", aa:", tostring(element["aa"]))
            if (element["type"] == "path") then
                io.write(", fill: ", element["path"]:getFillType())
                io.write(", segments: \"", element["path"]:getSegmentTypes(), "\"")
                io.write(", convex:", tostring(element["path"]:isConvex()))
            end
            io.write("\n")
        end
        io.write("\n")
    else
        -- clipstack = canvas:getClipStack()
        clipstack = canvas:getReducedClipStack()
    end
end

function sk_scrape_summarize() end