Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 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