1% -*-postscript-*- 2% PostScript Prologue for a2ps (meant for diffs) 3% 4% $Id: diff.pro,v 1.2 1998/04/08 14:54:21 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% 25 26Documentation 27This style is meant to be used with the code(udiff)code, code(wdiff)code 28style sheets, to underline the differences. New things are in bold 29on a diff background, while removed sequences are in italic. 30EndDocumentation 31 32% -- code follows this line -- 33%%BeginResource: procset a2ps-diff-Prolog 2.0 1 34%%IncludeResource: file base.ps 35%%IncludeResource: file a2ps.hdr 36 37% Another version of `dounderline' which strikes through the string, 38% not under. 39% width -- 40/dounderline { 41 currentpoint 42 gsave 43 moveto 44 0 45 currentfont /UnderlineThickness get currentfontsize mul setlinewidth 46 % Move to half the height of the font 47 currentfontsize 4 div rmoveto 48 0 rlineto 49 stroke 50 grestore 51} bind def 52 53/p { 54 0 0 0 FG 55 false BG 56 false UL 57 false BX 58%Face: Plain Courier bfs 59 Show 60} bind def 61 62/sy { 63 0 0 0 FG 64 false BG 65 false UL 66 false BX 67%Face: Symbol Symbol bfs 68 Show 69} bind def 70 71% Removed 72/k { 73 0 0 0 FG 74 false BG 75 true UL 76 false BX 77%Face: Keyword Courier bfs 78 Show 79} bind def 80 81% Added 82/K { 83 0 0 0 FG 84 0.9 0.9 0.9 true BG 85 false UL 86 false BX 87%Face: Keyword_strong Courier bfs 88 Show 89} bind def 90 91/c { 92 0 0 0 FG 93 0.9 0.9 0.9 true BG 94 false UL 95 false BX 96%Face: Comment Courier-Oblique bfs 97 Show 98} bind def 99 100/C { 101 1.0 1.0 1.0 FG 102 false BG 103 false UL 104 false BX 105%Face: Comment_strong Courier-Bold bfs 106 Show 107} bind def 108 109/l { 110 0 0 0 FG 111 0.9 0.9 0.9 true BG 112 false UL 113 false BX 114%Face: Label Courier bfs 115 Show 116} bind def 117 118/L { 119 0 0 0 true BG 120 false UL 121 false BX 122 1.0 1.0 1.0 FG 123%Face: Label_strong Courier-Bold bfs 124 Show 125} bind def 126 127/str { 128 0 0 0 FG 129 false BG 130 false UL 131 false BX 132%Face: String Times-Roman bfs 133 Show 134} bind def 135 136/e{ 137 0 0 0 true BG 138 false UL 139 false BX 140 1.0 1.0 1.0 FG 141%Face: Error Helvetica-Bold bfs 142 Show 143} bind def 144%%EndResource 145%%BeginSetup 146% The font for line numbering 147/f# /Helvetica findfont bfs .6 mul scalefont def 148%%EndSetup 149