Path: utzoo!utgpu!attcan!uunet!munnari!otc!softway!chris
From: chris@softway.oz (Chris Maltby)
Newsgroups: comp.lang.postscript
Subject: Re: Large postscript files to a laserwriter
Message-ID: <1195@softway.oz>
Date: 1 Mar 89 00:56:29 GMT
References: <1936@goanna.oz> <3660@cidam.rmit.oz> <1175@softway.oz> <483@grand.UUCP>
Organization: Softway Pty Ltd, Sydney, Australia
Lines: 53

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