From 25f59e988c26cbdc83ecd8a678be8176758e00b6 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 5 Mar 2019 17:45:28 +0000
Subject: [PATCH] cmky seems good

---
 cmyk.ps | 27 +++++++++++----------------
 1 file changed, 11 insertions(+), 16 deletions(-)

diff --git a/cmyk.ps b/cmyk.ps
index 18d23fa..5bfbcb3 100644
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -18,13 +18,8 @@
 %          horiz M     } M-C-K grid
 %            vert' C   } M-C-K grid
 
-% OLD
-%   16^3 x    0 .. 3       1 Y per page
-%    8^3 x    4 .. 7       4 Y per page      8 = 0 2 4 6 8 10 12 15
-%             8 10 13 15
-
 /debug false def
-/debug true def
+%/debug true def
 
 /paperx 595 def
 /papery 842 def
@@ -42,14 +37,13 @@
 
 % o = outer, i = inner, f = final
 
-/margox 5 def
-/margoy 5 def
+/margox 2 def
+/margoy 2 def
 
 /margix 2 def
 /margiy 2 def
 
-/margbx 10 def
-/margby 10 def
+/margby 2 def
 
 % strid = stride
 
@@ -78,7 +72,7 @@
 } def 
 
 /cmy_xy2val {
-    maxval gm div mul round cvi
+    maxval gm div  mul  round cvi
 } def
 
 /someyellow {
@@ -109,9 +103,9 @@
         szfy setlinewidth
         kentry_x kentry_y translate
 
-        	cyany		gn div
-                 magentax	gn div
-                 yellowval	gn div
+        	cyany		gm div
+                 magentax	gm div
+                 yellowval	maxval div
  	         klist_get maxval div
  { 4 copy } ifdebug
 
@@ -257,10 +251,11 @@ ranges
     } if
 } def
 /text_ul {
-    text_yellow
 } def
 /text_l {
-    0 texty 0.5 mul rmoveto text_cyan
+    0 texty 0.5 mul translate
+    cyany 0 le { 0 texty moveto text_yellow } if
+    0 0 moveto text_cyan
 } def
 
 /ranges2 {
-- 
2.30.2