From 9b81f41cb3d27ab99686d49a45d1de932f3ff13c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 02:52:38 +0000
Subject: [PATCH] call setpagedevice

---
 generate-board | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 () {
-- 
2.30.2