blob: 53b43bb905d34df5c46f50e9eafafdf407f4159a (
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
|
% pdcimth.tex 1.1.2 91/12/12 -- make maths use text italic family for letters
% Very few RL families have separate maths and text italic fonts.
% count0 -- mathcode for current u.c. char
% count1 -- mathcode for current l.c. char
% count2 -- ASCII code of current u.c. char
% count3 -- ASCII code of current l.c. char
% count4 -- number of character left to redefine
\begingroup % preserve values of count registers
\count0=\itfam \multiply\count0 256 \advance\count0"7000 \count1=\count0
\advance\count0+`A \advance\count1+`a
\count2=`A \count3=`a
\count4=26
\loop
\ifnum\count4>0
\advance\count4-1
\global\mathcode\count2=\count0 \global\mathcode\count3=\count1
\advance\count0+1 \advance\count1+1
\advance\count2+1 \advance\count3+1
\repeat
\endgroup
|
