RE: Draft Copy Circulation - Adding to the Prologue.ps

[Chris Gooch <chris -dot- gooch -at- lightworkdesign -dot- com>]

Archimede wrote:

+++
My current problem is I do not know how to write the postscript code. I
managed to change the prologue file based on an example from the Adobe site
to produce DRAFT COPY, but its upside down.
+++

Unix/Linux has a tool called draftps which outputs
a suitable postscript prelude, which looks like
this:


% Prelude to show a draft string on every page.
(Your string goes here)
/DRAFTDICT 10 dict def
DRAFTDICT begin
/DRAFTSTRING exch def
/bd /Helvetica-Bold findfont def
/od bd maxlength 1 add dict def
bd {exch dup /FID ne {exch od 3 1 roll put} {pop pop} ifelse} forall
od /FontName /Outline0 put od /PaintType 2 put od /StrokeWidth 0 put
/Outline0 od definefont pop
/DRAFT { gsave
        initmatrix
       /Outline0 findfont setfont
       DRAFTSTRING dup stringwidth pop 8.875 exch div dup 72 mul dup scale
       52.3 rotate 2.5 exch div -.35 translate
       0 0 moveto show
       grestore } def
/oldshow /showpage load def
/oldcopy /copypage load def
end
/showpage { DRAFTDICT begin DRAFT oldshow end } def
/copypage { DRAFTDICT begin DRAFT oldcopy end } def
% End of draft prelude
showpage


Simply add this to the start of your postscript file
(after the initial comment lines which probably contain
important bounding box info). Try experimenting with
the scale, rotate and translate commands to get
different effects (and note that the text string
in the brackets at the top of this code snippet can
be anything you like).

On unix you'd simply type
> psdraft -s Draft origfile.ps > draftfile.ps
where "Draft" is the string you want to draw across
each page.

HTH
Chris.

Christopher Gooch, Technical Author
LightWork Design, Sheffield, UK.
www.lightworkdesign.com




^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Robohelp X3, from eHelp, lets you quickly and easily create 
professional Help systems for all your Windows and Web-based 
applications, including Net. 

Order RoboHelp X3 in May and receive a $100 mail-in rebate, PLUS
free RoboScreenCapture and WebHelp Merge Module. 
 
Order RoboHelp today: http://www.ehelp.com/techwr-l

---
You are currently subscribed to techwr-l as:
archive -at- raycomm -dot- com
To unsubscribe send a blank email to leave-techwr-l-obscured -at- lists -dot- raycomm -dot- com
Send administrative questions to ejray -at- raycomm -dot- com -dot-  Visit
http://www.raycomm.com/techwhirl/ for more resources and info.