From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 02:52:38 +0000 (+0000)
Subject: call setpagedevice
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=9b81f41cb3d27ab99686d49a45d1de932f3ff13c;p=pandemic-rising-tide.git

call setpagedevice
---

diff --git a/generate-board b/generate-board
index c862495..c371019 100755
--- a/generate-board
+++ b/generate-board
@@ -368,6 +368,7 @@ sub o_amble (@) {
       
 sub preamble() {
   my $bb = $bb{$bounding}; confess $bounding unless $bb;
+  my $sz = [ $bb->[2] - $bb->[0], $bb->[3] - $bb->[1] ];
   o_amble(<<END);
 &!PS-Adobe-3.0
 &&BoundingBox @$bb
@@ -376,12 +377,12 @@ sub preamble() {
 &&BeginProlog
 &&EndProlog
 &&BeginSetup
+<< /PageSize [ @$sz ] >> setpagedevice
 /board {
   gsave
   34 -15 translate
 END
   # xxx split into pages
-  # xxx setpagedevice
 }
 
 sub postamble () {