blob: a822448e4facee2d717763814802f56d4957c929 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
\relax
\metrics
\needsfontinstversion{1.315}
% \shiftglyph takes three parameters:
%
% #1 the name of the glyph
% #2 the amount of extra space at the left
% #3 the amount of extra space at the right
\setcommand\shiftglyph#1#2#3{
\resetglyph{#1}
\movert{#2}
\glyph{#1}{1000}
\movert{#3}
\resetitalic{\add{\italic{#1}}{#3}}
\endresetglyph
}
\shiftglyph{quotedblright}{0}{-125}
\shiftglyph{quotedblleft}{-125}{0}
%\setrightkerning{quotedblbase}{comma}{1000}
%% Following kerns stolen from the EC fonts
\setkern{quotedblbase}{quotesinglbase}{200}
\setkern{quotedblbase}{comma}{200}
\def\setquotebasekerns#1{
\setkern{#1}{quotedblbase}{200}
\setkern{#1}{v}{-150}
\setkern{#1}{w}{-150}
\setkern{#1}{T}{-150}
\setkern{#1}{V}{-200}
\setkern{#1}{W}{-200}
\setkern{#1}{Y}{-150}
\setkern{#1}{Yacute}{-150}
\setkern{#1}{Ydieresis}{-150}
\setkern{#1}{O}{-50}
\setkern{#1}{Odieresis}{-50}
\setkern{#1}{Ohungarumlaut}{-50}
\setkern{#1}{Ograve}{-50}
\setkern{#1}{Oacute}{-50}
\setkern{#1}{Ocircumflex}{-50}
\setkern{#1}{Otilde}{-50}
\setkern{#1}{Oslash}{-50}
\setkern{#1}{OE}{-50}
\setkern{#1}{C}{-50}
\setkern{#1}{Ccedilla}{-50}
\setkern{#1}{Cacute}{-50}
\setkern{#1}{Ccaron}{-50}
\setkern{#1}{G}{-50}
\setkern{#1}{Gbreve}{-50}
\setkern{#1}{Q}{-50}}
\setquotebasekerns{quotedblbase}
\setquotebasekerns{quotesinglbase}
\resetglyph{quotedbl}
\glyph{quotedblright}{1000}
\endresetglyph
\resetglyph{quotedblbase}
\moveup{\sub{\height{comma}}{\height{quotedblright}}}
\glyph{quotedblright}{1000}
\movert{150}
\resetdepth{\depth{comma}}
\endresetglyph
\resetglyph{underscore}
\glyphrule{\int{visiblespacewidth}}{\int{underlinethickness}}
\endresetglyph
\endmetrics
|