% Prologue for a PostScript job. % It assumes psprint has defined land and dev. land % only do something if /landscape given { dev (LINO) eq % Linotronic allows different page sizes { initgraphics newpath clippath pathbbox % push LLx LLy URx URy pop % URy 0 translate % move origin right by URx (= page image width) pop % LLy pop % LLx 90 rotate % rotate axes 90deg anticlockwise } { % dev = LW or PS40 8.3 72 mul 0 translate % move origin right by 8.3in (= A4 width) 90 rotate % rotate axes 90deg anticlockwise } ifelse } if % The above transformations can be overridden by initgraphics/initmatrix etc.