annotate etc/ps-prin0.ps @ 102304:fc2d893e4dc7

* elisp.texi (Top): Update node listing. * variables.texi (Variables): Clarify introduction. (Global Variables): Mention that setq is a special form. (Local Variables): Use active voice. (Tips for Defining): Mention marking variables as safe. (Buffer-Local Variables): Mention terminal-local and frame-local variables together. (File Local Variables): Copyedits. (Frame-Local Variables): Note that they are not really useful. (Future Local Variables): Node deleted.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 27 Feb 2009 03:58:34 +0000
parents c90853557b90
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 % === BEGIN ps-print prologue 0
31252
cdd489417ae4 Changed comment version (6.0).
Gerd Moellmann <gerd@gnu.org>
parents: 29497
diff changeset
2 % version: 6.0
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
3
100972
c90853557b90 Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 95004
diff changeset
4 % Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
75449
2c5d29f90b94 Update copyright with years from Emacs-21 to present.
Glenn Morris <rgm@gnu.org>
parents: 64083
diff changeset
5 % Free Software Foundation, Inc.
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
6
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
7 % This file is part of GNU Emacs.
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
8
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
9 % GNU Emacs is free software: you can redistribute it and/or modify
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
10 % it under the terms of the GNU General Public License as published by
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
11 % the Free Software Foundation, either version 3 of the License, or
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
12 % (at your option) any later version.
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
13
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
14 % GNU Emacs is distributed in the hope that it will be useful,
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
15 % but WITHOUT ANY WARRANTY; without even the implied warranty of
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
16 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
17 % GNU General Public License for more details.
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
18
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
19 % You should have received a copy of the GNU General Public License
95004
cbf5528cf447 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79770
diff changeset
20 % along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
36223
b5a4db21c424 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 31252
diff changeset
21
46014
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
22 % As a special exception, the copyright holders of this module give
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
23 % you permission to include the module in a Postscript file generated
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
24 % by Emacs or other free software together with the result of
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
25 % converting text to be printed, regardless of the license terms of
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
26 % that text, and to use under terms of your choice the page images
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
27 % resulting from formatting said combination. If you modify this
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
28 % module, you may extend this exception to your version of the module
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
29 % but you are not obligated to do so. If you do not wish to do so,
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
30 % delete this exception statement from your version.
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
31
e5675426ff4c Add license exception.
Richard M. Stallman <rms@gnu.org>
parents: 36223
diff changeset
32
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 %%BeginProcSet: ErrorHandler
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 % Downloaded Error Break-page handler
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35 % Adapted from:
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 % PostScript Language Program Design,
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37 % Adobe Systems Incorporated.
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38 % Appendix A, pages 217-219
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 /ps$brkpage where{pop}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 {
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 /ps$brkpage 64 dict def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 ps$brkpage begin
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
44 /tx 0 def/ty 0 def/toy 0 def/tox 0 def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 /prnt{
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
46 dup type/stringtype ne{=string cvs}if
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 dup length 6 mul
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
48 /tx exch def/ty 10 def
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
49 currentpoint/toy exch def/tox exch def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 1 setgray newpath
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51 tox toy 2 sub moveto
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 0 ty rlineto tx 0 rlineto
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53 0 ty neg rlineto
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 closepath fill
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 tox toy moveto 0 setgray show
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 }bind def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 /nl{currentpoint exch pop lmargin exch moveto 0 -10 rmoveto}def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 /=={/cp 0 def typeprint nl}def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 /typeprint{dup type dup currentdict exch known{exec}{unknowntype}ifelse}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 /lmargin 72 def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 /rmargin 72 def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62 /tprint{
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
63 dup length cp add rmargin gt{nl/cp 0 def}if
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
64 dup length cp add/cp exch def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 prnt
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 }readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 /cvsprint{=string cvs tprint( )tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68 /unknowntype{exch pop cvlit(??)tprint cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69 /integertype{cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 /realtype{cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 /booleantype{cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 /operatortype{(//)tprint cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 /marktype{pop(-mark-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 /dicttype{pop(-dictionary-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 /nulltype{pop(-null-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 /filetype{pop(-filestream-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 /savetype{pop(-savelevel-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 /fonttype{pop(-fontid-)tprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 /nametype{dup xcheck not{(/)tprint}if cvsprint}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 /stringtype{
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 dup rcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 {(\()tprint tprint(\))tprint}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 {pop(-string-)tprint}ifelse}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 /arraytype{
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 dup rcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 {dup xcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 {({)tprint{typeprint}forall(})tprint}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 {([)tprint{typeprint}forall(])tprint}ifelse}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 {pop(-array-)tprint}ifelse}readonly def
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 /packedarraytype{
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91 dup rcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92 {dup xcheck
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 {({)tprint{typeprint}forall(})tprint}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 {([)tprint{typeprint}forall(])tprint}ifelse}
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 {pop(-packedarray-)tprint}ifelse}readonly def
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
96 /courier/Courier findfont 10 scalefont def
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
97 /OLDhandleerror errordict/handleerror get def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
98 end %ps$brkpage
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 /handleerror{
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 systemdict begin $error begin ps$brkpage begin
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 newerror
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
103 {/newerror false store vmstatus pop pop 0 ne{grestoreall}if
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
104 initgraphics
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105 ErrorMessage 1 and 0 ne{ % print on paper
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
106 courier setfont lmargin 720 moveto
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
107 (# ERROR: )prnt errorname prnt nl
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
108 (# OFFENDING COMMAND: )prnt/command load prnt
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
109 $error/ostack known
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
110 {nl nl(# STACK:)prnt nl nl $error/ostack get aload length{==}repeat}if
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
111 $error/errorinfo known
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
112 {nl nl(# ERRORINFO:)prnt nl nl $error/errorinfo get aload length{==}repeat}if
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
113 systemdict/showpage get exec}if
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
114 ErrorMessage 2 and 0 ne{ % send back to printing system
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
115 (\%\%[ Error: )print errorname =print
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
116 (; OffendingCommand: )print/command load =print
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
117 $error/errorinfo known
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
118 {(; ErrorInfo:)print $error/errorinfo get aload length{( )=print =print}repeat}if
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
119 ( ]\%\%)= flush
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
120 (\%\%[ Rest of job is ignored ]\%\%)= flush}if
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
121 /newerror true store}if
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
122 end end end
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
123 stop
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
124 } % handleerror
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
125 dup 0 systemdict put % replace name by actual dict object
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
126 dup 4 ps$brkpage put % replace name by dict object
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
127 bind readonly
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
128
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
129 errordict 3 1 roll put % put proc in errordict as /handleerror
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
130 }ifelse
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
131 %%EndProcSet
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
132
28764
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
133
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
134 % operators for language level 2 only
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
135
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
136 (<<)cvn where % << operator
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
137 {pop/BMark(<<)cvn load def}
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
138 {/BMark{mark}bind def}ifelse
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
139 (>>)cvn where % >> operator
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
140 {pop/EMark(>>)cvn load def}
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
141 {/EMark{counttomark 2 idiv dup dict begin{def}repeat pop currentdict end}bind def}ifelse
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
142 /setpagedevice where % setpagedevice
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
143 {pop}
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
144 {/setpagedevice{pop}bind def}ifelse
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
145 /packedarray where % packedarray
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
146 {pop}
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
147 {/packedarray{array astore readonly}bind def}ifelse
a94b3ce0fa8c *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents: 28427
diff changeset
148
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
149
28167
cb25a24ec3e1 Change /setduplexmode, /settumble, add /packedarray.
Gerd Moellmann <gerd@gnu.org>
parents: 28155
diff changeset
150 % device dependent operators
cb25a24ec3e1 Change /setduplexmode, /settumble, add /packedarray.
Gerd Moellmann <gerd@gnu.org>
parents: 28155
diff changeset
151
28427
15c0a66a4a8b Replace gs_languagelevel by languagelevel.
Gerd Moellmann <gerd@gnu.org>
parents: 28265
diff changeset
152 /DefOp{
15c0a66a4a8b Replace gs_languagelevel by languagelevel.
Gerd Moellmann <gerd@gnu.org>
parents: 28265
diff changeset
153 dup where{pop pop pop}
15c0a66a4a8b Replace gs_languagelevel by languagelevel.
Gerd Moellmann <gerd@gnu.org>
parents: 28265
diff changeset
154 {exch dup where{pop}{pop/pop}ifelse load def}ifelse}def
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
155
29497
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
156 /duplexmode/setduplexmode DefOp
0763a6ed0743 Insert a version number comment (5.2.2). Indentation fix.
Gerd Moellmann <gerd@gnu.org>
parents: 28764
diff changeset
157 /tumble/settumble DefOp
28155
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
158
f568116325f9 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
159 % === END ps-print prologue 0