From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 00:08:29 +0000 (+0000)
Subject: pumpkin-books.ps: wip before maybe change to generator
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=374ae7841a39b8c9b23a8f932f771e5727a35f64;p=quacks.git

pumpkin-books.ps: wip before maybe change to generator
---

diff --git a/pumpkin-books.ps b/pumpkin-books.ps
index 2542202..7b0aca3 100644
--- a/pumpkin-books.ps
+++ b/pumpkin-books.ps
@@ -2,12 +2,20 @@
 
 72 25.4 div dup scale
 
-0 0 0 setrgbcolor
+0 0 0 1 setcmykcolor
 1 setlinewidth
 
 /tw 57.5 def
 /th 73 def
 /bdiag 5 def
+/thirdlineh 0.45 def
+/costcirch 0.3 def
+/chip 15 def
+/spot 3.5 def
+
+
+/thiscolour { 1 0 1 0 setcmykcolor } def
+/spotcolour { 0 0 0 0 setcmykcolor } def
 
 tw  0  translate
 
@@ -34,12 +42,30 @@ newpath
 
 /thirddivline {               % xprop
   newpath
-  dup 3 div  0        dc moveto
-      3 div  0.4      dc lineto stroke
+  dup -3 div  0               dc moveto
+      -3 div  thirdlineh      dc lineto stroke
                               %
 } def
 
-0.1 thirddivline
 1 thirddivline
 2 thirddivline
-2.9 thirddivline
+
+newpath
+-1 thirdlineh dc moveto
+0 thirdlineh dc lineto stroke
+
+/token {
+    % 
+}
+
+gsave
+  -1 6 div costcirch dc translate
+
+  1 0 1 0 setcmykcolor
+  newpath
+  0 0 chip 0.5 mul 0 360 arc fill
+
+  0 0 0 0 setcmykcolor
+  newpath
+  0 0 spot 0.5 mul 0 360 arc fill
+grestore