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