\documentclass{article} \usepackage[dvipsnames,svgnames]{pstricks} \usepackage{pst-node,pst-plot,pst-eucl} \usepackage{graphicx} \usepackage{pst-solides3d} \usepackage{multido} \usepackage[nomessages]{fp} \pagestyle{empty} \begin{document} \psset{unit=1} \psset{lightsrc=10 0 10,SphericalCoor=true,viewpoint=50 -20 30,Decran=50} \def\voc{ \rput(0,0){\codejps{ 3 newtetraedre dup .8 solidchampfreine dup videsolid dup (jaune) outputcolors dup (rouge) inputcolors {0 0 \ai\space rotateOpoint3d} solidtransform dup drawsolid** } } } \FPdiv{\myDeltaA}{90}{49}% \def\ai{0}% \FPdiv{\myDeltaB}{0.73}{49}% \def\bi{0}% \FPdiv{\myDeltaC}{30}{49}% \def\ci{15}% \multido{\i=1+1}{49}{ \begin{pspicture}(-3,-3)(3,3) \voc \end{pspicture} \newpage \FPadd{\ai}{\ai}{\myDeltaA}\FPround{\ai}{\ai}{6}% \FPadd{\bi}{\bi}{\myDeltaB}\FPround{\bi}{\bi}{6}% \FPadd{\ci}{\ci}{\myDeltaC}\FPround{\ci}{\ci}{6}% } \end{document}