mercredi 24 juillet 2013

Propagation d'une onde longitudinale horizontale dans un dessin

Variante du message précédent, Mickey garde le sourire, mais j'ai un peu mal au cœur en regardant ces animations...




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,-3.3)(4,4.2)
\psframe(-4,-3.3)(4,4.2)
\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
    y cm %2 mul
} def}%
\psset{transform=FC}
\psTransform{mickey.eps}%
\psTransformText[linecolor=red,fontscale=1,fillstyle=solid,fillcolor=blue,pos=bc](3,0){Mickey}%
\psTransformText[fontscale=0.2,pos=cc](5.5,6.8){PSTricks}%
\pstVerb{
/FC {
/y exch def
/x exch def
  360 Frequence \it\space mul x Lambda div sub mul cos 0.75 mul
    x add
    y
} def}%
\psset{transform=FC}
\psTransformGrid[linecolor=red,linestyle=dotted,dotsize=10](-3,-3)(3,4)
\end{pspicture}\newpage}
\end{center}
\end{document} 

Aucun commentaire:

Enregistrer un commentaire