chiark
/
gitweb
/
~ian
/
pandemic-rising-tide.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b614a6a
)
debug
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 5 Mar 2019 17:30:10 +0000
(17:30 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 5 Mar 2019 17:30:10 +0000
(17:30 +0000)
cmyk.ps
patch
|
blob
|
history
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
% 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
/paperx 595 def
/papery 842 def
@@
-55,6
+58,8
@@
/Helvetica findfont texty scalefont setfont
/Helvetica findfont texty scalefont setfont
+/ifdebug { debug exch if } def
+
/klist_get {
klist
blackx
/klist_get {
klist
blackx
@@
-108,12
+113,31
@@
magentax gn div
yellowval gn div
klist_get maxval div
magentax gn div
yellowval gn div
klist_get maxval div
+ { 4 copy } ifdebug
setcmykcolor
0 szfy +0.5 mul moveto
szfx 0 rlineto stroke
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
cyany 0 le blacky 0 le and { % top row
0 setgray
0 stridiy margoy add translate