separate adj

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/Quacks.pm b/Quacks.pm
index 7e872806cc2cf2dad7501b7f6b7f06e87e43947f..11cfe1356bf814cecd6c23062e0de6e49c262551 100644 (file)
--- a/Quacks.pm
+++ b/Quacks.pm
@@ -65,12 +65,15 @@ sub arrow_any ($) { <<END;
 END
 };
 
-sub ps_start () {
+sub ps_start (;$) {
+  my ($adj) = @_;
+  $adj //= '';
+
   $page_pre = <<END;
 72 25.4 div dup scale
 %210 0 translate
 %90 rotate
-7 30 translate
+$adj
 END
 
   $ps_framing .= <<END;

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 48070fa7f1253875a4caf45c77b34bc3e339e837..fbe71e43b00143a58030581d355d94e7fe9d1fc2 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -588,7 +588,7 @@ END
 
   $o;
 }
-ps_start();
+ps_start('7 30 translate');
 
 sub def_image ($$) {
   my ($ncomps, $name) = @_;