summaryrefslogtreecommitdiff
path: root/fonts/ae/src/aehaxrm.mtx
blob: 04f3c5bad50a257363c2667f9b145d2178e76bc0 (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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
%% aehaxrm.mtx
%% Copyright 1999 Lars Engebretsen
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
%
% This work has the LPPL maintenance status `maintained'.
% 
% The Current Maintainer of this work is Lars Engebretsen.
%
% This work consists of all files listed in MANIFEST.
%
\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}{j}{200}
  \setkern{#1}{g}{100}
  \setkern{#1}{gbreve}{100}
  \setkern{#1}{y}{100}
  \setkern{#1}{V}{-200}
  \setkern{#1}{W}{-150}
  \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{50}
   \resetdepth{\depth{comma}}
\endresetglyph

\resetglyph{underscore}
   \glyphrule{\int{visiblespacewidth}}{\int{underlinethickness}}
\endresetglyph

\endmetrics