From 1d0796c45183ab51b0ea39cadcae1287e34404aa Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 12:13:10 +0100
Subject: [PATCH] separate adj

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 Quacks.pm           | 7 +++++--
 pumpkin-books.ps.pl | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

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) = @_;
-- 
2.30.2