1% PostScript Prologue -*- postscript -*- 2% 3 4% 5% This file is part of a2ps. 6% 7% This program is free software; you can redistribute it and/or modify 8% it under the terms of the GNU General Public License as published by 9% the Free Software Foundation; either version 2, or (at your option) 10% any later version. 11% 12% This program is distributed in the hope that it will be useful, 13% but WITHOUT ANY WARRANTY; without even the implied warranty of 14% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15% GNU General Public License for more details. 16% 17% You should have received a copy of the GNU General Public License 18% along with this program; see the file COPYING. If not, write to 19% the Free Software Foundation, 59 Temple Place - Suite 330, 20% Boston, MA 02111-1307, USA. 21% 22 23Documentation 24This style uses bold faces and underlines, but never italics. This is 25particularly meant for printing formatted man pages. 26EndDocumentation 27 28% -- code follows this line -- 29%%IncludeResource: file base.ps 30%%IncludeResource: file a2ps.hdr 31%%BeginResource: procset a2ps-black+white-Prolog 2.0 1 32 33% Function T(ab), jumps to the n-th tabulation in the current line 34/T { 35 cw mul x0 add y0 moveto 36} bind def 37 38% Function n: move to the next line 39/n { %def 40 /y0 y0 bfs sub store 41 x0 y0 moveto 42} bind def 43 44% Function N: show and move to the next line 45/N { 46 Show 47 /y0 y0 bfs sub store 48 x0 y0 moveto 49} bind def 50 51/S { 52 Show 53} bind def 54 55/p { 56 false UL 57 false BX 58%Face: Plain Courier bfs 59 Show 60} bind def 61 62/sy { 63 false UL 64 false BX 65%Face: Symbol Symbol bfs 66 Show 67} bind def 68 69/k { 70 true UL 71 false BX 72%Face: Keyword Courier bfs 73 Show 74} bind def 75 76/K { 77 false UL 78 false BX 79%Face: Keyword_strong Courier-Bold bfs 80 Show 81} bind def 82 83/c { 84 true UL 85 false BX 86%Face: Comment Courier bfs 87 Show 88} bind def 89 90/C { 91 true UL 92 false BX 93%Face: Comment_strong Courier-Bold bfs 94 Show 95} bind def 96 97/l { 98 false UL 99 false BX 100%Face: Label Helvetica bfs 101 Show 102} bind def 103 104/L { 105 false UL 106 false BX 107%Face: Label_strong Helvetica-Bold bfs 108 Show 109} bind def 110 111/str{ 112 false UL 113 false BX 114%Face: String Times-Roman bfs 115 Show 116} bind def 117 118/e{ 119 false UL 120 true BX 121%Face: Error Helvetica-Bold bfs 122 Show 123} bind def 124 125%%EndResource 126%%BeginSetup 127% The font for line numbering 128/f# /Helvetica findfont bfs .6 mul scalefont def 129%%EndSetup 130