home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-alpha / enscript-1.4.0-bin.lha / share / enscript / edd.hdr < prev    next >
Encoding:
Text File  |  1996-10-14  |  2.0 KB  |  75 lines
  1. %
  2. % `emacs.hdr' with file modification time and current time
  3. % Copyright (c) 1995 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. % Boston, MA 02111-1307, USA.
  23. %
  24.  
  25. % -- code follows this line --
  26. %%DocumentNeededResources: font Helvetica
  27. %Format: fmodstr    $D{%a %b %2d %T %Y}
  28. %Format: datestr    %D{%a %b %2d %T %Y}
  29.  
  30. % Fonts.
  31. /Helvetica /HeaderFont-Bold MF
  32. /HeaderF /HeaderFont-Bold findfont 13 scalefont def
  33.  
  34. /Helvetica /HeaderFont-Large MF
  35. /HeaderLF /HeaderFont-Large findfont 13 1.3 mul scalefont def
  36.  
  37. /do_header {    % print emacs header
  38.   gsave
  39.     d_header_x d_header_y translate
  40.     0 setgray
  41.     .5 setlinewidth
  42.  
  43.     % black shadow
  44.     1 0 d_header_w 1 sub d_header_h 1 sub Box fill
  45.     
  46.     % gray box with black frames
  47.     0 1 d_header_w 1 sub d_header_h 1 sub Box
  48.     gsave
  49.       .9 setgray fill
  50.     grestore
  51.     stroke
  52.     
  53.     % texts
  54.  
  55.     /xmarg 5 def
  56.  
  57.     % Top line.
  58.     HeaderLF setfont
  59.     /y d_header_h 12 div d_header_h 2 div add def 
  60.     xmarg y moveto fname show
  61.  
  62.     pagenum 10 string cvs dup stringwidth pop 
  63.     d_header_w exch sub 1 sub xmarg sub y moveto show
  64.  
  65.     % Bottom line
  66.     HeaderF setfont
  67.     /y d_header_h 6 div def
  68.     xmarg y moveto fmodstr show
  69.  
  70.     datestr dup stringwidth pop
  71.     d_header_w exch sub 1 sub xmarg sub y moveto show
  72.  
  73.   grestore
  74. } def
  75.