home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-alpha / enscript-1.4.0-bin.lha / share / enscript / simple.hdr < prev    next >
Encoding:
Text File  |  1996-10-14  |  1.2 KB  |  44 lines
  1. % 
  2. % Default simple 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. % the Free Software Foundation, 59 Temple Place - Suite 330,
  23. % Boston, MA 02111-1307, USA.
  24. %
  25.  
  26. % -- code follows this line --
  27. %Format: fmodstr    $D{%a %b %2d %T %Y}
  28.  
  29. /do_header {    % print default simple header
  30.   gsave
  31.     d_header_x d_header_y HFpt 3 div add translate
  32.  
  33.     HF setfont
  34.     user_header_p {
  35.       5 0 moveto user_header_str show
  36.     } {
  37.       5 0 moveto fname show
  38.       45 0 rmoveto fmodstr show
  39.       45 0 rmoveto pagenum 10 string cvs show
  40.     } ifelse
  41.  
  42.   grestore
  43. } def
  44.