From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 16:39:12 +0000 (+0000)
Subject: centralise dc
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=87d26e771fb183272f4bac61ca18f655a0252b47;p=quacks.git

centralise dc
---

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(