% ASTROSYM.TEX : AstroSym (Version 1.00, May 1, 1992) - file 7 of 7
% Peter Schmitt                     eMail: a8131dal@awiuni11.bitnet
% Institute of Mathematics, University of Vienna    Vienna, Austria
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newcount\n \newcount\last
\def\nextchar{\ifnum \n<\last
                     \char\n
                     \hskip1mm
                     \advance\n by 1 
                     \let\next=\nextchar
               \else \let\next=\relax
                 \fi \next}
\def\showsymbol#1[#2]{\leavevmode\vphantom{{\astro\char1}}
                      \n=#2 \Char\n
          \advance\n by 100 \Char\n
          \advance\n by 100 \Char\n
%                     \hskip3mm\relax#1\endgraf}
                     \hskip3mm\relax#1\par}
\def\Char#1{\hbox to 10mm{\hfil[\the\n]\hskip2mm}%
            \hbox to17mm{\astro\char\n\hfil}\hskip3mm}
%{\obeylines\gdef\list{\begingroup\obeylines\let^^M\showsymbol}}
\def\list{\begingroup\obeylines\everypar{\showsymbol}}
\def\endlist{\endgroup}
\def\show#1:#2 - #3 {%
    #1:\par
    {\astro \n=#2 \last=#3 \advance\last by 1 \nextchar}
    \par}
\font\astro=astrosym
\overfullrule0pt\nopagenumbers
\hsize16cm
\parindent0pt

\headline{%
Astronomical Symbols - Version 1.00 (March 1992)
\hfill\the\year-\the\month-\the\day\ --- Page \the\pageno}

\show `Calligraphic Version'   :   0 -  28
\show `Uniform Version (Bold)' : 100 - 128
\show `Uniform Version (Thin)' : 200 - 228

List of symbols:

The planetary system:

\list
Sol [0]
Mercurius [1]
Venus [2]
Terra [3]
Mars [4]
Iuppiter [5]
Saturnus [6]
Saturnus 2 [23]
Uranus [7]
Neptunus [8]
Neptunus 2 [24]
Pluto [9]
Pluto 2 [25]
Luna [10]
\endlist

The signs of the zodiac:

\list
Aries [11]
Taurus [12]
Gemini [13]
Cancer [14]
Leo [15]
Virgo [16]
Libra [17]
Libra 2 [26]
Scorpio [18]
Sagittarius [19]
Capricornus [20]
Aquarius [21]
Aquarius 2 [27]
Aquarius 3 [28]
Pisces [22] \endlist

\end

%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% end of ASTROSYM.TEX %%%
