From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 15:15:26 +0000 (+0000)
Subject: 3 A4 board
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=1c8b7d9d09f16e98c042d8f8cf61c57e782c2115;p=pandemic-rising-tide.git

3 A4 board
---

diff --git a/generate-board b/generate-board
index 7c79f96..07f89d7 100755
--- a/generate-board
+++ b/generate-board
@@ -300,11 +300,32 @@ sub pscolour ($;$) {
 }
 
 sub preamble() {
-  o("%!\n");
-  o(" 0.52 dup scale\n") if $xopts =~ m/S/;
+  my $printeredge = 5 * MM2PT;
+  my $xsz = 842;
+  my $ysz = 3 * 595 - 4 * $printeredge;
+  o(<<END);
+%!PS-Adobe-3.0
+%%BoundingBox 0 0 $xsz $ysz
+%%Pages: 1
+%%EndComments
+%%Page: 1
+%%BeginPageSetup
+/pgsave save def
+%%EndPageSetup
+END
+  #o(" 0.52 dup scale\n") if $xopts =~ m/S/;
+  #o("%%Box 0 0 $xsz $ysz");
   # xxx bodge, want boundingbox or something
 }
 
+sub postamble () {
+  o(<<END);
+pgsave restore
+showpage
+%%EOF
+END
+}
+
 sub facepscolour ($) {
   my ($colourname) = @_;
   $xopts =~ m/W/ ? '1 setgray'
@@ -408,10 +429,6 @@ END
   }
 }
 
-sub postamble () {
-  o("showpage\n");
-}
-
 #----- main program -----
 
 $xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;