diff options
author | Karl Berry <karl@freefriends.org> | 2006-08-13 23:51:12 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-08-13 23:51:12 +0000 |
commit | eace4bae1f9818749d503e8859767821618a0220 (patch) | |
tree | 599f1deaea72208ba096df9d7d8d7118bd4338d9 /Master/texmf-dist/dvips/dvipsconfig/config.usledger | |
parent | ad1d09658f9af8b50c69d1c5bdf9b92623ebbba4 (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.usledger | 52 |
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 |