Les ondulations d'Elastoc(Tiramolla)

Une application du package pst-nltr. Rappel, tous les fichiers du package et les images eps sont dans ce répertoire :
applications-conformes

Le code permettant de générer les images nécessaires à l'animation d'Elastoc :

\documentclass{article}
\usepackage{pst-nltr,multido}
\date{26 juillet 2013}
\pagestyle{empty}
\begin{document}

\begin{center}
\multido{\r=-1+0.08}{25}{
\begin{pspicture}(-5,-5)(5,5)
\psframe*(-5,-5)(5,5)
%\psframe(-5,-5)(5,5)
\pstVerb{/FC {
/y exch def
/x exch def
x y 540 mul 3.14159 div cos \r\space mul add y 2 mul} def}%
\psset{transform=FC}
\psPolygonNL[linecolor=blue,fillstyle=solid,fillcolor=white](-2,-2)(2,-2)(2,2)(-2,2)
\psTransformGrid[linecolor=blue](-2,-2)(2,2)
\pstVerb{/FC {
/y exch cm_1 def
/x exch cm_1 def
x y 540 mul 3.14159 div cos \r\space mul add cm y 2 mul cm } def}%
\psset{transform=FC}
\psTransform{elastoc2.eps}%
\psTransformText[linecolor=blue,fillstyle=solid,fillcolor=green,fontscale=0.7](3,1.5){E}
\psTransformText[linecolor=blue,fillstyle=solid,fillcolor=green,fontscale=0.7](3,1){L}
\psTransformText[linecolor=blue,fillstyle=solid,fillcolor=green,fontscale=0.7](3,0.5){A}
\psTransformText[linecolor=blue,fillstyle=solid,fillcolor=green,fontscale=0.7](3,0){S}
\psTransformText[linecolor=blue,fillstyle=solid,fillcolor=green,fontscale=0.7](3,-0.5){T}
\psTransformText[linecolor=blue,fillstyle=solid,fillcolor=green,fontscale=0.7](3,-1){O}
\psTransformText[linecolor=blue,fillstyle=solid,fillcolor=green,fontscale=0.7](3,-1.5){C}
\uput[r](2.5,-4.8){\white PSTricks 2013}
\end{pspicture}\newpage}
\end{center}
\end{document}