| % |
| % Shading support - primarily for ASCII file translators. |
| % |
| |
| /grays [0.98 0.9 0.75 0.6] def |
| |
| /setshade { |
| /level exch def |
| level 0 le { |
| /textgray 0 def |
| /backgray 1 def |
| }{ |
| /backgray level grays length gt |
| {/textgray 1 def 0} |
| {/textgray 0 def grays level 1 sub get} |
| ifelse def |
| } ifelse |
| textgray setgray |
| /dY1 0 def |
| /dY2 0 def |
| } bind def |
| |
| /drawrvbox { |
| /x2 exch charwidth mul def |
| /x1 exch charwidth mul def |
| |
| x1 x2 lt { |
| dup % expects y on top |
| /y1 exch linespace mul def |
| /y2 y1 def |
| |
| dY1 0 eq dY2 0 eq and { |
| currentfont /FontBBox get aload pop |
| 160 sub |
| currentfont /FontMatrix get dtransform /dY2 exch def pop |
| 100 add |
| currentfont /FontMatrix get dtransform /dY1 exch def pop |
| } if |
| |
| /y1 y1 dY1 add def |
| /y2 y2 dY2 add def |
| |
| backgray setgray |
| newpath |
| x1 y1 moveto |
| x2 y1 lineto |
| x2 y2 lineto |
| x1 y2 lineto |
| closepath fill |
| } if |
| textgray setgray |
| } bind def |
