%\DocumentMetadata{lang=en}
%% $Id: pst-nutation-doc-anim1.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{19}{iA=0+1}{%               for pdf and AdobeReader
  \rput(0,5){Nutation}
    \psset{viewpoint=500 0 40 rtp2xyz, Decran=500}
    \psNutation[omega=\iA,dtheta=0,frequency=0,theta=-30]%
  }
\end{animateinline}

\else
  \multido{\n=0.0+0.2,\N=0.0+3.6}{101}{%
    \begin{pspicture}(-5,-5)(5,5)
  \rput(0,5){Nutation}
    \psset{viewpoint=1000 0 40 rtp2xyz,Decran=1000}
    \psNutation[omega=\n,alpha=\N,frequency=10,theta=25]
    \end{pspicture}%
  }
  
\fi

\end{document}