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     ! 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.