anim.tex

\documentclass{article}
\usepackage{amsmath,amssymb}
\usepackage{multido}
\usepackage[nomessages]{fp}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d}
\usepackage{pstricks-add}
\pagestyle{empty}
\begin{document}
% \section*{A dragon head}
 
\def\voc{%
\psset[pst-solides3d]{SphericalCoor,viewpoint=10 -10 5,Decran=50,lightsrc=30 -40 30}
\rput(0,0){
\psSolid[object=new,fillcolor=lightgray,RotX=90,RotZ=\ai\space,linewidth=0.5\pslinewidth,
sommets=(sommets_dragon.dat) run,
faces={(faces_dragon.dat) run}]%
}}
 
 
\FPdiv{\myDeltaA}{360}{60}%
\def\ai{0}%
\FPdiv{\myDeltaB}{60}{60}%
\def\bi{3}%
 
\multido{\i=1+1}{60}{
 \begin{pspicture}(-7,-4)(4,4)
  \voc
 \end{pspicture}
 \newpage
 \FPadd{\ai}{\ai}{\myDeltaA}
 \FPsub{\bi}{\bi}{\myDeltaB}
}
 
\end{document}