From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2022 11:12:03 +0000 (+0100)
Subject: reorg so we can make different adj
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=fc60aee188de357d4aedfec7de84022490e2b24c;p=quacks.git

reorg so we can make different adj

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

diff --git a/Quacks.pm b/Quacks.pm
index 9583c9b..7e87280 100644
--- a/Quacks.pm
+++ b/Quacks.pm
@@ -15,7 +15,7 @@ our @EXPORT = qw(
 
  $ps_framing
 
- $page_pre ps_head
+ $page_pre ps_start
 
  arrow_any
 
@@ -49,12 +49,7 @@ sub colour ($) {
 our $anychip = ['0.8', '0'];
 our $black = colour('0');
 
-our $page_pre = <<END;
-72 25.4 div dup scale
-%210 0 translate
-%90 rotate
-7 30 translate
-END
+our $page_pre;
 
 our $ps_framing = '';
 
@@ -70,7 +65,14 @@ sub arrow_any ($) { <<END;
 END
 };
 
-sub ps_head () {
+sub ps_start () {
+  $page_pre = <<END;
+72 25.4 div dup scale
+%210 0 translate
+%90 rotate
+7 30 translate
+END
+
   $ps_framing .= <<END;
 %!
 
diff --git a/overflow-tube.ps.pl b/overflow-tube.ps.pl
index 1887bd5..23b30eb 100755
--- a/overflow-tube.ps.pl
+++ b/overflow-tube.ps.pl
@@ -8,7 +8,7 @@ use strict;
 BEGIN { unshift @INC, '.'; }
 use Quacks;
 
-ps_head();
+ps_start();
 
 sub o {
   local $_;
diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 377bb7b..48070fa 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -588,7 +588,7 @@ END
 
   $o;
 }
-ps_head();
+ps_start();
 
 sub def_image ($$) {
   my ($ncomps, $name) = @_;