SoleilLune365Jours.tex

%% Set dvisvgm as option to produce a svg
\documentclass[svgnames,border=1cm]{standalone}
\usepackage{pstricks-add}
\usepackage{pst-caelum}
\usepackage{xint-meeus,wasysym}
\usepackage[export]{animate}
%% To receive a gif uncomment the following line
%% and erase "dvisvgm" option of "standalone
%\usepackage[export]{animate}
\usepackage{readarray}
\input{xint-sun.tex}
 
%\input{astro-meeus.tex}
 
\readdef{lune2021.txt}\lignes
\readarray{\lignes}\lune[-,2]
%% ATTENTION: new syntax for \JulianDay (now separated with commas)
\JulianDay(2021,1,1,0,0,0)
%% Counting days easily :-)
\newcommand\calcTfor[1]{\xintdeffloatvar T := (JD+#1-2451545.0)/36525;}
 
\def\mois#1{\ifcase\numexpr#1\relax
\or janvier\or février\or mars\or avril\or mai\or juin
\or juillet\or août\or septembre\or octobre\or novembre\or décembre\fi}
 
\begin{document}
 
\begin{animateinline}[%
    controls,
    loop,
    begin={\begin{pspicture}(-7.5,-7.5)(7.5,7.5)
    %% Setup fixed objects for the animation
    %% NOTE: This is no real background to save Megabytes. EUF !!!
    %% See attempt of Manuel with "timeline" option of "animate"
    %% Maybe this saves some Megabytes for the resulting *.svg
    %% Jean-Michel knows well how to do it though :-)
    %% Jean-François did it for *.gif for animations
    %% see e.g. "anim-Ellipse.tex" in "xint-polexpr" repo for
    %% further explanations. He there presents the command line!!!
    \caelum{Ciel}%
    %% ATTENTION: Now "linewidth" option needs some unit!!!
    %\caelum[linecolor=MidnightBlue!90!cyan,linewidth=0.25pt]{Graticule}%
    %\caelum[linewidth=0.3pt,linecolor=white]{Boundaries}%
    \caelum[linecolor=Yellow]{Ecliptic}%
    %\caelum[linecolor=black]{Graduations}%
    },
    end={\end{pspicture}}
]{7}% 7 frames/s (velocity of the animation)
\multiframe{365}{i=1+1}{%
%% Set SUN
  \calcTfor{\i-1}%
  \CalendarDate{JD+\i-1}%
  \def\RPSun{\FloatToFix{(90-xmDS(T))/20}}%
  \def\APSun{\FloatToFix{-90-xmADS(T)}}%
  \rput(\RPSun;\APSun){\pscircle[fillcolor=Yellow,fillstyle=solid,linecolor=Yellow](0,0){0.15}}%
%% Set MOON
  \def\dec{\lune[\i,2]}%
  \def\asc{\lune[\i,1]}%
  \def\RPMoon{\FloatToFix{(90-\dec)/20}}%
  \def\APMoon{\FloatToFix{-90-\asc}}%
  \rput(\RPMoon;\APMoon){\pscircle[fillstyle=solid,fillcolor=lightgray,linecolor=lightgray](0,0){0.15}}%
  \rput[l](-7,7){Date : \xinteval{day}.\mois{\xinteval{mon}}.\xinteval{yr}}%
}%
\end{animateinline}
\end{document}