seasons.sty

\newcounter{temperature}
\newcounter{cycle}
\setcounter{cycle}{\month}
  \roundUp{cycle}

\newcounter{fenestraYear}
\setcounter{fenestraYear}{3}
\setcounter{fenestraYear}{\year}
\multiply\value{fenestraYear}by 4
\newcounter{fenestraDay}

\newcommand\cycleDesc{}

\newcommand\setCycle[2]{%
  \setcounter{cycle}{#1}% Month
  \ifnum\value{cycle}>6%
    \addtocounter{cycle}{-6}% October goes from '10' to '4'
  \fi%
  \ifnum\value{cycle}>3%
    \addtocounter{cycle}{-3}% '4' becomes 1.
  \fi%
  \multiply\value{cycle} by 2%
  \ifnum#2>15%
    \addtocounter{cycle}{-1}%
  \else%
    \addtocounter{cycle}{-2}%
  \fi%
  \setcounter{fenestraDay}{\day}%
  \ifnum\value{fenestraDay}>15%
    \addtocounter{fenestraDay}{-15}%
  \fi%
  \multiply\value{fenestraDay}by 4%
  \addtocounter{fenestraDay}{0}%
  \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}%
    cold%
  \or%
    mild%
  \or%
    hot%
  \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%
}

\setCycle{\month}{\day}