animation_polytope.tex

\documentclass{article}
\usepackage{animate}
\usepackage{pst-coxeterp,multido}
\def\polytope#1{%
\psframe*(-2.5,-2.5)(2.5,2.5)
\psframe[linecolor=red,linewidth=0.05](-2.5,-2.5)(2.5,2.5)
\gammaptwo[P=#1,linecolor=white,linewidth=0.75\pslinewidth]%
\rput(0,-2.3){\texttt{\white P=#1}}
}
\begin{document}
\begin{center}
 
\newcounter{parametre}
\begin{animateinline}[%
  width=0.9\linewidth,
  begin={\begin{pspicture}(-2.5,-2.5)(2.5,2.5)},
  end={\end{pspicture}},
  buttonsize=1cm,
 controls,
%  autoplay
]{10}% <-- nbre d'images /seconde
  \setcounter{parametre}{2}%
  \polytope{\theparametre}%
  \whiledo{\theparametre<25}{%
    \newframe%
    \stepcounter{parametre}%
    \polytope{\theparametre}%
  }%
\end{animateinline}
 
\end{center}
 
\end{document}