1 rizwank 1.1 %
 2             % Squeezed `Emacs ps-print-buffer' styled header.
 3             % Copyright (c) 1998 Markku Rossi.
 4             % Author: Markku Rossi <mtr@iki.fi>
 5             %
 6             
 7             %
 8             % This file is part of GNU enscript.
 9             %
10             % This program is free software; you can redistribute it and/or modify
11             % it under the terms of the GNU General Public License as published by
12             % the Free Software Foundation; either version 2, or (at your option)
13             % any later version.
14             %
15             % This program is distributed in the hope that it will be useful,
16             % but WITHOUT ANY WARRANTY; without even the implied warranty of
17             % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18             % GNU General Public License for more details.
19             %
20             % You should have received a copy of the GNU General Public License
21             % along with this program; see the file COPYING.  If not, write to
22 rizwank 1.1 % the Free Software Foundation, 59 Temple Place - Suite 330,
23             % Boston, MA 02111-1307, USA.
24             %
25             
26             % -- code follows this line --
27             %%DocumentNeededResources: font Helvetica
28             %HeaderHeight:	20
29             %Format: eurdatestr	%E
30             %Format: pagenumstr	$V$%/$=
31             
32             % Fonts.
33             /Helvetica /HeaderFont-Large MF
34             /HeaderLF /HeaderFont-Large findfont 12 1.3 mul scalefont def
35             
36             /do_header {	% print the header
37               gsave
38                 d_header_x d_header_y translate
39                 0 setgray
40             
41                 % Horizontal line.
42                 0 1 moveto d_header_w 0 rlineto stroke
43 rizwank 1.1 
44                 % texts
45             
46                 HeaderLF setfont
47                 /y 6 def
48                 5 y moveto ftail show
49             
50                 72 0 rmoveto
51                 pagenumstr show
52               grestore
53             } def