From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 11:13:10 +0000 (+0100)
Subject: separate adj
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=1d0796c45183ab51b0ea39cadcae1287e34404aa;p=quacks.git

separate adj

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

diff --git a/Quacks.pm b/Quacks.pm
index 7e87280..11cfe13 100644
--- 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 48070fa..fbe71e4 100755
--- 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) = @_;