From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Mon, 4 Mar 2019 13:21:10 +0000 (+0000)
Subject: wip
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=d6dbeea48a5e7856f1cf700eb230f657b4de63f4;p=pandemic-rising-tide.git

wip
---

diff --git a/cmyk.ps b/cmyk.ps
new file mode 100644
index 0000000..63efc75
--- /dev/null
+++ b/cmyk.ps
@@ -0,0 +1,63 @@
+%!
+
+/n 16 def
+
+/knx 2 def
+/kny 4 def
+
+/szfx 11.4 def
+/szfy 10.0 def
+/marg1x 3 def
+/marg1y 3 def
+/margfx 5 def
+/margfy 5 def
+
+/sz1x szfx knx mul marg1x add def
+/sz1y szfy kny mul marg1x add def
+
+0 1 n {			/yellow  exch def
+    0 1 n {		/magenta exch def
+    0 1 n {		/cyan    exch def
+
+    gsave
+
+        magenta			sz1x mul
+        cyan    neg n add	sz1y mul  translate
+
+        szfy setlinewidth
+
+        0 1 knx 1 sub {	/blackx exch def
+        0 1 kny 1 sub {	/blacky exch def
+
+        	cyan		n div
+                 magenta	n div
+                 yellow		n div
+                 blackx 	knx div
+                 blacky  add	kny div
+
+                 setcmykcolor
+
+                blackx			knx div	 sz1x mul  margfx add
+                 blacky neg kny add	kny div	 sz1y mul  margfy add
+                 szfy -0.5 mul add
+                 moveto
+
+                szfx 0 rlineto stroke
+
+        } for
+        } for
+
+    grestore
+
+    } for
+    } for
+
+    0 setgray
+
+    /Helvetica findfont 18 scalefont setfont
+    0 0 moveto
+    (Y) show
+    yellow (___) cvs show
+    showpage
+
+} for