%% Define fonts 
   \font\hunbig hun2 at 133.33pt
\@ifundefined{selectfont}
 {%Old font family selection, do nothing
  \font\wasy wasy10 at 12.0pt
  \font\hun hun2 at 12.0pt
 }
 {%New font family selection,
  %Define the font families
  \new@fontshape{wasy}{m}{n}{%
    <5>wasy5 at 5pt%
    <6>wasy6 at 6pt%
    <7>wasy7 at 7pt%
    <8>wasy8 at 8pt%
    <9>wasy9 at 9pt%
    <10>wasy10 at 10pt%
    <11>wasy10 at 10.95pt%
    <12>wasy10 at 12pt%
    <14>wasy10 at 14.4pt%
    <17>wasy10 at 17.28pt%
    <20>wasy10 at 20.74pt%
    <25>wasy10 at 24.88pt}{}
  \subst@fontshape{wasy}{m}{it}{wasy}{m}{n}
  \subst@fontshape{wasy}{m}{sl}{wasy}{m}{n}
  \subst@fontshape{wasy}{m}{sc}{wasy}{m}{n}
  \subst@fontshape{wasy}{m}{u}{wasy}{m}{n}
  \subst@fontshape{wasy}{bx}{n}{wasy}{m}{n}
  \subst@fontshape{wasy}{bx}{it}{wasy}{m}{n}
  \subst@fontshape{wasy}{bx}{sl}{wasy}{m}{n}
  \subst@fontshape{wasy}{bx}{sc}{wasy}{m}{n}
  \subst@fontshape{wasy}{bx}{u}{wasy}{m}{n}
  \subst@fontshape{wasy}{b}{n}{wasy}{m}{n}
  \subst@fontshape{wasy}{b}{it}{wasy}{m}{n}
  \subst@fontshape{wasy}{b}{sl}{wasy}{m}{n}
  \subst@fontshape{wasy}{b}{sc}{wasy}{m}{n}
  \subst@fontshape{wasy}{b}{u}{wasy}{m}{n}
  \new@fontshape{hun}{m}{n}{%
    <5>hun2 at 5pt%
    <6>hun2 at 6pt%
    <7>hun2 at 7pt%
    <8>hun2 at 8pt%
    <9>hun2 at 9pt%
    <10>hun2%
    <11>hun2 at 10.95pt%
    <12>hun2 at 12pt%
    <14>hun2 at 14.4pt%
    <17>hun2 at 17.28pt%
    <20>hun2 at 20.74pt%
    <25>hun2 at 24.88pt}{}
  \subst@fontshape{hun}{m}{it}{hun}{m}{n}
  \subst@fontshape{hun}{m}{sl}{hun}{m}{n}
  \subst@fontshape{hun}{m}{sc}{hun}{m}{n}
  \subst@fontshape{hun}{m}{u}{hun}{m}{n}
  \subst@fontshape{hun}{bx}{n}{hun}{m}{n}
  \subst@fontshape{hun}{bx}{it}{hun}{m}{n}
  \subst@fontshape{hun}{bx}{sl}{hun}{m}{n}
  \subst@fontshape{hun}{bx}{sc}{hun}{m}{n}
  \subst@fontshape{hun}{bx}{u}{hun}{m}{n}
  \subst@fontshape{hun}{b}{n}{hun}{m}{n}
  \subst@fontshape{hun}{b}{it}{hun}{m}{n}
  \subst@fontshape{hun}{b}{sl}{hun}{m}{n}
  \subst@fontshape{hun}{b}{sc}{hun}{m}{n}
  \subst@fontshape{hun}{b}{u}{hun}{m}{n}
  %Define the font switching command
  \def\wasy{\fontfamily{wasy}\fontseries\default@series%
	    \fontshape\default@shape\selectfont}
  \def\hun{\fontfamily{hun}\fontseries\default@series%
	   \fontshape\default@shape\selectfont}
 }




%% Moon phases %%
\def\newmoon{\hbox{\wasy \char "20}}
\def\firstquarter{\hbox to 0pt{\wasy\char"47\hss}\hbox{\wasy\char"23}}
\def\fullmoon{\hbox{\wasy \char "23}}
\def\lastquarter{\hbox to 0pt{\wasy\char"48\hss}\hbox{\wasy\char"23}}
\def\leftmoon{\hbox{\wasy \char"24}}
\def\rightmoon{\hbox{\wasy \char"25}}

%% Nodes %%
\def\ascendingnode{\hbox{\hun \char"19}}
\def\descendingnode{\hbox{\hun \char"1A}}

%% Comet %%
\def\comet{\hbox{\hun \char"17}}
\def\bigcomet{\hbox{\hunbig \char"17}}

%% Conjunction/opposition %%
\def\conjunction{\hbox{\wasy \char"06}}
\def\opposition{\hbox{\wasy \char"1F}}

%% Planets %%
\def\sun{\hbox{\hun \char"0C}}
\def\moon{\hbox{\hun \char"16}}
\def\mercury{\hbox{\hun \char "0D}}
\def\venus{\hbox{\hun \char"0E}}
\def\earth{\hbox{\hun \char"0F}}
\def\mars{\hbox{\hun \char"10}}
\def\jupiter{\hbox{\hun \char"11}}
\def\saturn{\hbox{\hun \char"12}}
\def\uranus{\hbox{\hun \char"13}}
\def\neptune{\hbox{\hun \char"14}}
\def\pluto{\hbox{\hun \char"15}}

%% Zodiac %%
\def\aries{\hbox{\hun \char"1B}}
\def\taurus{\hbox{\hun \char"1C}}
\def\gemini{\hbox{\hun \char"1D}}
\def\cancer{\hbox{\hun \char"1E}}
\def\leo{\hbox{\hun \char"1F}}
\def\virgo{\hbox{\hun \char"20}}
\def\libra{\hbox{\hun \char"21}}
\def\scorpius{\hbox{\hun \char"22}}
\def\sagittarius{\hbox{\hun \char"23}}
\def\capricornus{\hbox{\hun \char"24}}
\def\aquarius{\hbox{\hun \char"25}}
\def\pisces{\hbox{\hun \char"26}}