Savannah Git Hosting - enscript.git/blob

1 %

2 % a2ps styled header.

4 % Author: Markku Rossi <mtr@iki.fi>

5 %

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 % the Free Software Foundation, 51 Franklin Street, Fifth Floor,

23 % Boston, MA 02110-1301, USA.

24 %

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

33 %HeaderHeight: 36

34 %FooterHeight: 12

36 % Fonts.

37 /Helvetica /helvetica-encoded MF

38 /SmallFont /helvetica-encoded findfont 10 scalefont def

40 /Helvetica-Bold /helvetica-bold-encoded MF

41 /BigFont /helvetica-bold-encoded findfont 12 scalefont def

43 /a2ps_marg 10 def

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

53 % current date in footer

54 SmallFont setfont

55 d_footer_x a2ps_marg add d_footer_y moveto datestr show

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

62 % gray box to header

63 .95 setgray

64 d_header_x d_header_y d_header_w 24 Box fill

65 0 setgray

67 % borders.

68 .5 setlinewidth

69 d_header_x d_header_y d_header_w 24 Box stroke

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

75 % datestr

76 d_header_x a2ps_marg add d_header_y 6 add moveto fmodstr show

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

83 % filename

84 BigFont setfont

85 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