diff options
author | rsc <devnull@localhost> | 2004-05-15 23:45:13 +0000 |
---|---|---|
committer | rsc <devnull@localhost> | 2004-05-15 23:45:13 +0000 |
commit | 13f7391e4a38634221f4a63da9f58f58473e77b0 (patch) | |
tree | 65b538843c8fbfbb5000de18ad6145ce82531781 /postscript/prologues/banner.ps | |
parent | 36a9115fcbe8ddb0baacc07f8c33add9a9f7b307 (diff) | |
download | plan9port-13f7391e4a38634221f4a63da9f58f58473e77b0.tar.gz plan9port-13f7391e4a38634221f4a63da9f58f58473e77b0.tar.bz2 plan9port-13f7391e4a38634221f4a63da9f58f58473e77b0.zip |
More files!
Diffstat (limited to 'postscript/prologues/banner.ps')
-rw-r--r-- | postscript/prologues/banner.ps | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/postscript/prologues/banner.ps b/postscript/prologues/banner.ps new file mode 100644 index 00000000..d5637416 --- /dev/null +++ b/postscript/prologues/banner.ps @@ -0,0 +1,40 @@ +% +% Simple program to print a banner page +% + +/banner { + /saveobj save def + erasepage initgraphics + + /#copies 1 def + /inch {72 mul} bind def + /pagebbox [clippath pathbbox newpath] def + + /font /Helvetica def + /size 20 def + /height pagebbox 3 get def + /width pagebbox 2 get .09 mul def + + .92 setgray + pagebbox 0 get pagebbox 1 get moveto + width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill + pagebbox 2 get pagebbox 1 get moveto + width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill + 0 setgray + + font findfont size scalefont setfont + /linesp size size .15 mul add neg def + /tab (Destination) stringwidth pop 1.5 mul def + /nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def + + pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate + (Bin) nextline + (Name) nextline + (Owner) nextline + (File) nextline + (Account) nextline + (Destination) nextline + (Spooldate) nextline + showpage + saveobj restore +} bind def |