Return to banner.ps CVS log

Up to [Research Unix] / researchv10no / cmd / postscript / psfiles

Annotation of researchv10no/cmd/postscript/psfiles/banner.ps, revision 1.1.1.1

1.1       root        1: %
                      2: % Simple program to print a banner page
                      3: %
                      4: 
                      5: /banner {
                      6:        /saveobj save def
                      7:        erasepage initgraphics
                      8: 
                      9:        /#copies 1 def
                     10:        /inch {72 mul} bind def
                     11:        /pagebbox [clippath pathbbox newpath] def
                     12: 
                     13:        /font /Helvetica def
                     14:        /size 20 def
                     15:        /height pagebbox 3 get def
                     16:        /width pagebbox 2 get .09 mul def
                     17: 
                     18:        .92 setgray
                     19:        pagebbox 0 get pagebbox 1 get moveto
                     20:        width 0 rlineto 0 height rlineto width neg 0 rlineto closepath eofill
                     21:        pagebbox 2 get pagebbox 1 get moveto
                     22:        width neg 0 rlineto 0 height rlineto width 0 rlineto closepath eofill
                     23:        0 setgray
                     24: 
                     25:        font findfont size scalefont setfont
                     26:        /linesp size size .15 mul add neg def
                     27:        /tab (Destination) stringwidth pop 1.5 mul def
                     28:        /nextline {0 0 moveto show tab 0 moveto show 0 linesp translate} def
                     29: 
                     30:        pagebbox 0 get 1.5 width mul add pagebbox 3 get 2.0 width mul sub translate
                     31:        (Bin)  nextline
                     32:        (Name) nextline
                     33:        (Owner) nextline
                     34:        (File) nextline
                     35:        (Account) nextline
                     36:        (Destination) nextline
                     37:        (Spooldate) nextline
                     38:        showpage
                     39:        saveobj restore
                     40: } bind def

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.