diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/dvipsconfig/config.usledger |
Initial commit
Diffstat (limited to 'dviware/dvipsconfig/config.usledger')
-rw-r--r-- | dviware/dvipsconfig/config.usledger | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/dviware/dvipsconfig/config.usledger b/dviware/dvipsconfig/config.usledger new file mode 100644 index 0000000000..27f10c5350 --- /dev/null +++ b/dviware/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 |