🚀 go-pugleaf

Thanks to Dave Yost for clarifying my message. My message could
have been interpreted to support the kind of dodgy practices he
mentions.

Here is some code from our ditroff to postscript translator which
deals with the problem. I hope it meets with your approval...

    /page {showpage restore save newpage} bind def

    /dorestore
    {
	currentpoint vpgn
	4 -1 roll
	{ 4 -1 roll restore } repeat
    } bind def

    /dosave
    {
	{ save 4 1 roll } repeat
	/vpgn exch def
	newpage moveto
    } bind def

    newpath
    save save
    newpage
    %%EndProlog

    %%Page: 2 1

    720 X
    120 Y
    1 dorestore
    /f.R /Times-Roman findfont def

    1 dosave

    0.0 0.0 0.0 10 10 f.R ft(page)s
    933 X(2)s
    page
    %%Page: 1 2

    720 X
    120 Y
    0.0 0.0 0.0 10 10 f.R ft(test)s
    page
    %%Trailer

-- 
Chris Maltby - Softway Pty Ltd	(chris@softway.oz)

PHONE:	+61-2-698-2322		UUCP:		uunet!softway.oz!chris
FAX:	+61-2-699-9174		INTERNET:	chris@softway.oz.au