From 82a3f08a46abf945948cad21e0408f698d57c7fb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 17:56:50 +0000
Subject: [PATCH] wip text, 8 is wrong because off-by-one

---
 cmyk.ps | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/cmyk.ps b/cmyk.ps
index e74f5e7..e5da487 100644
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -121,6 +121,19 @@
         grestore
       } if
 
+      text_u_p {
+        gsave
+  	  textx 0 translate
+	  0 0 moveto (Y) show ytext show
+
+	  1 1 gm {		/magenta    exch def
+            gm stridox mul  0 moveto
+            digits gm get  show
+          } for
+
+	grestore  
+      } if
+
     grestore
 
 } def
@@ -128,12 +141,10 @@
 /ranges {
 
     0 1 gm {			/yellow  exch def
-        someyellow
 
-    0 setgray
-    0 0 moveto
-    (Y) show
-    yellow (___) cvs show
+        /ytext digits yellow get def
+
+        someyellow
 
     finish_page
     } for
@@ -154,7 +165,7 @@ start_page
 
 /base 16 def
 
-/gm 16 def
+/gm 15 def
 
 /knx 2 def
 /kny 2 def
-- 
2.30.2