Source de disqueBouasseAnimation.tex

$Fichier TeX$

\documentclass{article}
\usepackage{pstricks,pst-key,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}
\begin{document}
%\begin{pspicture}(-7,-10)(7,4)
\psset{disque=false}
\multido{\i=1+1}{12}{%
\pssave{volant\the\multidocount}{%
\multido{\rdate=0.00+0.05}{\i}{%
\ifnum\multidocount=\i\psset{disque=true}\fi
\PSTvolant[vitesse=5,date=\rdate]}}}
%\end{pspicture}
\end{document}

— Syracuse — Dernière modification : 20 juin 2002 (0.08s - 3788968 - 23 novembre 2008)