Blob
1 %2 % Shading support - primarily for ASCII file translators.3 %5 /grays [0.98 0.9 0.75 0.6] def7 /setshade {8 /level exch def9 level 0 le {10 /textgray 0 def11 /backgray 1 def12 }{13 /backgray level grays length gt14 {/textgray 1 def 0}15 {/textgray 0 def grays level 1 sub get}16 ifelse def17 } ifelse18 textgray setgray19 /dY1 0 def20 /dY2 0 def21 } bind def23 /drawrvbox {24 /x2 exch charwidth mul def25 /x1 exch charwidth mul def27 x1 x2 lt {28 dup % expects y on top29 /y1 exch linespace mul def30 /y2 y1 def32 dY1 0 eq dY2 0 eq and {33 currentfont /FontBBox get aload pop34 160 sub35 currentfont /FontMatrix get dtransform /dY2 exch def pop36 100 add37 currentfont /FontMatrix get dtransform /dY1 exch def pop38 } if40 /y1 y1 dY1 add def41 /y2 y2 dY2 add def43 backgray setgray44 newpath45 x1 y1 moveto46 x2 y1 lineto47 x2 y2 lineto48 x1 y2 lineto49 closepath fill50 } if51 textgray setgray52 } bind def