%\DocumentMetadata{lang=en}
%% $Id: pst-nutation-doc-anim2.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}}]{20}% 20 images/s
\multiframe{73}{n=0.00+0.25,N=0.0+5.0}{
  \rput(0,5){Nutation}
\psset{viewpoint=500 0 40 rtp2xyz,Decran=500}
\psNutation[omega=\n,alpha=\N,frequency=0,dtheta=0]}
\end{animateinline}

\else
  \multido{\rn=0.00+0.25,\rN=0.0+5.0}{73}{%
    \begin{pspicture}(-5,-5)(5,5)
  \rput(0,5){Nutation}
    \psset{viewpoint=500 0 40 rtp2xyz,Decran=500}
    \psNutation[omega=\rn,alpha=\rN,frequency=10,theta=25]
    \end{pspicture}%
  }
\fi

\end{document}