seasons.sty

\newcounter{fenestraYear}
\newcounter{fenestraDay}

\newcommand\cycleDesc{}

\newcommand\setCycle[2]{%
  \setcounter{fenestraYear}{\year}%
  \multiply\value{fenestraYear}by 4%
  \addtocounter{fenestraYear}{0}%
  \setcounter{cycle}{#1}% Usually the current month's number, so March = 3.
  \whileboolexpr{%
    test {\ifnumcomp{\value{cycle}}{>}{3}}%
  }{%
    \addtocounter{cycle}{-3}% So April = 1, June = 3
    \stepcounter{fenestraYear}%
  }%
  \multiply\value{cycle}by 2% April = 2, June = 6
  \addtocounter{cycle}{-2}% April = 0, June = 4
  \setcounter{fenestraDay}{#2}%
  \ifnum\value{fenestraDay}>15%
    \addtocounter{fenestraDay}{-15}%
    \stepcounter{cycle}%
  \fi%
  \multiply\value{fenestraDay}by 4%
  \addtocounter{fenestraDay}{-3}%
  \setTemperature%
}

%%% State a Cycle's name.

\newcommand\showCycle[1][\value{cycle}]{%
  \ifcase#1%
    \glsentrytext{cOne}%
    \renewcommand\cycleDesc{\glsentrydesc{cOne}}%
  \or%
    \glsentrytext{cTwo}%
    \renewcommand\cycleDesc{\glsentrydesc{cTwo}}%
  \or%
    \glsentrytext{cThree}%
    \renewcommand\cycleDesc{\glsentrydesc{cThree}}%
  \or%
    \glsentrytext{cFour}%
    \renewcommand\cycleDesc{\glsentrydesc{cFour}}%
  \or%
    \glsentrytext{cFive}%
    \renewcommand\cycleDesc{\glsentrydesc{cFive}}%
  \else%
    \glsentrytext{cSix}%
    \renewcommand\cycleDesc{\glsentrydesc{cSix}}%
  \fi%
}

\newcommand\setTemperature{%
  \ifcase\value{cycle}%
    \setcounter{temperature}{1}%
  \or%
    \setcounter{temperature}{0}%
  \or%
    \setcounter{temperature}{1}%
  \or%
    \setcounter{temperature}{2}%
  \or%
    \setcounter{temperature}{3}%
  \else
    \setcounter{temperature}{2}%
  \fi%
}

\newcommand\showTemperature{%
  \ifcase\value{temperature}%
    frigid%
  \or%
    mild%
  \or%
    warm%
  \else%
    scorching%
  \fi%
}

\newcommand\showInterval[1]{%
  \ifcase#1%
    \gls{morning}%
  \or%
    \gls{afternoon}%
  \or%
    \gls{evening}%
  \else%
    \gls{night}%
  \fi%
}

\newcommand\trackMonth[1][track]{%
  \ifcase\value{#1}\or%
    January\or February\or March\or April\or May\or June\or%
    July\or August\or September\or October\or November\else December\fi%
}


\newcounter{ainumarPosition}
\newcounter{fenestraPosition}

\newcommand\setPlanetPositions[2]{
  \setCycle{#1}{#2}
  \setcounter{ainumarPosition}{\value{cycle}}
  \addtocounter{ainumarPosition}{-1}
  \multiply\value{ainumarPosition}by 60
  \setcounter{diceNo}{#2}% get day offset
  \ifnum\value{diceNo}>15%
    \addtocounter{diceNo}{-15}%
  \fi%
  \multiply\value{diceNo}by 2%
  \addtocounter{ainumarPosition}{\value{diceNo}}
  \setcounter{fenestraPosition}{\value{ainumarPosition}}
  \setcounter{enc}{\value{cycle}}
  \addtocounter{enc}{-1}
  \multiply\value{enc}by 60
  \addtocounter{enc}{-15}% Allow room for day to move things a bit.
  \addtocounter{fenestraPosition}{\value{enc}}
  \addtocounter{fenestraPosition}{\value{diceNo}}
}

\newcommand\orrery[1][\month/\day]{
  \begin{tikzpicture}
    \coordinate (S) at (0,0);
    \draw[background, dotted] (S) circle (3.1);% Orbit
    \draw[background, dotted, thick] (S) circle (1.1);% Orbit
    \foreach \m/\d in {#1}{
      \setPlanetPositions{\m}{\d}
      \coordinate (A) at (\arabic{ainumarPosition}:3);
      \path (A) +(\arabic{fenestraPosition}:1.2) coordinate (F);
      \setcounter{encnum}{\value{cycle}}
      \stepcounter{encnum}
      \colourWheel[cycle]%
      \draw[background, dotted] (S) -- (A) -- (F);
      \draw[background] (A) circle (1.2);% Suborbit
      \fill[background] (A.center)  circle (6pt);
      \fill[black] (F.north) circle (2.5pt);
      \colorlet{foreground}{black}
      \colorlet{background}{white}
      \coordinate [label={{\outline{\Roman{encnum} \Large\scshape\showCycle}}}] (FN) at (A.north);
    }
    \fill[background] (S)  circle (25pt);
    %
  \end{tikzpicture}
  \setCycle{\month}{\day}
}


\setCycle{\month}{\day}