summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/dvipsconfig/config.duplong
blob: 51ace8d412c31cf93520c7483f0d7db97ddb588e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
%!
% config.duplong
% Configuration and header file for dvips. Load with: dvips -P duplong
%
% Prints in duplex mode with binding on the long edge if the printer
% has a duplex unit, otherwise it will be ignored.
% Works on: HP LaserJet IIISi, HP LJ 4m, 4m+, 4mv, 5, gs 3.33, 5.10, 6.0.
%
% 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>
%   20 Feb 1995, 16, 18 Jan 1998, 5 Feb 1998; 9, 22 Mar 2000
%
 %statusdict begin true setduplexmode false settumble end
 /setpagedevice where {
 	pop % throw dict name
 	% gs 3.33 does not have /Duplex, /Tumble in pagedevice dict
 	currentpagedevice /Duplex known {
 		%<< /Duplex true >>  % << >> are level 2 only
 		/tmpdict 1 dict def tmpdict /Duplex true put tmpdict
 		setpagedevice
 	} if
 	currentpagedevice /Tumble known {
 		/tmpdict 1 dict def tmpdict /Tumble false put tmpdict
 		setpagedevice
 	} if
 }{
 	statusdict begin
 		true setduplexmode false settumble
 		% this does not work with gs 3.33 (undefined error)
 	end
 } ifelse
%
 { % start a procedure so PostScript `ignores' the dvips configuration part.
h config.duplong
 } pop % PostScript cleanup
%
% EOF config.duplong