From 87d26e771fb183272f4bac61ca18f655a0252b47 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 16:39:12 +0000
Subject: [PATCH] centralise dc

---
 pumpkin-books.ps.pl | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 7cb4cbb..a2bbc73 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -76,16 +76,6 @@ sub general_book ($$) { # put in a gsave
   my $o = <<END;
 tw  0  translate
 
-% diagonal conversion
-/dc {                    % xprop yprop
-    dup th mul           % xprop yprop y
-    3 1 roll             % y xprop yprop
-    bdiag mul neg        % y xprop x-margin-at-this-height
-    tw add               % y xprop x-width-at-this-height
-    exch mul             % y x-width-at-this-height xprop
-    exch                 % x y
-} def
-
 3 setlinewidth
 0 0 0 0.2 setcmykcolor
 newpath
@@ -234,6 +224,17 @@ print <<END or die $!;
 /costfont /Heletica-BoldOblique findfont costtextsz scalefont def
 
 /rubysz 4 def
+
+% diagonal conversion
+/dc {                    % xprop yprop
+    dup th mul           % xprop yprop y
+    3 1 roll             % y xprop yprop
+    bdiag mul neg        % y xprop x-margin-at-this-height
+    tw add               % y xprop x-width-at-this-height
+    exch mul             % y x-width-at-this-height xprop
+    exch                 % x y
+} def
+
 END
 
 print tile(
-- 
2.30.2