% macropackage=plain (for Linder-TeX)

{\bf\centerline{Astronomical Symbols In \TeX}\medskip}
{\sl\centerline{Developed by}\medskip}
\centerline{Bill Owen}
\centerline{Jet Propulsion Laboratory 301-125L}
\centerline{4800 Oak Grove Drive}
\centerline{Pasadena CA 91109 USA}
\centerline{(818) 354-2505}
\centerline{Internet~~~wmo@muon.jpl.nasa.gov}
\centerline{SPAN:~~~MUON::WMO}
\bigskip
{\sl\centerline{Demonstration texts written by}\medskip}
\medskip
\centerline{Jost Jahn}
\centerline{Neust\"adter Stra\ss e 11}
\centerline{D--3123 Bodenteich}
\centerline{Federal Republic of Germany}
\centerline{bitnet~~~jjahn@cosmo[.unido]}
\centerline{(05824) 3197}
\bigskip

% Defin symbols for very large, large and standard heights.
\font\superastro=cmast10 scaled \magstep5
\font\bigastro=cmast10 scaled \magstep3
\font\tenastro=cmast10
\font\nineastro=cmast9
\font\eightastro=cmast8
\font\sevenastro=cmast7
\font\sixastro=cmast6
\font\fiveastro=cmast5

% Define a new family for the cmast fonts and set up text, subscript,
% and subsubscript sizes.
\newfam\astrofam
\textfont\astrofam=\tenastro
\scriptfont\astrofam=\sevenastro
\scriptscriptfont\astrofam=\fiveastro
\def\astro{\fam\astrofam\tenastro}

% Finally, define symbols in the astro fonts.  First hex digit = 7 for
% "variable" symbol; this lets us pick the family by using \fam.
% Second hex digit = 8 for family 8, although this is ignored.
% Third and fourth = ASCII code for location of symbol in the font.
\def\Ascnode{{\fam\astrofam\mathchar"784E}}  % ascending node (dragon's head)
\def\Desnode{{\fam\astrofam\mathchar"7844}}  % descending node (dragon's tail)
\def\VE{{\fam\astrofam\mathchar"7856}}       % vernal equinox (Aries)
\def\AE{{\fam\astrofam\mathchar"784C}}       % autumnal equinox (Libra)
\def\Sun{{\fam\astrofam\mathchar"7853}}      % Sun symbol
\def\Moon{{\fam\astrofam\mathchar"784D}}     % Moon symbol
\def\Mercury{{\fam\astrofam\mathchar"7831}}  % Mercury symbol
\def\Venus{{\fam\astrofam\mathchar"7832}}    % Venus symbol
\def\Earth{{\fam\astrofam\mathchar"7833}}    % Earth symbol
\def\Mars{{\fam\astrofam\mathchar"7834}}     % Mars symbol
\def\Jupiter{{\fam\astrofam\mathchar"7835}}  % Jupiter symbol
\def\Saturn{{\fam\astrofam\mathchar"7836}}   % Saturn symbol
\def\Uranus{{\fam\astrofam\mathchar"7837}}   % Uranus symbol
\def\Neptune{{\fam\astrofam\mathchar"7838}}  % Neptune symbol
\def\Pluto{{\fam\astrofam\mathchar"7839}}    % Pluto symbol
% Since the circle is a binary operator instead of a normal symbol,
% we need to perform some magic to get the real family into the second
% hex digit.  Basically we want \mathchar"2x0E where x is \astrofam.
\newcount\circnum
\circnum=\astrofam
\multiply\circnum by 256
\advance\circnum by "200E
\mathchardef\circ=\circnum  % circle, replacing the one in \sy

$$The~symbols~in~text~size:~\Ascnode~\Desnode~\VE~\AE~
\Mercury~\Venus~\Earth~\Mars~\Jupiter~\Saturn~\Uranus~\Neptune\Pluto$$

$$The~symbols~in~script~size:~^{\Ascnode~\Desnode~\VE~\AE~
\Mercury~\Venus~\Earth~\Mars~\Jupiter~\Saturn~\Uranus~\Neptune~\Pluto}$$

$$The~symbols~in~script~script~size:~^{_{\Ascnode~\Desnode~\VE~\AE~
\Mercury~\Venus~\Earth~\Mars~\Jupiter~\Saturn~\Uranus~\Neptune~\Pluto}}$$

% Macros for writing the symbols in text. With aktfont the size of
% the symbols is set until the next aktfont definition.
\def\ascnode{{\aktfont\char"4E}}  % ascending node (dragon's head)
\def\desnode{{\aktfont\char"44}}  % descending node (dragon's tail)
\def\vE{{\aktfont\char"56}}       % vernal equinox (Aries)
\def\aE{{\aktfont\char"4C}}       % autumnal equinox (Libra)
\def\sun{{\aktfont\char"53}}      % Sun symbol
\def\moon{{\aktfont\char"4D}}     % Moon symbol
\def\mercury{{\aktfont\char"31}}  % Mercury symbol
\def\venus{{\aktfont\char"32}}    % Venus symbol
\def\earth{{\aktfont\char"33}}    % Earth symbol
\def\mars{{\aktfont\char"34}}     % Mars symbol
\def\jupiter{{\aktfont\char"35}}  % Jupiter symbol
\def\saturn{{\aktfont\char"36}}   % Saturn symbol
\def\uranus{{\aktfont\char"37}}   % Uranus symbol
\def\neptune{{\aktfont\char"38}}  % Neptune symbol
\def\pluto{{\aktfont\char"39}}    % Pluto symbol
\bigskip

\let\aktfont=\fiveastro\noindent
\centerline{The~symbols~in~size~5:~\ascnode~\desnode~\vE~\aE~
\mercury~\venus~\earth~\mars~\jupiter~\saturn~\uranus~\neptune~\pluto}
\bigskip

\let\aktfont=\sixastro\noindent
\centerline{The~symbols~in~size~6:~\ascnode~\desnode~\vE~\aE~
\mercury~\venus~\earth~\mars~\jupiter~\saturn~\uranus~\neptune~\pluto}
\bigskip

\let\aktfont=\sevenastro\noindent
\centerline{The~symbols~in~size~7:~\ascnode~\desnode~\vE~\aE~
\mercury~\venus~\earth~\mars~\jupiter~\saturn~\uranus~\neptune~\pluto}
\bigskip

\let\aktfont=\eightastro\noindent
\centerline{The~symbols~in~size~8:~\ascnode~\desnode~\vE~\aE~
\mercury~\venus~\earth~\mars~\jupiter~\saturn~\uranus~\neptune~\pluto}
\bigskip

\let\aktfont=\nineastro\noindent
\centerline{The~symbols~in~size~9:~\ascnode~\desnode~\vE~\aE~
\mercury~\venus~\earth~\mars~\jupiter~\saturn~\uranus~\neptune~\pluto}
\bigskip

\let\aktfont=\tenastro\noindent
\centerline{The~symbols~in~size~10:~\ascnode~\desnode~\vE~\aE~
\mercury~\venus~\earth~\mars~\jupiter~\saturn~\uranus~\neptune~\pluto}
\bigskip

\let\aktfont=\bigastro\noindent
\centerline{The~symbols~in~big~size:~\ascnode~\desnode~\vE~\aE~
\mercury~\venus~\earth~\mars~\jupiter~\saturn~\uranus~\neptune~\pluto}
\bigskip

\let\aktfont=\superastro\noindent
\centerline{The~symbols~in~super~size}
\medskip
\centerline{\ascnode~(Ascending node)~~~\desnode~(Descending node)}
\centerline{\vE(Vernal~equinox)~~~\aE~(Autumnal~equinox)}
\centerline{\mercury~(Mercury)~~~\venus~(Venus)~~~\earth~(Earth)}
\centerline{\mars~(Mars)~~~\jupiter~(Jupiter)~~~\saturn~(Saturn)}
\centerline{\uranus~(Uranus)~~~\neptune~(Neptune)~~~\pluto~(Pluto)}
\bigskip

\bye