diff options
| author | wkj <devnull@localhost> | 2004-05-16 07:54:22 +0000 |
|---|---|---|
| committer | wkj <devnull@localhost> | 2004-05-16 07:54:22 +0000 |
| commit | b855148c9b6d28fedfd083d037bcf246f1913d92 (patch) | |
| tree | 0075eb6ea37427fa48b78cb937fabc04175cead1 /src/cmd/postscript/psfiles/shade.ps | |
| parent | 61f5c35c9465f0702739b41249a664d409f0482c (diff) | |
| download | plan9port-b855148c9b6d28fedfd083d037bcf246f1913d92.tar.gz plan9port-b855148c9b6d28fedfd083d037bcf246f1913d92.tar.bz2 plan9port-b855148c9b6d28fedfd083d037bcf246f1913d92.zip | |
Checkpoint.
Diffstat (limited to 'src/cmd/postscript/psfiles/shade.ps')
| -rw-r--r-- | src/cmd/postscript/psfiles/shade.ps | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/src/cmd/postscript/psfiles/shade.ps b/src/cmd/postscript/psfiles/shade.ps new file mode 100644 index 00000000..47e31679 --- /dev/null +++ b/src/cmd/postscript/psfiles/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 |