% 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
/Helvetica findfont texty scalefont setfont
+/ifdebug { debug exch if } def
+
/klist_get {
klist
blackx
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