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
|
\relax
% v1906test.mtx
%
% A test of the nokerning commands and the \glyphbboxright IE.
\metrics
\for(i){0}{20}{1}
\setglyph{c\strint{i}}
\glyphrule{20}{\mul{\add{\int{i}}{1}}{20}}
\movert{\mul{20}{\int{i}}}
\endsetglyph
\endfor(i)
\setglyph{d}
\for(i){5}{10}{1}
\glyphpcc{c\strint{i}}{\int{i}}{\int{i}}
\endfor(i)
\resetint{j}{\glyphbboxright}
\immediate\write16{\string\glyphbboxright=\strint{j}}
\glyph{c20}{1000}
\resetint{j}{\glyphbboxright}
\immediate\write16{\string\glyphbboxright=\strint{j}}
\endsetglyph
\for(i){0}{20}{1}
\for(j){0}{20}{1}
\setkern{c\strint{i}}{c\strint{j}}{\mul{\int{i}}{\int{j}}}
\endfor(j)
\endfor(i)
\noleftkerning{c1,c3,c5,c7,c9,c11,c13,c15,c17,c19}
\immediate\write16{\expandafter\meaning\csname a_macro\endcsname}
\norightkerning{c1,c3,c5,c7,c9}
% \resetint{i}{0}
% \loop
% \setkern{c\strint{i}}{c\strint{i}}{-50}
% \resetint{j}{\sub{20}{\int{i}}}
% \resetkern{c\strint{i}}{c\strint{j}}{-100}
% \ifnum 20>\int{i}
% \resetint{i}{\add{\int{i}}{1}}
% \repeat
% \resetint{i}{0}
% \loop
% \ifiskern{c3}{c\strint{i}}\then
% \resetint{T}{\kerning{c3}{c\strint{i}}}
% \message{c3:c\strint{i} has kern \strint{T} units^^J}
% \else
% \message{c3:c\strint{i} no kern^^J}
% \fi
% \ifnum 20>\int{i}
% \resetint{i}{\add{\int{i}}{1}}
% \repeat
\endmetrics
|