summaryrefslogtreecommitdiff
path: root/dviware/psprint/unix/ps.ps
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.