blob: 83021f4df66350995bccb6b119af4d21a44854f2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
% 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.
|