introduce /board

diff --git a/generate-board b/generate-board
index 9873df702bf529fae26235f67922b38e36bccc5e..8171138e83b68343dbed512a2809b75ecd7fee23 100755 (executable)
--- 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