From 558fe6c00929faf017bb6abcc41ffdee19097452 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Wed, 2 Dec 2020 23:19:16 +0000 Subject: [PATCH] pumpkin-books.ps: wip before change coords --- pumpkin-books.ps | 25 +++++++++++++++++++++++-- 1 file changed, 23 insertions(+), 2 deletions(-) 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 -- 2.30.2