/someyellow {
- /n m 1 add def
+ /gn gm 1 add def
/kmx knx 1 sub def
/kmy kny 1 sub def
- /stridox gridox n div def
- /stridoy gridoy n div def
+ /stridox gridox gn div def
+ /stridoy gridoy gn div def
/szix stridox margox sub def
/sziy stridoy margoy sub def
margin margin translate
textx 0 translate
- 0 1 m { /magenta exch def
- 0 1 m { /cyan exch def
+ 0 1 gm { /magenta exch def
+ 0 1 gm { /cyan exch def
gsave
magenta stridox mul
- cyan neg m add stridoy mul translate
+ cyan neg gm add stridoy mul translate
szfy setlinewidth
0 1 kmx { /blackx exch def
0 1 kmy { /blacky exch def
- cyan n div
- magenta n div
- yellow n div
+ cyan gn div
+ magenta gn div
+ yellow gn div
klist
blackx
blacky knx mul add
- get m div
+ get base div
setcmykcolor
/ranges {
- 0 1 m { /yellow exch def
+ 0 1 gm { /yellow exch def
someyellow
0 setgray
} def
-/m 16 def
+/base 16 def
+
+/gm 16 def
/knx 2 def
/kny 2 def
/ranges2 {
-/m 8 def
+/gm 8 def
/gridox szox 2 div margbx sub def
/gridoy szoy 2 div margby sub def
} def
-/klist [ 7 8 9 15 ] def ranges2
-%/klist [ 4 5 6 7 ] def ranges2
-%/klist [ 8 10 13 15 ] def ranges2
+/klist [ 4 5 6 7 ] def ranges2
+/klist [ 8 10 13 15 ] def ranges2