grestore
} if
+ text_u_p {
+ gsave
+ textx 0 translate
+ 0 0 moveto (Y) show ytext show
+
+ 1 1 gm { /magenta exch def
+ gm stridox mul 0 moveto
+ digits gm get show
+ } for
+
+ grestore
+ } if
+
grestore
} def
/ranges {
0 1 gm { /yellow exch def
- someyellow
- 0 setgray
- 0 0 moveto
- (Y) show
- yellow (___) cvs show
+ /ytext digits yellow get def
+
+ someyellow
finish_page
} for
/base 16 def
-/gm 16 def
+/gm 15 def
/knx 2 def
/kny 2 def