1% -*-postscript-*-
2% PostScript Prologue for a2ps (Gray shades)
3%
4% $Id: gray.pro,v 1.5 1998/01/19 17:39:48 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%
25Documentation
26Gray background is used for comments and labels.
27EndDocumentation
28% -- code follows this line --
29%%IncludeResource: file base.ps
30%%IncludeResource: file a2ps.hdr
31%%BeginResource: procset a2ps-gray-Prolog 2.0 1
32/p {
33  0 0 0 FG
34  false BG
35  false UL
36  false BX
37%Face: Plain Courier bfs
38  Show
39} bind def
40
41/sy {
42  0 0 0 FG
43  false BG
44  false UL
45  false BX
46%Face: Symbol Symbol bfs
47  Show
48} bind def
49
50/k {
51  0 0 0 FG
52  false BG
53  false UL
54  false BX
55%Face: Keyword Courier-Oblique bfs
56  Show
57} bind def
58
59/K {
60  0 0 0 FG
61  false BG
62  false UL
63  false BX
64%Face: Keyword_strong Courier-Bold bfs
65  Show
66} bind def
67
68/c {
69  0 0 0 FG
70  0.9 0.9 0.9 true BG
71  false UL
72  false BX
73%Face: Comment Courier bfs
74  Show
75} bind def
76
77/C {
78  0 0 0 FG
79  0.8 0.8 0.8 true BG
80  false UL
81  false BX
82%Face: Comment_strong Courier-Bold bfs
83  Show
84} bind def
85
86/l {
87  0 0 0 FG
88  0.9 0.9 0.9 true BG
89  false UL
90  false BX
91%Face: Label Courier bfs
92  Show
93} bind def
94
95/L {
96  1 1 1 FG
97  0 0 0 true BG
98  false UL
99  false BX
100%Face: Label_strong Courier-Bold bfs
101  Show
102} bind def
103
104/str {
105  0 0 0 FG
106  false BG
107  false UL
108  false BX
109%Face: String Times-Roman bfs
110  Show
111} bind def
112
113/e{
114  1 1 1 FG
115  0 0 0 true BG
116  false UL
117  false BX
118%Face: Error Helvetica-Bold bfs
119  Show
120} bind def
121%%EndResource
122%%BeginSetup
123% The font for line numbering
124/f# /Helvetica findfont bfs .6 mul scalefont def
125%%EndSetup
126