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