break out /someyellow

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