anim.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d,multido}
 
\parindent=0pt
\pagestyle{empty}
 
\begin{document}
{\psset{unit=0.75,linewidth=0.5\pslinewidth}
\multido{\i=-4+2,\I=4+-2}{5}{%
\begin{pspicture}(-4,-2)(4,3)
\psset{lightsrc=50 50 50,viewpoint=40 50 30,Decran=30}
% \psframe(-4,-2)(4,3)
\pstVerb{/tx1 \i\space def /tx2 \I\space def}%
\codejps{
 /anneau1 {0.5 2.5 [12 18] newtore
 {tx1 0 0.5 translatepoint3d} solidtransform
 dup (Apricot) outputcolors} def
 /anneau2 {0.5 2.5 [12 18] newtore
 {tx2 0 0.5 translatepoint3d} solidtransform
 dup (SkyBlue) outputcolors} def
 /collier {anneau1 anneau2 solidfuz} def
/dallage {-8 8 -5 5 16 10 newgrille
         {0 0 -0.5 translatepoint3d} solidtransform
           dup (White) outputcolors} def
  dallage collier  solidfuz drawsolid**}
\axesIIID(0,0,0)(8,5,6)
\end{pspicture}\newpage}}
 
{\psset{unit=0.75,linewidth=0.5\pslinewidth}
\multido{\i=-4+2,\I=4+-2}{5}{%
\begin{pspicture}(-4,-2)(4,3)
\psset{lightsrc=50 50 50,viewpoint=40 50 20,Decran=30}
% \psframe(-4,-2)(4,3)
\pstVerb{/tx1 \i\space def /tx2 \I\space def}%
\codejps{
 /anneau1 {0.5 2.5 [12 18] newtore
 {tx1 0 0.5 translatepoint3d} solidtransform
 dup (Apricot) outputcolors} def
 /anneau2 {0.5 2.5 [12 18] newtore
  {90 0 0 rotateOpoint3d} solidtransform
 {tx2 0 0.5 translatepoint3d} solidtransform
 dup (SkyBlue) outputcolors} def
 /collier {anneau1 anneau2 solidfuz} def
/dallage {-8 8 -4 4 16 8 newgrille
           dup (White) outputcolors} def
  dallage collier  solidfuz drawsolid**}
\axesIIID(0,0,0)(8,4,5)
\end{pspicture}\newpage}}
 
{\psset{unit=0.75,linewidth=0.5\pslinewidth}
\multido{\iR=0+60}{5}{%
\begin{pspicture}(-4,-2)(4,3)
\psset{lightsrc=50 50 50,viewpoint=40 50 20,Decran=30}
% \psframe(-4,-2)(4,3)
\pstVerb{/iRot \iR\space def}%
\codejps{
 /anneau1 {0.5 2.5 [12 18] newtore
 {-1 0 0.5 translatepoint3d} solidtransform
 dup (Apricot) outputcolors} def
 /anneau2 {0.5 2.5 [12 18] newtore
  {90 0 0 rotateOpoint3d} solidtransform
 {1 0 0.5 translatepoint3d} solidtransform
 dup (SkyBlue) outputcolors} def
 /collier {anneau1 anneau2 solidfuz} def
/dallage {-8 8 -4 4 16 8 newgrille
           dup (White) outputcolors} def
  dallage collier  solidfuz
  {0 0 iRot rotateOpoint3d} solidtransform drawsolid**}
\end{pspicture}\newpage}}
\end{document}