From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 15:39:58 +0000 (+0000)
Subject: introduce /board
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=8241d4bef62b38d4b51c108aa4a7211969d0bc3e;p=pandemic-rising-tide.git

introduce /board
---

diff --git a/generate-board b/generate-board
index 9873df7..8171138 100755
--- a/generate-board
+++ b/generate-board
@@ -311,12 +311,9 @@ sub preamble() {
 %%BeginProlog
 %%EndProlog
 %%BeginSetup
-%%EndSetup
-%%Page: 1
-%%BeginPageSetup
-/pgsave save def
-%%EndPageSetup
-40 0 translate
+/board {
+  gsave
+  40 0 translate
 END
   #o(" 0.52 dup scale\n") if $xopts =~ m/S/;
   #o("%%Box 0 0 $xsz $ysz");
@@ -325,6 +322,14 @@ END
 
 sub postamble () {
   o(<<END);
+  grestore
+} bind def
+%%EndSetup
+%%Page: 1
+%%BeginPageSetup
+/pgsave save def
+%%EndPageSetup
+board
 pgsave restore
 showpage
 %%EOF