🚀 go-pugleaf

In article <1993Jan22.180054.21103@isa.de>, schwarze@isa.de (Jochen Schwarze) writes:
|>     Kann man dvips (oder ein "ahnliches Programm) dazu bringen, zwei A4
|>     Seiten nebeneinander auf ein A4 Blatt zu drucken?
|>     (So wie es bei einigen Deskjet Treibern geht.)
|> 
|> Dafuer gibs zwei Moeglichkeiten. Entweder auf DVI-Ebene mit dvidvi
|> (wie dvips von Radical Eye Software).
|> 
|> Oder mit dem Paket psutils von Angus Duggan (ajcd@dcs.ed.ac.uk) auf

Oder, falls dvips benutzt wird geht auch das folgende Header-file: 
Diese Datei in das Verzeichnis mit config.ps etc. kopieren und dvips mit den unten
angegebenen Optionen aufrufen.
F"ur unseren Drucker wurde dieser Offset von '36 neg 0 translate' eingebaut.
Hiermit werden die zwei DIN-A5-Seiten ein klein wenig nach oben geschoben. Falls
es bei anderen Druckern falsch ist, nach 'isoddpage {' diese Kommandos l"oschen bzw.
durch try and error (oder PostScript-Wissen) anpassen.
 
 Ciao
 	Widi.

-- cut here -- twoup.ps ---------------------------------------------------------
% twoup.ps for dvips 5.47 by Piet van Oostrum <piet@cs.ruu.nl>
% Use with dvips -h twoup.ps -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
% 36 neg 0 translate added by hsk Thu Nov 28 19:36:25 MET 1991
        isoddpage {36 neg 0 translate 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
-- cut here -- twoup.ps ---------------------------------------------------------