From fb4827b279a8e3533944531521acc34c139656bb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Mon, 4 Mar 2019 13:54:11 +0000
Subject: [PATCH] break out /someyellow

---
 cmyk.ps | 40 ++++++++++++++++++++++++++++------------
 1 file changed, 28 insertions(+), 12 deletions(-)

diff --git a/cmyk.ps b/cmyk.ps
index ea600d3..290ddd6 100644
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -14,11 +14,6 @@
 /szox printareax textx sub def
 /szoy printareay texty sub def
 
-/m 16 def
-
-/knx 2 def
-/kny 4 def
-
 % o = outer, i = inner, f = final
 
 /margox 5 def
@@ -29,6 +24,8 @@
 
 % strid = stride
 
+/someyellow {
+    
 /n      m     1 add   def
 /kmx    knx   1 sub   def
 /kmy    kny   1 sub   def
@@ -48,7 +45,6 @@
 margin margin translate
 textx  0      translate
 
-0 1 m {			/yellow  exch def
     0 1 m {		/magenta exch def
     0 1 m {		/cyan    exch def
 
@@ -65,8 +61,10 @@ textx  0      translate
         	cyan		n div
                  magenta	n div
                  yellow		n div
+
                  blackx 	knx div
                  blacky  add	kny div
+                 kfact mul  kbase add
 
                  setcmykcolor
 
@@ -87,10 +85,28 @@ textx  0      translate
 
     0 setgray
 
-    /Helvetica findfont 18 scalefont setfont
-    0 0 moveto
-    (Y) show
-    yellow (___) cvs show
-    showpage
+} def
+
+/ranges {
+
+    0 1 m {			/yellow  exch def
+        someyellow
+
+        /Helvetica findfont 18 scalefont setfont
+        0 0 moveto
+        (Y) show
+        yellow (___) cvs show
+        showpage
+    } for
+
+} def
+
+/m 16 def
+
+/knx 1 def
+/kny 3 def
+
+/kbase 0 def
+/kfact 0.5 def
 
-} for
+ranges
-- 
2.30.2