Source de anim.tex

$Fichier TeX$
\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}

\def\R{4}            % Radius des festen Kreises (Length fixed Circle)	
\def\r{1}            % Radius des abrollenden Kreises (Length rolling Circle)
\def\A{0.75}         % Abstand erzeugenden Punkt zu Mittelpunkt des abrollenden Kreises (Length Pointer)
\def\winkel{360}     % Winkel: 1 Umlauf entspricht 360 (Angle: 1 revolution corresponds to 360)
\FPdiv{\myDeltaA}{\winkel}{89}%
\def\ai{0}%

\def\psBall{\rput(0,0){\psSolid[object=sphere,r=0.35,hue,RotX=\ai\space,ngrid=12](0,0,0)}}

\def\myFigure{%
 \pstVerb{% erzeugender Punkt (parameterized Hypocycloide)
    /Xcoord \ai\space cos \R\space \r\space sub mul \ai\space \R\space \r\space sub \r\space div mul cos \A\space mul add def % (R-r)cos(a)+A cos[(R/r-1) a]
    /Ycoord \ai\space sin \R\space \r\space sub mul \ai\space \R\space \r\space sub \r\space div mul sin \A\space mul sub def % (R-r)sin(a)-A sin[(R/r-1) a]
    }%
%    \pstVerb{% Mittelpunkt des abrollenden Kreises (Midpoint of rotating circle)
%    /Xc \ai\space cos \R\space \r\space sub mul def%
%    /Yc \ai\space sin \R\space \r\space sub mul def%
%    }%

%    \def\HypoCyc{% Bahnkurve der Hypozykloide (parameterized Hypocycloide for parametricplot)
%    t cos \R\space \r\space sub mul t \R\space \r\space sub \r\space div mul cos \A\space mul add %
%    t sin \R\space \r\space sub mul t \R\space \r\space sub \r\space div mul sin \A\space mul sub %
%    }%

    % Verbindung: Mittelpunkt des abrollenden Kreises zum erzeugenden Punkt = Zeiger (Pointer)
%    \rput(0,0){\psline[linecolor=gray,linewidth=0.5pt]{*-o}(!Xc Yc)(!Xcoord Ycoord)}

    % Abrollender Kreis (Rolling circle)
%    \rput(0,0){\rput(!Xc Yc){\pscircle[linecolor=blue,linewidth=1pt](0,0){\r}}}

    % erzeugender Punkt (generating point)
    \rput(0,0){\rput(!Xcoord Ycoord){\psBall}}%

    % Zeichnen der Hypozykloide (draw the Hypocycloide)
%    \rput(0,0){\parametricplot[plotpoints=500,linewidth=1pt,linecolor=red]{0}{\ai}{\HypoCyc}}%
    
\rput(0,0){\psSolid[object=cube,ngrid=4,
    hue,hollow,
    a=0.5,
    RotZ=-\ai\space](0,0,0)}
}

\multido{\i=1+1}{90}{%
    \begin{pspicture}(-5,-4)(5,4)\myFigure\end{pspicture}
    \newpage
    \FPadd{\ai}{\ai}{\myDeltaA}
}

\end{document}
— Syracuse — Dernière modification : 11 novembre 2007 (0.08s - 3433024 - 29 août 2008)