From: ian <ian>
Date: Sun, 13 Jun 2004 21:28:03 +0000 (+0000)
Subject: indices in page corners
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=db440d2053f2a2b0ac0a5c3948f8474c89c66af7;p=trains.git

indices in page corners
---

diff --git a/layout/layout b/layout/layout
index 3730337..7a05e1b 100755
--- a/layout/layout
+++ b/layout/layout
@@ -1285,7 +1285,17 @@ sub cmd__one {
 print
     "%!\n".
     "  /lf /Courier-New findfont $lmu_marktpt scalefont def\n".
-    "  $ps_page_shift 0 translate 90 rotate\n".
+    "  $ps_page_shift 0 translate 90 rotate\n"
+    or die $!;
+
+if ($page_x || $page_y) {
+    print
+	"  /Courier-New findfont 15 scalefont setfont\n".
+	"  30 30 moveto (${page_x}x${page_y}) show\n"
+        or die $!;
+}
+    
+print
     "  -$ps_page_xmul $page_x mul  -$ps_page_ymul $page_y mul  translate\n".
     "  $ptscale $ptscale scale\n"
     or die $!;