From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 16:09:16 +0000 (+0000)
Subject: before reorder to major K
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=df7077baa85ee87988313c469d42bd7e22bc2548;p=pandemic-rising-tide.git

before reorder to major K
---

diff --git a/cmyk.ps b/cmyk.ps
index cd7e0e4..1af36af 100644
--- 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