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