\documentclass[svgnames,dvisvgm]{standalone}
%\documentclass[svgnames]{standalone} % dvips+ps2pdf
\usepackage{amsmath}
%\usepackage[a4paper,margin=1.25cm]{geometry}
\usepackage[T1]{fontenc}
\usepackage{bera}
\usepackage[ngerman]{babel}
\usepackage{xint-meeus}
\usepackage{animate,pstricks-add}
\pstheader{heliolabe.pro}
%\input{sty-jfbu}
\input{pst-heliolabe}
\usepackage{xsavebox} % fichers PDF et SVG légers


% Les mois de l'année
\xintAssignArray{Januar}{Februar}{März}{April}{Mai}{Juni}%
  {Juli}{August}{September}{Oktober}{November}{Dezember}\to\Moisde

\begin{document}
\pagestyle{empty}%
%
\xintdeffloatvar phi0,mois,jour := dms2d(55,45,20.88),12,21;% 21. décembre (latitude Moscou)
%% ANGLES d'écliptique, d'alidade de Moscou à 21. décembre 2021
%% 230.0582 - 50.4456
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{xlrbox}{Tympan}
  \begin{pspicture}(-7.5,-7.5)(7.5,7.5)
    \rput(0,0){\tympanB}
    \rput(0,0){\tympanA}
  \end{pspicture}
\end{xlrbox}%
\xsbox{Ecliptique}{\begin{pspicture}(-7.5,-7.5)(7.5,7.5)\ecliptique\end{pspicture}}%
\xsbox{Alidade}{\begin{pspicture}(-7.5,-7.5)(7.5,7.5)\alidade\end{pspicture}}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{animateinline}[% animate
    controls,
    begin={\begin{pspicture}(-8,-10)(8,9)
      \rput(0,0){\theTympan}%
      \rput[c](0,-8){Winteranfang (\textbf{\xinteval{jour} \Moisde{\xinteval{mois}} 2021})
        in Moskau (Breitengrad: \textbf{\DEGtoDMS{phi0}})}},
    end={\end{pspicture}}]{30}%
\multiframe{231}{r=0+\ftf4{230.0582/230}}{%
  \rput{\r}(0,0){\theEcliptique}%
  \rput{0}(0,0){\theAlidade}
  \rput[l](-7.5,-8.5){\footnotesize\color{Tomato}
     \textbf{1. Drehen Sie das gewünschte Datum der Ekliptik auf den Horizontkreis (im Osten).}}
}%
\newframe
\multiframe{51}{r=0+\ftf4{50.4456/50}}{% number of frames
  \rput{\ftf4{230.0582}}(0,0){\theEcliptique}%
  \rput{\r}(0,0){\theAlidade}%
  \rput[l](-7.5,-8.5){\footnotesize\color{Tomato}\textbf{2. Platzieren Sie die Alhidade im Schnittpunkt der beiden Kreise
   und lesen Sie die Uhrzeit im äußeren Kreis ab.}}
}%
\newframe
  \rput{\ftf4{230.0582}}(0,0){\theEcliptique}%
  \rput{\ftf4{50.4456}}(0,0){\theAlidade}%
  \rput[l](-7.5,-8.5){\footnotesize\color{Tomato}\textbf{3. Man liest die Uhrzeit des Sonnenaufgangs für den
  \textbf{Nullmeridian} mit dem Längengrad \textbf{\DEGtoDMS{phi0}} ab.}}
  \rput[l](-7.2,-9){\footnotesize\color{Tomato}\textbf{Um die lokale Uhrzeit in Moskau zu erhalten, muss man noch den Längengrad von Moskau
  dazurechnen! Kein Problem :-)}}
  \rput[l](-7.2,-9.5){\footnotesize\color{Tomato}\textbf{ACHTUNG: die Uhrzeit des Sonnenuntergangs muss man gegen den Uhrzeigersinn ablesen!!!}}
%% ATTENTION -- ces deux commandes ne fonctionnent plus ...
%  \MarqueCible% L'ajustement de l'écliptique et de l'alidade qui a été ciblé.
%  \MarqueLeverCoucher% Les heures que l'on lit, attention à l'heure du coucher !
\end{animateinline}
\end{document}
