From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 2 Dec 2020 23:19:16 +0000 (+0000)
Subject: pumpkin-books.ps: wip before change coords
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=558fe6c00929faf017bb6abcc41ffdee19097452;p=quacks.git

pumpkin-books.ps: wip before change coords
---

diff --git a/pumpkin-books.ps b/pumpkin-books.ps
index a0bb403..c8102a7 100644
--- a/pumpkin-books.ps
+++ b/pumpkin-books.ps
@@ -9,7 +9,16 @@
 /th 73 def
 /bdiag 5 def
 
-/prop 
+/diagconv {                    % xprop(-1..+1) yprop(0..1)
+    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                       % y x-width-at-this-height xprop
+    1 add 0.5 mul             % y x-width-at-this-height xprop-adj(0..1)
+    mul                        % y x
+    exch                       % x y
+} def
 
 0 0 moveto
 tw 0 lineto
@@ -17,4 +26,16 @@ tw bdiag sub th lineto
 bdiag th lineto
 closepath stroke
 
-%tw 2 div move
+tw 0.5 mul 0 moveto
+0 th rlineto stroke
+
+/thirddivline {               % xprop
+  dup 3 div  0        diagconv moveto
+      3 div  0.8      diagconv lineto stroke
+                              %
+} def
+
+0.1 thirddivline
+1 thirddivline
+2 thirddivline
+2.9 thirddivline