From 0a5f59a9aa25b3de7e9659b39ad201aaf7eb5a67 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Fri, 27 Sep 2019 20:24:34 +0200
Subject: 2019-09-27 18:10:00

---
 tex/context/base/mkiv/back-ini.lua | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'tex/context/base/mkiv/back-ini.lua')

diff --git a/tex/context/base/mkiv/back-ini.lua b/tex/context/base/mkiv/back-ini.lua
index bc4a67bc0..b0af61edc 100644
--- a/tex/context/base/mkiv/back-ini.lua
+++ b/tex/context/base/mkiv/back-ini.lua
@@ -182,6 +182,29 @@ implement {
     end
 }
 
+
+local page_x_origin = 0
+local page_y_origin = 0
+
+function codeinjections.setpageorigin(x,y)
+    page_x_origin = x
+    page_y_origin = y
+end
+
+function codeinjections.getpageorigin()
+    local x = page_x_origin
+    local y = page_y_origin
+    page_x_origin = 0
+    page_y_origin = 0
+    return x, y, (x ~= 0 or y ~= 0)
+end
+
+implement {
+    name      = "setpageorigin",
+    arguments = { "dimension", "dimension" },
+    actions   = codeinjections.setpageorigin,
+}
+
 -- could also be codeinjections
 
 function backends.noflatelua()
-- 
cgit v1.2.3