From 8241d4bef62b38d4b51c108aa4a7211969d0bc3e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 15:39:58 +0000
Subject: [PATCH] introduce /board

---
 generate-board | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

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
-- 
2.30.2