home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-alpha / enscript-1.4.0-bin.lha / share / enscript / a2ps.hdr next >
Encoding:
Text File  |  1996-10-14  |  2.2 KB  |  80 lines
  1. % 
  2. % a2ps styled header.
  3. % Copyright (c) 1996 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. % 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 from %M
  28. %Format: datestr    %D{%b %d %Y %H:%M}
  29. %Format: upperpagestr    Page $%
  30. %Format: lowerpagestr    $%
  31.  
  32. %HeaderHeight: 38
  33. %FooterHeight: 15
  34.  
  35. % Fonts.
  36. /Helvetica /helvetica-encoded MF
  37. /SmallFont /helvetica-encoded findfont 12 scalefont def
  38.  
  39. /Helvetica-Bold /helvetica-bold-encoded MF
  40. /BigFont   /helvetica-bold-encoded findfont 15 scalefont def
  41.  
  42. /a2ps_marg 10 def
  43.  
  44. /do_header {    % print a2ps header
  45.   gsave
  46.     % lowerpagestr
  47.     SmallFont setfont
  48.     d_footer_x d_footer_w add lowerpagestr stringwidth pop sub
  49.     a2ps_marg sub
  50.     d_footer_y moveto lowerpagestr show
  51.  
  52.     % gray box to header
  53.     .95 setgray
  54.     d_header_x d_header_y d_header_w 24 Box fill
  55.     0 setgray
  56.  
  57.     % borders.
  58.     .5 setlinewidth
  59.     d_header_x d_header_y d_header_w 24 Box stroke
  60.     d_footer_x d_footer_y d_footer_h add d_output_w d_output_h Box stroke
  61.  
  62.     % userstr
  63.     d_header_x d_header_w add userstr stringwidth pop sub a2ps_marg sub 
  64.     d_header_y 29 add moveto userstr show
  65.  
  66.     % datestr
  67.     d_header_x a2ps_marg add d_header_y 6 add moveto datestr show
  68.  
  69.     % upperpagestr
  70.     d_header_x d_header_w add upperpagestr stringwidth pop sub
  71.     a2ps_marg sub 
  72.     d_header_y 6 add moveto upperpagestr show
  73.  
  74.     % filename
  75.     BigFont setfont
  76.     d_header_x d_header_w 2 div add ftail stringwidth pop 2 div sub 
  77.     d_header_y 6 add moveto ftail show
  78.   grestore
  79. } def
  80.