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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
% Load astro symbols at 10pt, 7pt, 5pt
\font\tenastro=cmastro10
\font\sevenastro=cmastro7
\font\fiveastro=cmastro5
% Define a new family; but since we need its family number to be < 8
% (in order to use \mathchardef -- see p. 155 of The TeXbook), we'll need
% to do some rearranging. So put \sl into family 8 (note that this may mean
% that we can't use it in subscripts any more) and \astro where \sl was
% (family 5). Plain TeX's definitions from p. 351.
% Family Plain TeX: Now:
% 0 \rm \rm
% 1 \mit \mit (math italic)
% 2 \sy \sy (math symbols)
% 3 \ex \ex (math extension)
% 4 \it \it
% 5 \sl \astro
% 6 \bf \bf
% 7 \tt \tt
% 8 (none) \sl
\newfam\astrofam
\let\astrofam=\slfam
\let\slfam=\allocationnumber % last number allocated (pp. 346-7)
% Set up astro's math family now.
\textfont\astrofam=\tenastro
\scriptfont\astrofam=\sevenastro
\scriptscriptfont\astrofam=\fiveastro
\def\astro{\fam\astrofam\tenastro}
% And make sure that \sl still works
\textfont\slfam=\tensl
%\scriptfont\slfam=\sevensl % we don't have this font
%\scriptscriptfont\slfam=\fivesl % or this one
\def\sl{\fam\slfam\tensl}
% Finally, define symbols in the astro fonts. First hex digit = 0 for
% "ordinary" symbol; second = 5 for family 5; third and fourth = ASCII
% code for location of symbol in the font. But \circ is family 2.
\mathchardef\Sun="0553 % Sun symbol, "S"
\mathchardef\Mercury="0531 % Mercury symbol, "1"
\mathchardef\Venus="0532 % Venus symbol, "2"
\mathchardef\Earth="0533 % Earth symbol, "3"
\mathchardef\Mars="0534 % Mars symbol, "4"
\mathchardef\Jupiter="0535 % Jupiter symbol, "5"
\mathchardef\Saturn="0536 % Saturn symbol, "6"
\mathchardef\Uranus="0537 % Uranus symbol, "7"
\mathchardef\Neptune="0538 % Neptune symbol, "8"
\mathchardef\Pluto="0539 % Pluo symbol, "9"
\mathchardef\Moon="054D % Moon symbol, "M"
\mathchardef\ascnode="054E % ascending node (dragon's head), "N"
\mathchardef\descnode="0544 % descending node (dragon's tail), "D"
\mathchardef\VE="0556 % vernal equinox (Aries), "V"
\mathchardef\AE="054C % autumnal equinox (Libra), "L"
\mathchardef\circ="250E % circle, replacing the one in \sy
$$
\astro
\Mercury
\Venus
\Earth
\Mars
\Jupiter
\Saturn
\Uranus
\Neptune
\Pluto
\Moon
\ascnode
\descnode
\VE
\AE
\circ
$$
\bye
% Load astro symbols at 10pt, 7pt, 5pt
\font\tenastro=cmastro10
\font\sevenastro=cmastro7
\font\fiveastro=cmastro5
% Define a new family; but since we need its family number to be < 8
% (in order to use \mathchardef -- see p. 155 of The TeXbook), we'll need
% to do some rearranging. So put \sl into family 8 (note that this may mean
% that we can't use it in subscripts any more) and \astro where \sl was
% (family 5). Plain TeX's definitions from p. 351.
% Family Plain TeX: Now:
% 0 \rm \rm
% 1 \mit \mit (math italic)
% 2 \sy \sy (math symbols)
% 3 \ex \ex (math extension)
% 4 \it \it
% 5 \sl \astro
% 6 \bf \bf
% 7 \tt \tt
% 8 (none) \sl
\newfam\astrofam
\let\astrofam=\slfam
\let\slfam=\allocationnumber % last number allocated (pp. 346-7)
% Set up astro's math family now.
\textfont\astrofam=\tenastro
\scriptfont\astrofam=\sevenastro
\scriptscriptfont\astrofam=\fiveastro
\def\astro{\fam\astrofam\tenastro}
% And make sure that \sl still works
\textfont\slfam=\tensl
%\scriptfont\slfam=\sevensl % we don't have this font
%\scriptscriptfont\slfam=\fivesl % or this one
\def\sl{\fam\slfam\tensl}
% Finally, define symbols in the astro fonts. First hex digit = 0 for
% "ordinary" symbol; second = 5 for family 5; third and fourth = ASCII
% code for location of symbol in the font. But \circ is family 2.
\mathchardef\Sun="0553 % Sun symbol, "S"
\mathchardef\Mercury="0531 % Mercury symbol, "1"
\mathchardef\Venus="0532 % Venus symbol, "2"
\mathchardef\Earth="0533 % Earth symbol, "3"
\mathchardef\Mars="0534 % Mars symbol, "4"
\mathchardef\Jupiter="0535 % Jupiter symbol, "5"
\mathchardef\Saturn="0536 % Saturn symbol, "6"
\mathchardef\Uranus="0537 % Uranus symbol, "7"
\mathchardef\Neptune="0538 % Neptune symbol, "8"
\mathchardef\Pluto="0539 % Pluo symbol, "9"
\mathchardef\Moon="054D % Moon symbol, "M"
\mathchardef\ascnode="054E % ascending node (dragon's head), "N"
\mathchardef\descnode="0544 % descending node (dragon's tail), "D"
\mathchardef\VE="0556 % vernal equinox (Aries), "V"
\mathchardef\AE="054C % autumnal equinox (Libra), "L"
\mathchardef\circ="250E % circle, replacing the one in \sy
$$
\astro
\Mercury
\Venus
\Earth
\Mars
\Jupiter
\Saturn
\Uranus
\Neptune
\Pluto
\Moon
\ascnode
\descnode
\VE
\AE
\circ
$$
\bye
|
