wip text

diff --git a/cmyk.ps b/cmyk.ps
index 057500ad8f75277d1384348b7cb8672f23cf39d7..e74f5e77e04be0fab133e26d14241676a4695345 100644 (file)
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -34,6 +34,8 @@
 /digits [ (0) (1) (2) (3) (4) (5) (6) (7) (8) (9)
           (a) (b) (c) (d) (e) (f) ] def
 
+/Helvetica findfont texty scalefont setfont
+
 /klist_get {
     klist
         blackx
@@ -94,10 +96,33 @@
         } for
 
     grestore
-
     } for
     } for
 
+    gsave
+
+      0  gridoy translate
+
+      text_l_p text_u_p and {
+       gsave
+         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.65 mul exch moveto
+           klist_get digits exch get
+           show
+         } for
+         } for
+       grestore
+        grestore
+      } if
+
+    grestore
+
 } def
 
 /ranges {
@@ -106,7 +131,6 @@
         someyellow
 
     0 setgray
-    /Helvetica findfont 18 scalefont setfont
     0 0 moveto
     (Y) show
     yellow (___) cvs show
@@ -123,25 +147,6 @@ start_page
 
 /finish_page {
     0 setgray
-    /Helvetica findfont texty scalefont setfont
-    gsave
-
-    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.65 mul exch moveto
-        klist_get digits exch get
-        show
-      } for
-      } for
-    grestore
-    grestore
 
     showpage
     start_page
@@ -160,7 +165,10 @@ start_page
 /gridox szox def
 /gridoy szoy def
 
-%ranges
+/text_l_p true def
+/text_u_p true def
+
+ranges
 
 /ranges2 {
 
@@ -185,6 +193,9 @@ gsave
 
  /yellow  ylist yellowix get  def
 
+ /text_l_p  yellowx 0 le  def
+ /text_u_p  yellowy 1 ge  def
+
  someyellow
 grestore