1% -*-postscript-*-
2% PostScript Prologue for a2ps (Colored)
3%
4% $Id: color.pro,v 1.5 1998/01/19 17:39:47 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
26Colors are used to highlight the keywords.
27EndDocumentation
28% -- code follows this line --
29%%IncludeResource: file base.ps
30%%IncludeResource: file color.hdr
31%%BeginResource: procset a2ps-color-prolog 2.0 1
32%%DocumentProcessColors: Red Green Blue
33
34%% Definition of the color faces.
35/p {
36  0 0 0 FG
37  false BG
38  false UL
39  false BX
40%Face: Plain Courier bfs
41  Show
42} bind def
43
44/sy {
45  0 0 0 FG
46  false BG
47%Face: Symbol Symbol bfs
48  Show
49} bind def
50
51/k {
52  false BG
53  false UL
54  false BX
55  0 0 0.9 FG
56%Face: Keyword Courier bfs
57  Show
58} bind def
59
60/K {
61  false BG
62  false UL
63  false BX
64  0 0 0.8 FG
65%Face: Keyword_strong Courier-Bold bfs
66  Show
67} bind def
68
69/c {
70  false BG
71  false UL
72  false BX
73  0.8 0 0 FG
74%Face: Comment Courier bfs
75  Show
76} bind def
77
78/C {
79  false BG
80  false UL
81  false BX
82  0.8 0 0 FG
83%Face: Comment_strong Courier-Bold bfs
84  Show
85} bind def
86
87/l {
88  0 0 0 FG
89  0.8 0.8 0 true BG
90  false UL
91  false BX
92%Face: Label Courier bfs
93  Show
94} bind def
95
96/L {
97  0 0 0 FG
98  1 1 0 true BG
99  false UL
100  false BX
101%Face: Label_strong Courier-Bold bfs
102  Show
103} bind def
104
105/str {
106  false BG
107  false UL
108  false BX
109  0 0.5 0 FG
110%Face: String Times-Roman bfs
111  Show
112} bind def
113
114/e{
115  1 0 0 true BG
116  false UL
117  true BX
118  1 1 1 FG
119%Face: Error Helvetica-Bold bfs
120  Show
121} bind def
122
123% Function print line number (<string> # -)
124/# {
125  gsave
126    sx cw mul 2 div neg 0 rmoveto
127    f# setfont
128    0.8 0.1 0.1 FG
129    c-show
130  grestore
131} bind def
132%%EndResource
133%%BeginSetup
134% The font for line numbering
135/f# /Helvetica findfont bfs .6 mul scalefont def
136%%EndSetup
137