% === BEGIN ps-print prologue 1
-% version: 6.0
+% version: 6.1
+
+% Copyright (C) 2000-2011 Free Software Foundation, Inc.
-% Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
-%
% This file is part of GNU Emacs.
-%
-% GNU Emacs is free software; you can redistribute it and/or modify
+
+% GNU Emacs is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2, or (at your option)
-% any later version.
-%
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+
% GNU Emacs is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
% GNU General Public License for more details.
-%
+
% You should have received a copy of the GNU General Public License
-% along with GNU Emacs; see the file COPYING. If not, write to the
-% Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-% Boston, MA 02110-1301, USA.
+% along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
% As a special exception, the copyright holders of this module give
% you permission to include the module in a Postscript file generated
% stack: --
/printBackground{
/BackgroundColor where{
+ /LHg LineHeight 0.65 mul def
+ /PHg PrintHeight LHg add def
pop gsave BackgroundColor SetColor
NumberOfColumns{
gsave
- 0 LineHeight 0.65 mul rmoveto
+ 0 LHg rmoveto
PrintWidth 0 rlineto
- 0 PrintHeight neg rlineto
+ 0 PHg neg rlineto
PrintWidth neg 0 rlineto
- 0 PrintHeight rlineto
+ 0 PHg rlineto
fill
grestore
PrintWidth InterColumn add 0 rmoveto
/is_right exch def
HFStart moveto
{ % ---- process the lines
- dup 0 get F
+ aload pop
+ exch F
gsave
+ dup xcheck{exec}if
is_right{
- PrintHeaderWidth HFPad HFPad add sub 0 rmoveto
- dup{
- dup type /nametype eq{
- pop
- }{
- dup xcheck{exec}if
- stringwidth pop neg 0 rmoveto
- }ifelse
- } forall
+ dup stringwidth pop
+ PrintHeaderWidth exch sub HFPad HFPad add sub 0 rmoveto
}if
HFColor SetColor
- {
- dup type /nametype eq {
- pop
- }{
- dup xcheck{exec}if
- show
- } ifelse
- } forall
+ show
grestore
0 HFLineHeight neg rmoveto
}forall