Propagation d'une onde dans un dessin (suite)

 Deux animations de Jürgen Gilg au format AcroTeX(le source est inclus dans le pdf), dans la première la tour Eiffel danse le swing(Tour_Eiffel_Earthquake.pdf et Parrot_onde_Acrotex.pdf)

applications-conformes

Mickey est toujours à l'ouvrage:

Le code :

\documentclass{article}
\usepackage{pst-nltr,multido}

\pagestyle{empty}
\begin{document}
\begin{center}
\multido{\it=0+1}{36}{%
\begin{pspicture}(-4,-4)(4,5)
\psframe*[linecolor=yellow!10](-4,-4)(4,5)
\psframe(-4,-4)(4,5)
\pstVerb{
/Frequence {1 36 div} bind def
/Lambda 6 def  % longueur d'onde
/FC {
/y exch cm_1 3 sub def
/x exch cm_1 3 sub def
   360 Frequence \it\space mul x Lambda div sub mul cos 0.75 mul
    x add cm
   360 Frequence \it\space mul y Lambda div sub mul cos 0.75 mul
    y add cm
} def}%
\psset{transform=FC}
\psTransform{mickey.eps}%
\pstVerb{
/FC {
/y exch def
/x exch def
  360 Frequence \it\space mul x Lambda div sub mul cos 0.75 mul
    x add
  360 Frequence \it\space mul y Lambda div sub mul cos 0.75 mul
    y add
} def}%
\psset{transform=FC}
\psTransformGrid[linecolor=red,linestyle=dotted,dotsize=10](-3,-3)(3,4)
\end{pspicture}\newpage}
\end{center}
\end{document}