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
|
%--------------------------------------------------------------
%---------- greek.sty ---------------------
%---------- 4/19/90 S. Janowsky -----------
%
% Include as a style option after times, palatino, or whatever.
%
\def\@mathgreekmap#1{\@cmrscale=\@cmrfam \multiply\@cmrscale by 256
\advance\@cmrscale by \the#1 \mathchardef#1=\@cmrscale\relax}
\@mathgreekmap{\Gamma}
\@mathgreekmap{\Delta}
\@mathgreekmap{\Theta}
\@mathgreekmap{\Lambda}
\@mathgreekmap{\Xi}
\@mathgreekmap{\Pi}
\@mathgreekmap{\Sigma}
\@mathgreekmap{\Upsilon}
\@mathgreekmap{\Phi}
\@mathgreekmap{\Psi}
\@mathgreekmap{\Omega}
%
\def\@mathaccdefmap#1#2{\@cmrscale=\@cmrfam \multiply\@cmrscale by 256
\advance\@cmrscale by #2 \edef#1{\mathaccent\the\@cmrscale}\relax}
%
\@mathaccdefmap{\acute}{"0013 }
\@mathaccdefmap{\grave}{"0012 }
\@mathaccdefmap{\ddot}{"007F }
\@mathaccdefmap{\tilde}{"007E }
\@mathaccdefmap{\bar}{"0016 }
\@mathaccdefmap{\breve}{"0015 }
\@mathaccdefmap{\check}{"0014 }
\@mathaccdefmap{\hat}{"005E }
%\@mathaccdefmap{\vec}{"017E } % Not type 00
\@mathaccdefmap{\dot}{"005F }
%\@mathaccdefmap{\widetilde}{"0365 } % Not type 00
%\@mathaccdefmap{\widehat}{"0362 } % Not type 00
%
%----------------------------------------------------
|
