call setpagedevice

diff --git a/generate-board b/generate-board
index c86249562de964ce15756a1d8c19aacc67a1e246..c371019af8e042bf8e20d616381e22653521f38c 100755 (executable)
--- 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 () {