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