debug

diff --git a/cmyk.ps b/cmyk.ps
index 6cee0a27b11d3cf46e3a6074085a4af88e225c89..18d23fa5f987b55c9c07c7656bcb72f5df032b47 100644 (file)
--- a/cmyk.ps
+++ b/cmyk.ps
@@ -23,6 +23,9 @@
 %    8^3 x    4 .. 7       4 Y per page      8 = 0 2 4 6 8 10 12 15
 %             8 10 13 15
 
+/debug false def
+/debug true def
+
 /paperx 595 def
 /papery 842 def
 
@@ -55,6 +58,8 @@
 
 /Helvetica findfont texty scalefont setfont
 
+/ifdebug { debug exch if } def
+
 /klist_get {
     klist
         blackx
@@ -108,12 +113,31 @@
                  magentax      gn div
                  yellowval     gn div
                 klist_get maxval div
+ { 4 copy } ifdebug
 
                  setcmykcolor
 
                 0  szfy +0.5 mul  moveto
                 szfx 0 rlineto stroke
 
+ { gsave
+    /Helvetica findfont 6.5 scalefont setfont
+      0
+        1 1 4 {
+           index
+           0.5 ge {
+               pop 1
+           } if
+        } for
+       setgray
+        0 1 3 {
+           6.5 mul  0 exch  moveto
+           20 string cvs   show
+        } for
+ grestore } ifdebug
+
+
+
       cyany 0 le  blacky 0 le  and {  % top row
           0  setgray
           0  stridiy margoy add  translate