%\DocumentMetadata{lang=en}
%% $Id: pst-nutation-doc-anim4.tex 1198 2025-12-20 13:27:56Z herbert $
\documentclass[pstricks,border=5mm]{standalone}
\usepackage{animate}
\usepackage{pst-tools,pst-nutation}

\newif\ifAdobe \Adobefalse

\begin{document}

\ifAdobe
\begin{animateinline}[controls,loop,
                     begin={\begin{pspicture}[showgrid=](-5,-5)(5,5)},
                     end={\end{pspicture}}]{10}% 10 images/s
\multiframe{101}{n=0.0+0.2,N=0.0+3.6}{%
  \rput(0,5){Precession}
  \psset{viewpoint=500 0 40 rtp2xyz,Decran=500}
  \psNutation[omega=\n,alpha=\N,dtheta=0,theta=40,frequency=0,linecolor={[rgb]{0.8 0 0}}]
\end{animateinline}

\else
  \multido{\n=0.0+0.2,\N=0.0+3.6}{101}{%
    \begin{pspicture}(-5,-5)(5,5)
  \rput(0,5){Precession}
    \psset{viewpoint=500 0 40 rtp2xyz,Decran=500}
    \psNutation[omega=\n,alpha=\N,dtheta=0,theta=40,frequency=0,linecolor={[rgb]{0.8 0 0}}]
    \end{pspicture}%
}
\fi

\end{document}