wip

diff --git a/cmyk.ps b/cmyk.ps
new file mode 100644 (file)
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