Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!rutgers!orstcs!sapphire!pvo
From: pvo@sapphire.OCE.ORST.EDU (Paul O'Neill)
Newsgroups: comp.lang.postscript
Subject: Re: adding DRAFT to output
Message-ID: <20468@orstcs.CS.ORST.EDU>
Date: 25 Sep 90 02:11:31 GMT
References: <1990Sep24.213512.23889@athena.mit.edu>
Sender: usenet@orstcs.CS.ORST.EDU
Reply-To: pvo@sapphire.OCE.ORST.EDU (Paul O'Neill)
Organization: Coastal Imaging Lab, Oregon State University, Corvallis, OR
Lines: 46

%!
/Times-Bold findfont
96 scalefont setfont
.95 setgray
newpath
70 100 moveto
45 rotate
(Confidential) show
showpage

======================== or =============================

%!PS-Adobe
 
% width height (string) sash
%                       ----

/sash {
        gsave
        3 1 roll 2 copy exch atan
        neg currentscreen 3 1 roll pop 3 -2 roll setscreen 
        currentscreen pop neg 5 1 roll pop
        2 div exch dup 3 1 roll 2 div exch translate
        /Times-Bold findfont dup setfont 4 1 roll
        1 index stringwidth pop div 2 index cos div .8 mul
        4 -1 roll 1 index scalefont setfont 3 -1 roll rotate
        exch dup stringwidth pop -2 div 3 -1 roll -2.5 div moveto
        .9 setgray show
        grestore
} bind def

% main program

gsave
        65 45 translate
        500 700 (Confidential) sash
grestore

showpage



Paul O'Neill                 pvo@oce.orst.edu		DoD 000006
Coastal Imaging Lab
OSU--Oceanography
Corvallis, OR  97331         503-737-3251