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

diff --git a/pumpkin-books.ps b/pumpkin-books.ps
index 25422027202dfd1764a9f2d2d6a49ccfdb4af7e3..7b0aca3083cd77bfe7beac625649c5b59d61aafc 100644 (file)
--- 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