summaryrefslogtreecommitdiff
path: root/dviware/psprint/vms/ps.ps
diff options
context:
space:
mode:
Diffstat (limited to 'dviware/psprint/vms/ps.ps')
-rw-r--r--dviware/psprint/vms/ps.ps20
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.