summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/dvipsconfig/config.usledger
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-08-13 23:51:12 +0000
committerKarl Berry <karl@freefriends.org>2006-08-13 23:51:12 +0000
commiteace4bae1f9818749d503e8859767821618a0220 (patch)
tree599f1deaea72208ba096df9d7d8d7118bd4338d9 /Master/texmf-dist/dvips/dvipsconfig/config.usledger
parentad1d09658f9af8b50c69d1c5bdf9b92623ebbba4 (diff)
new package dvipsconfig with many dvips config files
git-svn-id: svn://tug.org/texlive/trunk@1944 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/dvipsconfig/config.usledger')
-rw-r--r--Master/texmf-dist/dvips/dvipsconfig/config.usledger52
1 files changed, 52 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/dvipsconfig/config.usledger b/Master/texmf-dist/dvips/dvipsconfig/config.usledger
new file mode 100644
index 00000000000..27f10c5350a
--- /dev/null
+++ b/Master/texmf-dist/dvips/dvipsconfig/config.usledger
@@ -0,0 +1,52 @@
+%!
+% config.usledger
+% Configuration and header file for dvips. Load with: dvips -P usledger
+%
+% Forces printing on US ledger paper, if available.
+% Works with HP LJ 5000. Probably also works with other printers.
+% Will be silently ignored by a PS level 1 PostScript interpreter.
+%
+% This file is built so it can be used both as the header file for
+% PostScript and as the configuration file for dvips.
+% (Note that dvips ignores any lines beginning with a space or a "%".)
+%
+% Copyright (C) 1995-2006 by Volker Kuhlmann.
+% Released under the terms of the GNU General Public License (GPL) Version 2.
+% See http://www.gnu.org/ for details.
+%
+% Volker Kuhlmann <VolkerKuhlmann@gmx.de>
+% 21 Feb 1995; 14, 16, 17, 26 Oct 1997; 25 Jan 1998; 9 Mar 2000
+%
+ /setpagedevice where
+ {
+ %dup { pstack flush pop pop } forall pstack flush
+ pop % remove dict name
+ % check whether pagedevice dict has /DeferredMediaSelection
+ % (gs 3.33 has setpagedevice, but error on /DeferredMediaSelection)
+ /hasDMS false def
+ currentpagedevice
+ {
+ /DeferredMediaSelection eq { /hasDMS true def } if
+ pop % throw value of key
+ } forall
+ hasDMS {
+ <<
+ /DeferredMediaSelection true % what exactly is this?
+ >>
+ setpagedevice
+ } if
+ <<
+ % /DeferredMediaSelection true % what exactly is this?
+ /PageSize [792 1224] % size US ledger portrait
+ /ImagingBBox null % set null after /PageSize
+ >>
+ setpagedevice
+ }
+ { }
+ ifelse
+%
+ { % start a procedure so PostScript `ignores' the dvips configuration part.
+h config.usledger
+ } pop % PostScript cleanup
+%
+% EOF config.usledger