heliolabe-animate.tex

\documentclass[svgnames,a4paper,10pt]{article}
\usepackage{animate,multido,pstricks}
\pstheader{heliolabe2.pro}
\makeatletter
\def\tympan {
 \pst@killglue\begingroup\init@pscode%
  \addto@pscode{
   tx@HeliolabeDict begin tympan end}%
   \use@pscode\endgroup\ignorespaces}%
\def\ecliptique#1{
 \pst@killglue\begingroup\init@pscode%
  \addto@pscode{
   tx@HeliolabeDict begin #1\space ecliptique end}%
   \use@pscode\endgroup\ignorespaces}%
\def\alidade#1{
 \pst@killglue\begingroup\init@pscode%
  \addto@pscode{
   tx@HeliolabeDict begin #1\space alidade end}%
   \use@pscode\endgroup\ignorespaces}%
 
\makeatother
 
\begin{document}
\begin{center}
\begin{pspicture}(-8,-10)(8,7.5)
\rput(0,0){%
 \begin{animateinline}[% animate
  controls, 
  begin={\begin{pspicture}(-7.5,-9)(7.5,9)},
  end={\end{pspicture}}]{10}%
  \multiframe{360}{i=0+1}{%
   \tympan\ecliptique{\i}}%
 \end{animateinline}}
\rput(0,0){%
 \begin{animateinline}[% animate
  controls,
  begin={\begin{pspicture}(-7.5,-7.5)(7.5,7.5)},
  end={\end{pspicture}}]{10}%
  \multiframe{360}{i=0+1}{%
   \alidade{\i}}%
 \end{animateinline}}
\end{pspicture}
\end{center}
 
\end{document}