From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 17:39:02 +0000 (+0000)
Subject: wip text etc.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=e2a2a947e1ddea380ca1434484d94375fa09b4e4;p=pandemic-rising-tide.git

wip text etc.
---

diff --git a/cmyk.ps b/cmyk.ps
index d359052..057500a 100644
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -31,6 +31,9 @@
 
 % strid = stride
 
+/digits [ (0) (1) (2) (3) (4) (5) (6) (7) (8) (9)
+          (a) (b) (c) (d) (e) (f) ] def
+
 /klist_get {
     klist
         blackx
@@ -40,7 +43,7 @@
 /kentry_moveto {
                 blackx				stridix mul
                  blacky  neg kmy add		stridiy mul
-                 szfy -0.5 mul add
+                 szfy +0.5 mul add
 } def
 
 /someyellow {
@@ -61,19 +64,17 @@
     /szfx  stridix  margix sub  def
     /szfy  stridiy  margiy sub  def
 
-    margin margin translate
-    textx  0      translate
-
     0 1 gm {		/magenta exch def
     0 1 gm {		/cyan    exch def
 
     gsave
+        textx  0      translate
 
         magenta			stridox mul
         cyan    neg gm add	stridoy mul  translate
 
         szfy setlinewidth
-
+ 
         0 1 kmx {	/blackx exch def
         0 1 kmy {	/blacky exch def
 
@@ -111,30 +112,39 @@
     yellow (___) cvs show
 
     finish_page
-
     } for
 
 } def
 
+/start_page {
+    margin margin translate
+} def
+start_page
+
 /finish_page {
     0 setgray
     /Helvetica findfont texty scalefont setfont
     gsave
 
-     margin
-     papery  margin sub texty 2 mul sub  stridoy sub
-      translate
+    0  printareay texty sub translate
+
+    0 0 moveto  (K) show
+
+    gsave
+      0  stridoy neg  translate
       
       0 1 kmx {	/blackx exch def
       0 1 kmy {	/blacky exch def
-        kentry_moveto exch 0.75 mul exch moveto
-        klist_get (__) cvs
+        kentry_moveto exch 0.65 mul exch moveto
+        klist_get digits exch get
         show
       } for
       } for
     grestore
+    grestore
 
     showpage
+    start_page
 } def
 
 /base 16 def
@@ -176,7 +186,6 @@ gsave
  /yellow  ylist yellowix get  def
 
  someyellow
-
 grestore
 
 } for