1 rizwank 1.1 % 
 2             % Emacs ps-print-buffer styled header.
 3             % Copyright (c) 1995 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             %Format: eurdatestr	%E
29             %Format: pagenumstr	$V$%/$=
30             
31             % Fonts.
32             /Helvetica /HeaderFont-Bold MF
33             /HeaderF /HeaderFont-Bold findfont 12 scalefont def
34             
35             /Helvetica /HeaderFont-Large MF
36             /HeaderLF /HeaderFont-Large findfont 12 1.3 mul scalefont def
37             
38             /do_header {	% print emacs header
39               gsave
40                 d_header_x d_header_y translate
41                 0 setgray
42                 .5 setlinewidth
43 rizwank 1.1 
44                 % black shadow
45                 1 0 d_header_w 1 sub d_header_h 1 sub Box fill
46                 
47                 % gray box with black frames
48                 0 1 d_header_w 1 sub d_header_h 1 sub Box
49                 gsave
50                   .9 setgray fill
51                 grestore
52                 stroke
53                 
54                 % texts
55             
56                 /xmarg 5 def
57             
58                 % Top line.
59                 HeaderLF setfont
60                 /y d_header_h 12 div d_header_h 2 div add def 
61                 xmarg y moveto ftail show
62             
63                 pagenumstr dup stringwidth pop 
64 rizwank 1.1     d_header_w exch sub 1 sub xmarg sub y moveto show
65             
66                 % Bottom line
67                 HeaderF setfont
68                 /y d_header_h 6 div def
69                 xmarg y moveto fdir show
70             
71                 eurdatestr dup stringwidth pop
72                 d_header_w exch sub 1 sub xmarg sub y moveto show
73             
74               grestore
75             } def