wip text etc.

diff --git a/cmyk.ps b/cmyk.ps
index d359052d521e4ecda63535d54225978c2d4cc1d7..057500ad8f75277d1384348b7cb8672f23cf39d7 100644 (file)
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -31,6 +31,9 @@
 
 % strid = stride
 
+/digits [ (0) (1) (2) (3) (4) (5) (6) (7) (8) (9)
+          (a) (b) (c) (d) (e) (f) ] def
+
 /klist_get {
     klist
         blackx
@@ -40,7 +43,7 @@
 /kentry_moveto {
                 blackx                         stridix mul
                  blacky  neg kmy add           stridiy mul
-                 szfy -0.5 mul add
+                 szfy +0.5 mul add
 } def
 
 /someyellow {
@@ -61,19 +64,17 @@
     /szfx  stridix  margix sub  def
     /szfy  stridiy  margiy sub  def
 
-    margin margin translate
-    textx  0      translate
-
     0 1 gm {           /magenta exch def
     0 1 gm {           /cyan    exch def
 
     gsave
+        textx  0      translate
 
         magenta                        stridox mul
         cyan    neg gm add     stridoy mul  translate
 
         szfy setlinewidth
-
+ 
         0 1 kmx {      /blackx exch def
         0 1 kmy {      /blacky exch def
 
@@ -111,30 +112,39 @@
     yellow (___) cvs show
 
     finish_page
-
     } for
 
 } def
 
+/start_page {
+    margin margin translate
+} def
+start_page
+
 /finish_page {
     0 setgray
     /Helvetica findfont texty scalefont setfont
     gsave
 
-     margin
-     papery  margin sub texty 2 mul sub  stridoy sub
-      translate
+    0  printareay texty sub translate
+
+    0 0 moveto  (K) show
+
+    gsave
+      0  stridoy neg  translate
       
       0 1 kmx {        /blackx exch def
       0 1 kmy {        /blacky exch def
-        kentry_moveto exch 0.75 mul exch moveto
-        klist_get (__) cvs
+        kentry_moveto exch 0.65 mul exch moveto
+        klist_get digits exch get
         show
       } for
       } for
     grestore
+    grestore
 
     showpage
+    start_page
 } def
 
 /base 16 def
@@ -176,7 +186,6 @@ gsave
  /yellow  ylist yellowix get  def
 
  someyellow
-
 grestore
 
 } for