diff options
Diffstat (limited to 'dviware/psprint/vms/ps.ps')
-rw-r--r-- | dviware/psprint/vms/ps.ps | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/dviware/psprint/vms/ps.ps b/dviware/psprint/vms/ps.ps new file mode 100644 index 0000000000..a4de517297 --- /dev/null +++ b/dviware/psprint/vms/ps.ps @@ -0,0 +1,20 @@ +% Prologue for a PostScript job. +% It assumes *_print.com 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. |