Add getReducedClipStack to lua canvas

tools/lua/dump_clipstack_at_restore.lua

Index: tools/lua/dump_clipstack_at_restore.lua
diff --git a/tools/lua/dump_clipstack_at_restore.lua b/tools/lua/dump_clipstack_at_restore.lua
index 4691b5b250720fd6c906b3b9958cda7c14d3d8e9..eb5afb9bdba91ca8c5617d6317174224f2a75f7d 100644
--- a/tools/lua/dump_clipstack_at_restore.lua
+++ b/tools/lua/dump_clipstack_at_restore.lua
@@ -11,7 +11,8 @@ end
 function sk_scrape_accumulate(t)
     if (t.verb == "restore") then
         restoreCount = restoreCount + 1;
-        io.write("Clip Stack at restore #", restoreCount, ":\n")
+        -- 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"]))
@@ -24,7 +25,8 @@ function sk_scrape_accumulate(t)
         end
         io.write("\n")
     else
-        clipstack = canvas:getClipStack()
+        -- clipstack = canvas:getClipStack()
+        clipstack = canvas:getReducedClipStack()
     end
 end