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