anim-miniciel1.tex

\documentclass[svgnames,border=1cm]{standalone}
\usepackage{pstricks-add}
\usepackage{pst-caelum}
\usepackage{xint-meeus}
\usepackage[export]{animate}
 
 
%"C:\Program Files\ImageMagick-7.0.9-Q16\convert.exe" -verbose -density 50 -alpha remove  -delay 24 "anim-miniciel.pdf" -loop 0 "anim-miniciel.gif"
 
\JulianDay{2021}{1}{1}{0}{0}{0}
 
\begin{document}
 
\begin{animateinline}[%
controls,
palindrome,
begin={\begin{pspicture}(-7.5,-7.5)(7.5,7.5)},
end={\end{pspicture}}
]{15}% 15 frames/s (velocity of the animation)
\multiframe{365}{iA=0+1}{%
\xintdeffloatvar T := (JDT+\iA-2451545.0)/36525;%
\def\RPSun{\FloatToFix{(90-DESun(T))/20}}
\def\APSun{\FloatToFix{-90-RASun(T)}}
\pscircle[fillcolor=Yellow,fillstyle=solid](\RPSun;\APSun){0.1}
}%
\end{animateinline}
\end{document}