🚀 go-pugleaf

I retreive from this newsgroup some PostScript code that was
suppose to create 2up pages with dvips.  I thought I tried
this and it worked before, but now it appears it was so long
ago I can't get it to work.  I am also interested in the
US 8.5 X 11in paper constants.

I have used successfully the 2up.sty generic macros from
Timothy Van Zandt, but was also looking for a PostScript
solution.

Here is the code I originally retreived:

% twoup.ps for dvips 5.47 by Piet van Oostrum <piet@cs.ruu.nl>
% the constants are for A4 paper.
% Use with dvips -h twoup -t landscape 
/isoddpage true def
/orig-showpage /showpage load def
/factor 0.707106781187 def
/showpage {
        isoddpage not { orig-showpage } if
        /isoddpage isoddpage not store } def

/bop-hook {
        /vsize 1 factor add neg def
        isoddpage {factor factor scale}
                 { 0 544.283799804 translate} ifelse
        } def

/end-hook{ isoddpage not { orig-showpage } if } def

/start-hook {/eos{ isoddpage {clear SS restore /isoddpage true store}
		{clear SS restore /isoddpage false store}
				 ifelse} B
	/bos{/SS save N
		isoddpage not {factor factor scale} if} B
} def