1 rizwank 1.1 %
 2             % a2ps styled header.
 3             % Copyright (c) 1996-1999 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             %Format: userstr	Printed by %N
28             %Format: datestr	%D{%d %b %Y %H:%M}
29             %Format: fmodstr	$D{%d %b %Y %H:%M}
30             %Format: upperpagestr	Page $V$%/$=
31             %Format: lowerpagestr	page $p
32             
33             %HeaderHeight: 36
34             %FooterHeight: 12
35             
36             % Fonts.
37             /Helvetica /helvetica-encoded MF
38             /SmallFont /helvetica-encoded findfont 10 scalefont def
39             
40             /Helvetica-Bold /helvetica-bold-encoded MF
41             /BigFont   /helvetica-bold-encoded findfont 12 scalefont def
42             
43 rizwank 1.1 /a2ps_marg 10 def
44             
45             /do_header {	% print a2ps header
46               gsave
47                 % lowerpagestr
48                 SmallFont setfont
49                 d_footer_x d_footer_w add lowerpagestr stringwidth pop sub
50                 a2ps_marg sub
51                 d_footer_y moveto lowerpagestr show
52             
53                 % current date in footer
54                 SmallFont setfont
55                 d_footer_x a2ps_marg add d_footer_y moveto datestr show
56             
57                 % full filename in footer
58                 SmallFont setfont
59                 d_footer_x d_footer_w 2 div add fname stringwidth pop 2 div sub
60                 d_footer_y moveto fname show
61             
62                 % gray box to header
63                 .95 setgray
64 rizwank 1.1     d_header_x d_header_y d_header_w 24 Box fill
65                 0 setgray
66             
67                 % borders.
68                 .5 setlinewidth
69                 d_header_x d_header_y d_header_w 24 Box stroke
70             
71                 % userstr
72                 d_header_x d_header_w add userstr stringwidth pop sub a2ps_marg sub
73                 d_header_y 29 add moveto userstr show
74             
75                 % datestr
76                 d_header_x a2ps_marg add d_header_y 6 add moveto fmodstr show
77             
78                 % upperpagestr
79                 d_header_x d_header_w add upperpagestr stringwidth pop sub
80                 a2ps_marg sub
81                 d_header_y 6 add moveto upperpagestr show
82             
83                 % filename
84                 BigFont setfont
85 rizwank 1.1     d_header_x d_header_w 2 div add ftail stringwidth pop 2 div sub
86                 d_header_y 6 add moveto ftail show
87               grestore
88             } def