From 1c8b7d9d09f16e98c042d8f8cf61c57e782c2115 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 15:15:26 +0000
Subject: [PATCH] 3 A4 board

---
 generate-board | 29 +++++++++++++++++++++++------
 1 file changed, 23 insertions(+), 6 deletions(-)

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