blob: 787cc799b961fe5f64dcdbcd53a4be0abb3e46bf (
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
|
% fixkernaccents.tex
% requires \thenewskewchar to be set to the new skewchar _before_ renaming
\setcommand\fixaccentkern#1#2#3#4%
% parameters: character, kern, skewchar bbleft, skewchar bbright
{
\resetint{temp}
{
\add
{
#2 %\kerning{#1}{\skewchar}
}
{
\half
{
\add
{
\sub
{
\width{#1}
}
{
\italic{#1}
}
}
{
\add
{
#3 %\bbleft{\skewchar}
}
{
#4 %\bbright{\skewchar}
}
}
}
}
}
\setkern{#1}{\thenewskewchar}{\strint{temp}}
% Thanks to Lars Hellstrom for pointing out that the third parameter can't be just the \add macro
}
|