before reorder to major K

diff --git a/cmyk.ps b/cmyk.ps
index cd7e0e4317ad5dfb36e15206048c25747290d36f..1af36afd8014054c3e5a7b5442ab7b96e9ebd723 100644 (file)
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -1,5 +1,9 @@
 %!
 
+%   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
+%    4^3 x    8 10 13 15   16 Y,C per page   4 = 0 5 10 15
+
 /paperx 595 def
 /papery 842 def
 
@@ -65,9 +69,10 @@
                  magenta       n div
                  yellow                n div
 
-                 blackx        knx div
-                 blacky  add   kny div
-                 kfact mul  kbase add
+               klist
+                 blackx
+                 blacky  knx mul add
+                get m div
 
                  setcmykcolor
 
@@ -109,8 +114,7 @@
 /knx 2 def
 /kny 3 def
 
-/kbase 0 def
-/kfact 5 16 div def
+/klist [ 0 1 2 3 4 5 ] def
 
 /gridox szox def
 /gridoy szoy def
@@ -118,32 +122,34 @@
 ranges
 
 /m 8 def
-/kbase 6 16 div def
+/klist [ 6 7 9 11 13 15 ] def
+/ylist [ 0 2 5 7 8 10 12 15 ] def
 
 /gridox szox 2 div margbx sub def
 /gridoy szoy 2 div margby sub def
 
-0 1 3 {        /yellowpage exch def
+0 1 1 {        /yellowpage exch def
 0 1 1 { /yellowx exch def
 0 1 1 { /yellowy exch def
 
+/yellowix
+  yellowpage            4 mul
+  yellowy    neg 1 add  2 mul add
+  yellowx                     add def
+
 gsave
  yellowx  gridox margbx add  mul
  yellowy  gridoy margby add  mul
  translate
 
- /yellow
- yellowpage 2 div
- yellowx add  2 div
- yellowy add  2 div
- def
-
- yellow pstack pop
+ /yellow  ylist yellowix get  def
 
  someyellow
 
 grestore
 
+/yellowix yellowix 1 add def
+
 } for
 } for
 showpage