From 9684ea7c138e974f0c86b9cfc91eb8218867b59e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 5 Mar 2019 17:30:10 +0000
Subject: [PATCH] debug

---
 cmyk.ps | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/cmyk.ps b/cmyk.ps
index 6cee0a2..18d23fa 100644
--- 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
-- 
2.30.2