home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 19 Printer / 19-Printer.zip / PS_LIST.ZIP / HEADER.PS < prev    next >
Text File  |  1989-10-19  |  5KB  |  177 lines
  1. %!  PostScript Source Code
  2. %
  3. %  File: imag:/users/local/a2ps/header.ps
  4. %  Created: Tue Nov 29 12:14:02 1988 by miguel@imag (Miguel Santana)
  5. %  Version: 2.0
  6. %  Description: PostScript prolog for a2ps ascii to PostScript program.
  7. % 
  8. %  Edit History:
  9. %  - Original version by evan@csli (Evan Kirshenbaum).
  10. %  - Modified by miguel@imag to:
  11. %    1) Correct an overflow bug when printing page number 10 (operator
  12. %    cvs).
  13. %    2) Define two other variables (sheetwidth, sheetheight) describing
  14. %    the physical page (actually A4 format).
  15. %    3) Minor changes (reorganization, comments, etc).
  16. %
  17.  
  18. % Copyright (c) 1988, Miguel Santana, miguel@imag.imag.fr
  19. %
  20. % Permission is granted to copy and distribute this file in modified
  21. % or unmodified form, for noncommercial use, provided (a) this copyright
  22. % notice is preserved, (b) no attempt is made to restrict redistribution
  23. % of this file, and (c) this file is not distributed as part of any
  24. % collection whose redistribution is restricted by a compilation copyright.
  25. %
  26.  
  27.  
  28. % General macros.
  29. /xdef {exch def} bind def
  30. /inch {72 mul} bind def
  31. /getfont {exch findfont exch scalefont} bind def
  32.  
  33. % Dimensions of a physical page.
  34. /sheetwidth 11.7 inch def
  35. /sheetheight 8.25 inch def
  36.  
  37. % Character size for differents fonts.
  38. /filenamefontsize 12 def
  39. /datefontsize filenamefontsize 2 sub def
  40. /headerfontsize filenamefontsize 4 add def
  41. /bodyfontsize 6.8 def
  42.  
  43. % Font assignment to differents kinds of "objects"
  44. /filenamefont /Helvetica-Bold filenamefontsize getfont def
  45. /datefont /Helvetica datefontsize getfont def
  46. /bodyfont /Courier bodyfontsize getfont def
  47.  
  48.  
  49. % Logical page attributs (a half of a real page or sheet).
  50. /linesperpage 66 def
  51. /sidemargin 4 def
  52. /topmargin 4 def
  53. /pagewidth 
  54.    bodyfont setfont (0) stringwidth pop 86 mul sidemargin dup add add
  55.    def
  56. /pageheight
  57.    bodyfontsize linesperpage mul topmargin dup add add headerfontsize add
  58.    def
  59.  
  60. % Upper corner for a logical page. Coordinate x is not the same for left
  61. % and right pages: upperx is an array of two elements, indexed by sheetside.
  62. /uppery sheetheight pageheight add 2 div def
  63. /upperx [ sheetwidth pagewidth 2 mul sub 3 div    % upperx for left page
  64.           dup 2 mul pagewidth add        % upperx for right page
  65.         ] def
  66.  
  67. % String used to make easy printing numbers
  68. /pnum 12 string def
  69. /empty 12 string def
  70.  
  71.  
  72. % Function startdoc: initializes printer and global variables.
  73. /startdoc
  74.     { sheetheight 0 inch translate    % new origin for the coordinate system
  75.       90 rotate                % landscape format
  76.       /sheetside 0 def            % sheet side that contains current page
  77.       /sheet 1 def            % sheet number
  78.     } bind def
  79.  
  80. % Function newfile: init file name and reset page number for each new file.
  81. /newfile
  82.     { /filename xdef
  83.       /pagenum 1 def 
  84.       cleanup
  85.     } bind def
  86.  
  87. % Function cleanup: terminates printing, flushing last page if necessary.
  88. /cleanup
  89.     { sheetside 1 eq
  90.          { /sheetside 0 def
  91.            sheetnumber
  92.            /sheet sheet 1 add def
  93.            copypage
  94.            erasepage
  95.          }
  96.       if
  97.     } bind def
  98.  
  99. %
  100. % Function startpage: prints page header and page border and initializes
  101. % printing of the file lines.
  102. /startpage
  103.     { printheader
  104.       printborder
  105.       upperx sheetside get  sidemargin  add
  106.       uppery topmargin sub  bodyfontsize  sub  headerfontsize  sub
  107.          moveto
  108.       bodyfont setfont
  109.     } bind def
  110.  
  111. % Function printheader: prints page header.
  112. /printheader
  113.     { upperx sheetside get  uppery headerfontsize sub 1 add  moveto
  114.       datefont setfont
  115.       gsave
  116.         sidemargin 2 rmoveto date show                % date/hour
  117.       grestore
  118.       gsave
  119.         pagenum pnum cvs
  120.         pagewidth sidemargin sub pnum stringwidth pop sub
  121.         (Page ) stringwidth pop sub 3 rmoveto
  122.         (Page ) show pnum show                    % page number
  123.       grestore
  124.       empty pnum copy
  125.       gsave
  126.         filenamefont setfont
  127.         pagewidth filename stringwidth pop sub 2 div 2 rmoveto
  128.         filename show                        % file name
  129.       grestore
  130.     } bind def
  131.  
  132. % Function printborder: prints border page.
  133. /printborder 
  134.     { upperx sheetside get uppery moveto
  135.       gsave                    % print the four sides
  136.         pagewidth 0 rlineto            % of the square
  137.         0 pageheight neg rlineto
  138.         pagewidth neg 0 rlineto
  139.         closepath stroke
  140.       grestore
  141.       0 headerfontsize neg rmoveto pagewidth 0 rlineto stroke
  142.     } bind def
  143.  
  144. %
  145. % Function endpage: adds a sheet number to the page (footnote) and prints
  146. % the formatted page (physical impression). Activated at the end of each
  147. % source page (linesperpage reached or FF character).
  148. /endpage
  149.    { sheetside 1 eq
  150.         { /sheetside 0 def
  151.           sheetnumber
  152.           copypage
  153.           erasepage 
  154.           /sheet sheet 1 add def
  155.         }
  156.         { /sheetside 1 def }
  157.      ifelse
  158.      /pagenum pagenum 1 add def
  159.     } bind def
  160.  
  161. % Function sheetnumber: prints the sheet number.
  162. /sheetnumber
  163.     { sheetwidth  upperx 0 get  sub  sidemargin  add
  164.       sheetheight  uppery  sub  headerfontsize  sub
  165.          moveto
  166.       datefont setfont
  167.       sheet pnum cvs show
  168.       empty pnum copy
  169.     } bind def
  170.  
  171. % Function s: print a source line
  172. /s  { gsave
  173.         show
  174.       grestore
  175.       0 bodyfontsize neg rmoveto
  176.     } bind def
  177.