home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume10 / a2ps3 / header.ps < prev    next >
Encoding:
Text File  |  1990-02-16  |  7.9 KB  |  267 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 (by default A4 format).
  15. %    3) Minor changes (reorganization, comments, etc).
  16. %  - Modified by tullemans@apolloway.prl.philips.nl
  17. %    1) Correct stack overflows with regard to operators cvs and copy.
  18. %       The resulting substrings where in some cases not popped off 
  19. %       the stack, what can result in a stack overflow.
  20. %    2) Replaced copypage and erasepage by showpage. Page througput
  21. %       degrades severely (see red book page 140) on our ps-printer
  22. %       after printing sheet 16 (i.e. page 8) of a file which was 
  23. %       actually bigger. For this purpose the definitions of startdoc
  24. %       and startpage are changed.
  25. %  - Modified by Tim Clark <T.Clark@uk.ac.warwick> to:
  26. %    1) Print one page per sheet (portrait) as an option.
  27. %    2) Reduce size of file name heading, if it's too big.
  28. %    3) Save and restore PostScript state at begining/end. It now uses
  29. %    conventional %%Page %%Trailer markers.
  30. %    4) Print one wide page per sheet in landscape mode as an option.
  31. %  - Modified by miguel@imag.fr to
  32. %    1) Add new option to print n copies of a file.
  33. %    2) Add new option to suppress heading printing.
  34. %    3) Add new option to suppress page surrounding border printing.
  35. %    4) Add new option to change font size. Number of lines and columns
  36. %    are now automatically adjusted, depending on font size and
  37. %    printing mode used.
  38. %    5) Minor changes (best layout, usage message, etc).
  39. %
  40.  
  41. % Copyright (c) 1988, Miguel Santana, miguel@imag.imag.fr
  42. %
  43. % Permission is granted to copy and distribute this file in modified
  44. % or unmodified form, for noncommercial use, provided (a) this copyright
  45. % notice is preserved, (b) no attempt is made to restrict redistribution
  46. % of this file, and (c) this file is not distributed as part of any
  47. % collection whose redistribution is restricted by a compilation copyright.
  48. %
  49.  
  50.  
  51. % General macros.
  52. /xdef {exch def} bind def
  53. /getfont {exch findfont exch scalefont} bind def
  54.  
  55. % Page description variables and inch function are defined by a2ps program.
  56.  
  57. % Character size for differents fonts.
  58.    landscape
  59.    { /filenamefontsize 12 def }
  60.    { /filenamefontsize 16 def }
  61. ifelse
  62. /datefontsize filenamefontsize 0.8 mul def
  63. /headermargin filenamefontsize 0.25 mul def
  64. /bodymargin bodyfontsize 0.7 mul def
  65.  
  66. % Font assignment to differents kinds of "objects"
  67. /filenamefontname /Helvetica-Bold def
  68. /stdfilenamefont filenamefontname filenamefontsize getfont def
  69. /datefont /Helvetica datefontsize getfont def
  70. /bodyfont /Courier bodyfontsize getfont def
  71.  
  72. % Logical page attributs (a half of a real page or sheet).
  73. /pagewidth
  74.    bodyfont setfont (0) stringwidth pop columns mul bodymargin dup add add
  75.    def
  76. /pageheight
  77.    bodyfontsize lines mul bodymargin dup add add headersize add
  78.    def
  79.  
  80. % Coordinates for upper corner of a logical page and for sheet number.
  81. % Coordinates depend on format mode used.
  82. % In twinpage mode, coordinate x of upper corner is not the same for left
  83. % and right pages: upperx is an array of two elements, indexed by sheetside.
  84. /rightmargin margin 3 div def
  85. /leftmargin margin 2 mul 3 div def
  86. /topmargin margin twinpage {3} {2} ifelse div def
  87. landscape
  88. {  % Landscape format
  89.    /uppery rightmargin pageheight add bodymargin add def
  90.    /sheetnumbery sheetwidth leftmargin pageheight add datefontsize add sub def
  91.    twinpage
  92.    {  % Two logical pages
  93.       /upperx [ topmargin            % upperx for left page
  94.         dup 2 mul pagewidth add        % upperx for right page
  95.           ] def
  96.       /sheetnumberx sheetheight topmargin sub def
  97.    }
  98.    {  /upperx [ topmargin dup ] def
  99.       /sheetnumberx sheetheight topmargin sub datefontsize sub def
  100.    }
  101.    ifelse
  102. }
  103. {  % Portrait format
  104.    /uppery topmargin pageheight add def
  105.    /upperx [ leftmargin dup ] def
  106.    /sheetnumberx sheetwidth rightmargin sub datefontsize sub def
  107.    /sheetnumbery
  108.      sheetheight 
  109.      topmargin pageheight add datefontsize add headermargin add
  110.       sub
  111.       def
  112.  
  113. }
  114. ifelse
  115.  
  116. % Strings used to make easy printing numbers
  117. /pnum 12 string def
  118. /empty 12 string def
  119.  
  120. % Other initializations.
  121. /datewidth date stringwidth pop def
  122. /filenameroom
  123.          pagewidth
  124.      filenamefontsize 4 mul datewidth add (Page 999) stringwidth pop add
  125.       sub
  126.    def
  127.  
  128.  
  129. % Function startdoc: initializes printer and global variables.
  130. /startdoc
  131.     { /sheetside 0 def            % sheet side that contains current page
  132.       /sheet 1 def            % sheet number
  133.    } bind def
  134.  
  135. % Function newfile: init file name and reset page number for each new file.
  136. /newfile
  137.     { cleanup
  138.       /filename xdef
  139.       /filenamewidth filename stringwidth pop def
  140.       /filenamefont
  141.      filenamewidth filenameroom gt
  142.      {
  143.            filenamefontname
  144.            filenamefontsize filenameroom mul filenamewidth div
  145.         getfont
  146.      }
  147.      {  stdfilenamefont }
  148.      ifelse
  149.      def
  150.       /pagenum 1 def
  151.     } bind def
  152.  
  153. % Function printpage: Print a physical page.
  154. /printpage
  155.     { /sheetside 0 def
  156.       twinpage
  157.       {  noborder not
  158.         { sheetnumber }
  159.      if
  160.       }
  161.       {  noheader noborder not and
  162.         { sheetnumber }
  163.      if
  164.       }
  165.       ifelse
  166.       showpage 
  167. %      pagesave restore
  168.       /sheet sheet 1 add def
  169.     } bind def
  170.  
  171. % Function cleanup: terminates printing, flushing last page if necessary.
  172. /cleanup
  173.     { twinpage sheetside 1 eq and
  174.          { printpage }
  175.       if
  176.     } bind def
  177.  
  178. %
  179. % Function startpage: prints page header and page border and initializes
  180. % printing of the file lines.
  181. /startpage
  182.     { sheetside 0 eq
  183.     { % /pagesave save def
  184.       landscape
  185.         { sheetwidth 0 inch translate    % new coordinates system origin
  186.           90 rotate                % landscape format
  187.         } if
  188.     } if
  189.       noborder not { printborder } if
  190.       noheader not { printheader } if
  191.      upperx sheetside get  bodymargin  add
  192.         uppery
  193.         bodymargin bodyfontsize add  noheader {0} {headersize} ifelse  add
  194.      sub
  195.       moveto
  196.       bodyfont setfont
  197.     } bind def
  198.  
  199. % Function printheader: prints page header.
  200. /printheader
  201.     { upperx sheetside get  uppery headersize sub 1 add  moveto
  202.       datefont setfont
  203.       gsave
  204.         datefontsize headermargin rmoveto
  205.     date show                    % date/hour
  206.       grestore
  207.       gsave
  208.     pagenum pnum cvs pop
  209.        pagewidth (Page 999) stringwidth pop sub
  210.        headermargin
  211.     rmoveto
  212.         (Page ) show pnum show                % page number
  213.       grestore
  214.       empty pnum copy pop
  215.       gsave
  216.         filenamefont setfont
  217.           filenameroom filename stringwidth pop sub 2 div datewidth add
  218.           bodymargin 2 mul 
  219.        add 
  220.        headermargin
  221.     rmoveto
  222.         filename show                        % file name
  223.       grestore
  224.     } bind def
  225.  
  226. % Function printborder: prints border page.
  227. /printborder 
  228.     { upperx sheetside get uppery moveto
  229.       gsave                    % print the four sides
  230.         pagewidth 0 rlineto            % of the square
  231.         0 pageheight neg rlineto
  232.         pagewidth neg 0 rlineto
  233.         closepath stroke
  234.       grestore
  235.       noheader not
  236.          { 0 headersize neg rmoveto pagewidth 0 rlineto stroke }
  237.       if
  238.     } bind def
  239.  
  240. %
  241. % Function endpage: adds a sheet number to the page (footnote) and prints
  242. % the formatted page (physical impression). Activated at the end of each
  243. % source page (lines reached or FF character).
  244. /endpage
  245.    { /pagenum pagenum 1 add def
  246.      twinpage  sheetside 0 eq  and
  247.         { /sheetside 1 def }
  248.         { printpage }
  249.      ifelse
  250.    } bind def
  251.  
  252. % Function sheetnumber: prints the sheet number.
  253. /sheetnumber
  254.     { sheetnumberx sheetnumbery moveto
  255.       datefont setfont
  256.       sheet pnum cvs
  257.      dup stringwidth pop (0) stringwidth pop sub neg 0 rmoveto show
  258.       empty pnum copy pop
  259.     } bind def
  260.  
  261. % Function s: print a source line
  262. /s  { gsave
  263.         show
  264.       grestore
  265.       0 bodyfontsize neg rmoveto
  266.     } bind def
  267.