%\DocumentMetadata{lang=en}
%% $Id: pst-nutation-doc-anim5.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{41}{n=0.0+0.5}{%
  \rput(0,5){Rotation}
  \psset{viewpoint=500 0 40 rtp2xyz,Decran=500}
  \psNutation[omega=\n,dtheta=0,theta=-40,frequency=0,linecolor={[rgb]{0 0.5 0}}]
\end{animateinline}

\else
  \multido{\n=0.0+0.5}{41}{%
    \begin{pspicture}(-5,-5)(5,5)
      \rput(0,5){Rotation}
      \psset{viewpoint=1000 0 40 rtp2xyz,Decran=1000}
      \psNutation[omega=\n,dtheta=0,theta=-40,frequency=0,linecolor={[rgb]{0 0.5 0}}]
    \end{pspicture}%
}
\fi
\end{document}