anim.tex

\documentclass{article}
\usepackage{amsmath,amssymb}
\usepackage{multido}
\usepackage[nomessages]{fp}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pstricks-add}
\usepackage{pst-solides3d}
 
 
\definecolor{red}{rgb}{0.73,0.00,0.00}
\definecolor{green}{rgb}{0.00,0.53,0.38}
 
\pagestyle{empty}
\begin{document}
% \section*{Joyeux avent \`{a} vous tous \dots}
 
\psset{unit=0.25}
\def\myFigure{%
\psset{lightsrc=10 5 10,SphericalCoor,viewpoint=20 10 30,Decran=50,RotZ=\ai\space}
 
\rput(10,-6){\psSolid[%
    object=tore,
    r1=5,
    r0=1.5,
    fillcolor=green,
    incolor=lightgray,
    ngrid=18 36,
    solidmemory=true,
    action=none,
    name=outer,
    ](0,0,0)
\psSolid[%
    object=cylindre,
    h=4,
    r=1,
    fillcolor=red,
    incolor=gray,
    ngrid=8 18,
    solidmemory=true,
    action=none,
    name=inner1,
    ](0 cos 5 mul,0 sin 5 mul,0.85)
\psSolid[%
    object=cylindre,
    h=0.3,
    r=0.1,
    fillcolor=black,
    incolor=gray,
%    ngrid=4 32,
    solidmemory=true,
    action=none,
    name=innerd1,
    ](0 cos 5 mul,0 sin 5 mul,4.85)
\psSolid[%
    object=cone,
    h=0.65,
    r=0.35,
    fillcolor=yellow,
    solidmemory=true,
    action=none,
    name=innerc1,
    ](0 cos 5 mul,0 sin 5 mul,5.05)
\psSolid[%
    object=cylindre,
    h=3,
    r=1,
    fillcolor=red,
    incolor=gray,
    ngrid=6 18,
    solidmemory=true,
    action=none,
    name=inner2,
    ](90 cos 5 mul,90 sin 5 mul,0.85)
\psSolid[%
    object=cylindre,
    h=0.3,
    r=0.1,
    fillcolor=black,
    incolor=gray,
%    ngrid=4 32,
    solidmemory=true,
    action=none,
    name=innerd2,
    ](90 cos 5 mul,90 sin 5 mul,3.85)
\psSolid[%
    object=cone,
    h=0.65,
    r=0.35,
    fillcolor=yellow,
    solidmemory=true,
    action=none,
    name=innerc2,
    ](90 cos 5 mul,90 sin 5 mul,4.05)
\psSolid[%
    object=cylindre,
    h=2,
    r=1,
    fillcolor=red,
    incolor=gray,
    ngrid=4 18,
    solidmemory=true,
    action=none,
    name=inner3,
    ](180 cos 5 mul,180 sin 5 mul,0.85)
\psSolid[%
    object=cylindre,
    h=0.3,
    r=0.1,
    fillcolor=black,
    incolor=gray,
%    ngrid=4 32,
    solidmemory=true,
    action=none,
    name=innerd3,
    ](180 cos 5 mul,180 sin 5 mul,2.85)
\psSolid[%
    object=cone,
    h=0.65,
    r=0.35,
    fillcolor=yellow,
    solidmemory=true,
    action=none,
    name=innerc3,
    ](180 cos 5 mul,180 sin 5 mul,3.05)
\psSolid[%
    object=cylindre,
    h=1,
    r=1,
    fillcolor=red,
    incolor=gray,
    ngrid=2 18,
    solidmemory=true,
    action=none,
    name=inner4,
    ](270 cos 5 mul,270 sin 5 mul,1.15)
\psSolid[%
    object=cylindre,
    h=0.3,
    r=0.1,
    fillcolor=black,
    incolor=gray,
%    ngrid=4 32,
    solidmemory=true,
    action=none,
    name=innerd4,
    ](270 cos 5 mul,270 sin 5 mul,2.15)
\psSolid[%
    object=cone,
    h=0.65,
    r=0.35,
    fillcolor=yellow,
    solidmemory=true,
    action=none,
    name=innerc4,
    ](270 cos 5 mul,270 sin 5 mul,2.35)
\psSolid[%
    object=fusion,
    base=inner1 inner2 inner3 inner4 innerd1 innerd2 innerd3 innerd4 innerc1 innerc2 innerc3 innerc4 outer,
    name=spiro,
    action=draw**
    ](0,0,0)%
\composeSolid}
}
 
\FPdiv{\myDeltaA}{360}{60}%
\def\ai{0}%
\FPdiv{\myDeltaB}{60}{60}%
\def\bi{3}%
\multido{\i=1+1}{60}{
    \begin{pspicture}(-4,-4)(4,10)
	\myFigure%
    \end{pspicture}
    \newpage
    \FPadd{\ai}{\ai}{\myDeltaA}
    \FPsub{\bi}{\bi}{\myDeltaB}
}
 
\end{document}