mardi 23 juillet 2013

Propagation d'une onde longitudinale verticale dans un dessin

C'est une suggestion de Jürgen qui est mise en pratique ici : le résultat est amusant, gare au mal de mer...

Le fichier source :

\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](-3,-4)(3,5)
\psframe(-3,-4)(3,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
    x 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
    x
  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}

mickey.eps est ici dans le sous-dossier juillet2013 du dossier :
Rappel, tous les fichiers du package sont dans le dossier indiqué ci-dessus.
La variante AcroTeX par Jürgen Gilg (le fichier source est inclus dans le pdf) est dans le même sous-dossier juillet2013.

Aucun commentaire:

Enregistrer un commentaire