wip text, 8 is wrong because off-by-one

diff --git a/cmyk.ps b/cmyk.ps
index e74f5e77e04be0fab133e26d14241676a4695345..e5da4873f15e12c546b5ac33d53936cd4bcbc33f 100644 (file)
--- 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