1 %
2 % Shading support - primarily for ASCII file translators.
3 %
4 
5 /grays [0.98 0.9 0.75 0.6] def
6 
7 /setshade {
8 	/level exch def
9 	level 0 le {
10 		/textgray 0 def
11 		/backgray 1 def
12 	}{
13 		/backgray level grays length gt
14 			{/textgray 1 def 0}
15 			{/textgray 0 def grays level 1 sub get}
16 		ifelse def
17 	} ifelse
18 	textgray setgray
19 	/dY1 0 def
20 	/dY2 0 def
21 } bind def
22 
23 /drawrvbox {
24 	/x2 exch charwidth mul def
25 	/x1 exch charwidth mul def
26 
27 	x1 x2 lt {
28 		dup		% expects y on top
29 		/y1 exch linespace mul def
30 		/y2 y1 def
31 
32 		dY1 0 eq dY2 0 eq and {
33 			currentfont /FontBBox get aload pop
34 			160 sub
35 			currentfont /FontMatrix get dtransform /dY2 exch def pop
36 			100 add
37 			currentfont /FontMatrix get dtransform /dY1 exch def pop
38 		} if
39 
40 		/y1 y1 dY1 add def
41 		/y2 y2 dY2 add def
42 
43 		backgray setgray
44 		newpath
45 		x1 y1 moveto
46 		x2 y1 lineto
47 		x2 y2 lineto
48 		x1 y2 lineto
49 		closepath fill
50 	} if
51 	textgray setgray
52 } bind def