mjwargo@athena.mit.edu (Michael J Wargo) (09/25/90)
Last week, I saw a request for modifying postscript code to add the word DRAFT diagonally across the page in light gray. I hoped that the solution would be posted. Could some kind soul please e-mail the directions to me. Thanks, Mike Wargo preferred----> michael@agricola.mit.edu mjwargo@athena.mit.edu
pvo@sapphire.OCE.ORST.EDU (Paul O'Neill) (09/25/90)
%!
/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