Path: utzoo!utgpu!attcan!uunet!husc6!ukma!mailrus!ames!hc!hi.unm.edu!cyrus
From: cyrus@hi.unm.edu (Tait Cyrus)
Newsgroups: comp.lang.postscript
Subject: putting DRAFT on PS output
Message-ID: <23646@hi.unm.edu>
Date: 29 Sep 88 15:03:13 GMT
Distribution: na
Organization: U. of New Mexico, Albuquerque
Lines: 30


Don't know if something like this has already been posted here.......

Recently, I needed to be able to place in 2 inch letters diagonally
across all pages output from ptroff (Transcript) the word DRAFT in
faint letters.

Below is shell script that takes as `stdin' the output from `ptroff -t'
and sends to `stdout'.  I called this shellscript `makedraft' and
would be called via:
	ptroff -t  | makedraft | lpr -Pps

There are probably easier ways to do this, or more efficient, but
it does work.

#!/bin/csh -f
sed 's/^%%EndProlog/\/DRAFT {save \/Times-Roman findfont 200 scalefont setfont\\
	72 3 mul 72 1 mul moveto\\
	60 rotate 0.99 setgray (DRAFT) show restore } def\\
%%EndProlog/' |\
sed 's/^BP/DRAFT\\
BP/'

I found it very useful and thought other might also.

---
W. Tait Cyrus   (505) 277-0806		e-mail: cyrus@pprg.unm.edu
University of New Mexico			
Dept of ECE - Parallel Processing Research Group
Albuquerque, New Mexico 87131