From 82c674fdcf5bcff4ad0dc0936d638fc729145616 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Wed, 6 Jul 2022 22:05:18 +0200
Subject: 2022-07-06 21:35:00

---
 tex/context/modules/mkxl/s-layout-show.mkxl | 30 +++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'tex/context/modules/mkxl/s-layout-show.mkxl')

diff --git a/tex/context/modules/mkxl/s-layout-show.mkxl b/tex/context/modules/mkxl/s-layout-show.mkxl
index 95a6d3371..948b0953f 100644
--- a/tex/context/modules/mkxl/s-layout-show.mkxl
+++ b/tex/context/modules/mkxl/s-layout-show.mkxl
@@ -118,6 +118,36 @@
      \NC inner margin \NC \the\innermarginwidth               \NC \NR
    \stoptabulate}
 
+\permanent\protected\gdef\showcentering
+  {\setupbackgrounds
+     [\v!text]
+     [\c!background=centeringlines]}
+
+\defineoverlay
+  [centeringlines]
+  [\vpack to \d_overlay_height \bgroup
+     \vfill
+     \hpack to \d_overlay_width \bgroup
+        \hss
+        \hskip1cm
+        \dorecurse{15}{%
+            \kern-.25\onepoint
+            \ifodd\recurselevel
+                \darkred
+            \else
+                \darkblue
+            \fi
+            \vrule
+                height.5\d_overlay_height
+                depth .5\d_overlay_height
+                width .5\onepoint
+            \hskip1cm
+        }%
+        \hss
+     \egroup
+     \vfill
+   \egroup]
+
 %D Page grids:
 
 \newconstant\c_page_grids_location
-- 
cgit v1.2.3