/szox printareax textx sub def
/szoy printareay texty sub def
-/m 16 def
-
-/knx 2 def
-/kny 4 def
-
% o = outer, i = inner, f = final
/margox 5 def
% strid = stride
+/someyellow {
+
/n m 1 add def
/kmx knx 1 sub def
/kmy kny 1 sub def
margin margin translate
textx 0 translate
-0 1 m { /yellow exch def
0 1 m { /magenta exch def
0 1 m { /cyan exch def
cyan n div
magenta n div
yellow n div
+
blackx knx div
blacky add kny div
+ kfact mul kbase add
setcmykcolor
0 setgray
- /Helvetica findfont 18 scalefont setfont
- 0 0 moveto
- (Y) show
- yellow (___) cvs show
- showpage
+} def
+
+/ranges {
+
+ 0 1 m { /yellow exch def
+ someyellow
+
+ /Helvetica findfont 18 scalefont setfont
+ 0 0 moveto
+ (Y) show
+ yellow (___) cvs show
+ showpage
+ } for
+
+} def
+
+/m 16 def
+
+/knx 1 def
+/kny 3 def
+
+/kbase 0 def
+/kfact 0.5 def
-} for
+ranges