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
&&BeginProlog
&&EndProlog
&&BeginSetup
+<< /PageSize [ @$sz ] >> setpagedevice
/board {
gsave
34 -15 translate
END
# xxx split into pages
- # xxx setpagedevice
}
sub postamble () {