1% -*-postscript-*- 2% PostScript Prologue 3% 4% $Id: bold.pro,v 1.1 1998/03/06 11:22:05 demaille Exp $ 5% 6 7% 8% This file is part of a2ps. 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 26Documentation 27This style is meant to replace the old option code(-b)code of a2ps 4.3. 28It is a copy of the black and white prologue, but in which all the fonts 29are in Bold. 30EndDocumentation 31 32% -- code follows this line -- 33%%IncludeResource: file base.ps 34%%IncludeResource: file a2ps.hdr 35%%BeginResource: procset a2ps-bold-Prolog 2.0 1 36 37% Function T(ab), jumps to the n-th tabulation in the current line 38/T { 39 cw mul x0 add y0 moveto 40} bind def 41 42% Function n: move to the next line 43/n { %def 44 /y0 y0 bfs sub store 45 x0 y0 moveto 46} bind def 47 48% Function N: show and move to the next line 49/N { 50 Show 51 /y0 y0 bfs sub store 52 x0 y0 moveto 53} bind def 54 55/S { 56 Show 57} bind def 58 59/p { 60 false UL 61 false BX 62%Face: Plain Courier-Bold bfs 63 Show 64} bind def 65 66/sy { 67 false UL 68 false BX 69%Face: Symbol Symbol bfs 70 Show 71} bind def 72 73/k { 74 false UL 75 false BX 76%Face: Keyword Courier-BoldOblique bfs 77 Show 78} bind def 79 80/K { 81 false UL 82 false BX 83%Face: Keyword_strong Courier-Bold bfs 84 Show 85} bind def 86 87/c { 88 false UL 89 false BX 90%Face: Comment Courier-BoldOblique bfs 91 Show 92} bind def 93 94/C { 95 false UL 96 false BX 97%Face: Comment_strong Courier-BoldOblique bfs 98 Show 99} bind def 100 101/l { 102 false UL 103 false BX 104%Face: Label Helvetica-Bold bfs 105 Show 106} bind def 107 108/L { 109 false UL 110 false BX 111%Face: Label_strong Helvetica-Bold bfs 112 Show 113} bind def 114 115/str{ 116 false UL 117 false BX 118%Face: String Times-Bold bfs 119 Show 120} bind def 121 122/e{ 123 false UL 124 true BX 125%Face: Error Helvetica-Bold bfs 126 Show 127} bind def 128 129%%EndResource 130%%BeginSetup 131% The font for line numbering 132/f# /Helvetica findfont bfs .6 mul scalefont def 133%%EndSetup 134