/printareax paperx margin 2 mul sub def
/printareay papery margin 2 mul sub def
-/textx 12 def
+/textx 20 def
/texty 12 def
/szox printareax textx sub def
% strid = stride
+/klist_get {
+ klist
+ blackx
+ blacky knx mul add
+ get
+} def
+/kentry_moveto {
+ blackx stridix mul
+ blacky neg kmy add stridiy mul
+ szfy -0.5 mul add
+} def
+
/someyellow {
/gn gm 1 add def
magenta gn div
yellow gn div
- klist
- blackx
- blacky knx mul add
- get base div
+ klist_get base div
setcmykcolor
- blackx stridix mul
- blacky neg kmy add stridiy mul
- szfy -0.5 mul add
- moveto
+ kentry_moveto moveto
szfx 0 rlineto stroke
(Y) show
yellow (___) cvs show
- showpage
+ finish_page
+
} for
} def
+/finish_page {
+ 0 setgray
+ /Helvetica findfont texty scalefont setfont
+ gsave
+
+ margin
+ papery margin sub texty 2 mul sub stridoy sub
+ translate
+
+ 0 1 kmx { /blackx exch def
+ 0 1 kmy { /blacky exch def
+ kentry_moveto exch 0.75 mul exch moveto
+ klist_get (__) cvs
+ show
+ } for
+ } for
+ grestore
+
+ showpage
+} def
+
/base 16 def
/gm 16 def
} for
} for
-showpage
+finish_page
} for
} def