🚀 go-pugleaf

west@widgit.enet.dec.com (Jim West (Stealth Contractor)) writes:


>  I'm teaching myself PostScript and have gone thru the 'Tutorial and
>Cookbook' and have stumbled my way thru the LRM.

>  Here's what I'm trying to accomplish :

>    I need the capability to redefine showpage to put a label at the top
>  and bottom of every page and to print a running page number on each page
>  as well.


Try this prepended to your PS
Hope this helps


%!PS
/page# 0 def
/showpage
[
	{
		initgraphics
		/page# page# 1 add def
		/Courier findfont 12 scalefont setfont
		% Put your stuff here -
		% this just write Page N at 100 100
		100 100 moveto
		(Page    ) dup 5 3 getinterval page# exch cvs pop show
	}
	/exec cvx
	/showpage load
	dup type /operatortype ne
	{
		/exec cvx
	}
	if
]
cvx def

% overload restore because it will change the value of page#
/restore
[
	{
		page#
		exch
	}
	/exec cvx
	/restore load
	dup type /operatortype ne
	{
		/exec cvx
	}
	if
	{
		/page# exch def
	}
	/exec cvx
]
cvx def
-- 
________________________________________________________________________
Ross Rodney Cartlidge			    |   rossc@extro.ucc.su.oz.au
University Computing Service, H08	    |   Phone:     +61 2 6923497
University of Sydney, NSW 2006, Australia   |   FAX:       +61 2 6606557