1 rizwank 1.1 %
 2             % `emacs.hdr' with file modification time and current time
 3             % Copyright (c) 1995, 1996, 1997 Markku Rossi.
 4             % Author: Markku Rossi <mtr@iki.fi>
 5             %
 6             
 7             % This file is part of GNU enscript.
 8             %
 9             % This program is free software; you can redistribute it and/or modify
10             % it under the terms of the GNU General Public License as published by
11             % the Free Software Foundation; either version 2, or (at your option)
12             % any later version.
13             %
14             % This program is distributed in the hope that it will be useful,
15             % but WITHOUT ANY WARRANTY; without even the implied warranty of
16             % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17             % GNU General Public License for more details.
18             %
19             % You should have received a copy of the GNU General Public License
20             % along with this program; see the file COPYING.  If not, write to
21             % the Free Software Foundation, 59 Temple Place - Suite 330,
22 rizwank 1.1 % Boston, MA 02111-1307, USA.
23             %
24             
25             % -- code follows this line --
26             %%DocumentNeededResources: font Helvetica
27             %Format: fmodstr	$D{%a %b %d %H:%M:%S %Y}
28             %Format: datestr	%D{%a %b %d %H:%M:%S %Y}
29             %Format: pagenumstr	$V$%/$=
30             
31             % Fonts.
32             /Helvetica /HeaderFont-Bold MF
33             /HeaderF /HeaderFont-Bold findfont 13 scalefont def
34             
35             /Helvetica /HeaderFont-Large MF
36             /HeaderLF /HeaderFont-Large findfont 13 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 fname 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 fmodstr show
70             
71                 datestr dup stringwidth pop
72                 d_header_w exch sub 1 sub xmarg sub y moveto show
73             
74               grestore
75             } def