\documentclass{article}
\usepackage{pstricks,pst-eps,multido}
\usepackage{pst-disk}
\usepackage[a4paper]{geometry}
% Mluque5130@aol.com
% 16-18 juin 2002
% disque tournant
% avec représentation des mobiles
% pour animation
% avec trajectoires
% et choix du cercle
% Denis Girou
\newcommand{\pssave}[2]{\PSTtoEPS[headers=all,bburx=7cm,bbury=6cm,bbllx=-7cm,bblly=-12cm]{#1.eps}{#2}}
%
\pagestyle{empty}
\newcount\It
\begin{document}
%\begin{pspicture}(-7,-10)(7,4)
\psset{disque=false}
\multido{\i=1+1}{12}{%
\It=\i
  \ifnum\i<10
    \def\Pad{0}%
  \else
    \def\Pad{}%
  \fi
\pssave{volant\Pad\the\multidocount}{%
\multido{\rdate=0.00+0.05,\idate=1+1}{\i}{%
\ifnum\idate=\It\psset{disque=true}\else\psset{disque=false}\fi
\PSTvolant[vitesse=5,date=\rdate]}}}
%\end{pspicture}
\end{document}
