%% 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