3
% Load astro symbols at 10pt, 7pt, 5pt
4
\font\tenastro=cmastro10
5
\font\sevenastro=cmastro7
6
\font\fiveastro=cmastro5
8
% Define a new family; but since we need its family number to be < 8
9
% (in order to use \mathchardef -- see p. 155 of The TeXbook), we'll need
10
% to do some rearranging. So put \sl into family 8 (note that this may mean
11
% that we can't use it in subscripts any more) and \astro where \sl was
12
% (family 5). Plain TeX's definitions from p. 351.
13
% Family Plain TeX: Now:
15
% 1 \mit \mit (math italic)
16
% 2 \sy \sy (math symbols)
17
% 3 \ex \ex (math extension)
25
\let\slfam=\allocationnumber % last number allocated (pp. 346-7)
27
% Set up astro's math family now.
28
\textfont\astrofam=\tenastro
29
\scriptfont\astrofam=\sevenastro
30
\scriptscriptfont\astrofam=\fiveastro
31
\def\astro{\fam\astrofam\tenastro}
33
% And make sure that \sl still works
34
\textfont\slfam=\tensl
35
%\scriptfont\slfam=\sevensl % we don't have this font
36
%\scriptscriptfont\slfam=\fivesl % or this one
37
\def\sl{\fam\slfam\tensl}
39
% Finally, define symbols in the astro fonts. First hex digit = 0 for
40
% "ordinary" symbol; second = 5 for family 5; third and fourth = ASCII
41
% code for location of symbol in the font. But \circ is family 2.
42
\mathchardef\Sun="0553 % Sun symbol, "S"
43
\mathchardef\Mercury="0531 % Mercury symbol, "1"
44
\mathchardef\Venus="0532 % Venus symbol, "2"
45
\mathchardef\Earth="0533 % Earth symbol, "3"
46
\mathchardef\Mars="0534 % Mars symbol, "4"
47
\mathchardef\Jupiter="0535 % Jupiter symbol, "5"
48
\mathchardef\Saturn="0536 % Saturn symbol, "6"
49
\mathchardef\Uranus="0537 % Uranus symbol, "7"
50
\mathchardef\Neptune="0538 % Neptune symbol, "8"
51
\mathchardef\Pluto="0539 % Pluo symbol, "9"
52
\mathchardef\Moon="054D % Moon symbol, "M"
53
\mathchardef\ascnode="054E % ascending node (dragon's head), "N"
54
\mathchardef\descnode="0544 % descending node (dragon's tail), "D"
55
\mathchardef\VE="0556 % vernal equinox (Aries), "V"
56
\mathchardef\AE="054C % autumnal equinox (Libra), "L"
57
\mathchardef\circ="250E % circle, replacing the one in \sy
79
% Load astro symbols at 10pt, 7pt, 5pt
80
\font\tenastro=cmastro10
81
\font\sevenastro=cmastro7
82
\font\fiveastro=cmastro5
84
% Define a new family; but since we need its family number to be < 8
85
% (in order to use \mathchardef -- see p. 155 of The TeXbook), we'll need
86
% to do some rearranging. So put \sl into family 8 (note that this may mean
87
% that we can't use it in subscripts any more) and \astro where \sl was
88
% (family 5). Plain TeX's definitions from p. 351.
89
% Family Plain TeX: Now:
91
% 1 \mit \mit (math italic)
92
% 2 \sy \sy (math symbols)
93
% 3 \ex \ex (math extension)
101
\let\slfam=\allocationnumber % last number allocated (pp. 346-7)
103
% Set up astro's math family now.
104
\textfont\astrofam=\tenastro
105
\scriptfont\astrofam=\sevenastro
106
\scriptscriptfont\astrofam=\fiveastro
107
\def\astro{\fam\astrofam\tenastro}
109
% And make sure that \sl still works
110
\textfont\slfam=\tensl
111
%\scriptfont\slfam=\sevensl % we don't have this font
112
%\scriptscriptfont\slfam=\fivesl % or this one
113
\def\sl{\fam\slfam\tensl}
115
% Finally, define symbols in the astro fonts. First hex digit = 0 for
116
% "ordinary" symbol; second = 5 for family 5; third and fourth = ASCII
117
% code for location of symbol in the font. But \circ is family 2.
118
\mathchardef\Sun="0553 % Sun symbol, "S"
119
\mathchardef\Mercury="0531 % Mercury symbol, "1"
120
\mathchardef\Venus="0532 % Venus symbol, "2"
121
\mathchardef\Earth="0533 % Earth symbol, "3"
122
\mathchardef\Mars="0534 % Mars symbol, "4"
123
\mathchardef\Jupiter="0535 % Jupiter symbol, "5"
124
\mathchardef\Saturn="0536 % Saturn symbol, "6"
125
\mathchardef\Uranus="0537 % Uranus symbol, "7"
126
\mathchardef\Neptune="0538 % Neptune symbol, "8"
127
\mathchardef\Pluto="0539 % Pluo symbol, "9"
128
\mathchardef\Moon="054D % Moon symbol, "M"
129
\mathchardef\ascnode="054E % ascending node (dragon's head), "N"
130
\mathchardef\descnode="0544 % descending node (dragon's tail), "D"
131
\mathchardef\VE="0556 % vernal equinox (Aries), "V"
132
\mathchardef\AE="054C % autumnal equinox (Libra), "L"
133
\mathchardef\circ="250E % circle, replacing the one in \sy