diff options
| author | Taru Karttunen <taruti@taruti.net> | 2011-03-30 16:53:33 +0300 |
|---|---|---|
| committer | Taru Karttunen <taruti@taruti.net> | 2011-03-30 16:53:33 +0300 |
| commit | e463eb40363ff4c68b1d903f4e0cdd0ac1c5977f (patch) | |
| tree | d5e9f57c28f026cb21de3bd77cc10cd7f64aaa85 /sys/lib/postscript/prologues/shade.ps | |
| parent | b41b9034225ab3e49980d9de55c141011b6383b0 (diff) | |
Import sources from 2011-03-30 iso image - sys/lib
Diffstat (limited to 'sys/lib/postscript/prologues/shade.ps')
| -rwxr-xr-x | sys/lib/postscript/prologues/shade.ps | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/sys/lib/postscript/prologues/shade.ps b/sys/lib/postscript/prologues/shade.ps new file mode 100755 index 000000000..47e316798 --- /dev/null +++ b/sys/lib/postscript/prologues/shade.ps @@ -0,0 +1,52 @@ +% +% 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 |