Anneaux de Fresnel : moirés

Les figures de moiré obtenues par superposition de 2 ensembles d'anneaux de Fresnel ont déjà été représentées et étudiées lors de l'élaboration du package ``pst-moire'' (M. Luque, J. Gilg, J-M. Sarlat ) :
http://melusine.eu.org/syracuse/G/pstricks/pst-moire/
Ces 2 animations ne sont donc pas des nouveautés, mais simplement un prétexte pour rappeler l'existence du package dont l'écriture nous avait donné à tous les trois, beaucoup de joie.
On trouve aussi quelques pages consacrées à ce package sur ce blog :
http://pstricks.blogspot.fr/2011/11/les-moires-moire-patterns.html
http://pstricks.blogspot.fr/2011/11/figures-de-moire-en-forme-de-trefle-4.html
http://pstricks.blogspot.fr/2011/11/creer-un-moire-tournant-ou-comment-se.html

En suivant le lien suivant, vous trouverez une animation avec la souris.
https://sites.google.com/view/manuelluque/anneaux-de-fresnel-moir%C3%A9s

Le code de ces 2 animations :

\documentclass[pstricks]{standalone}
\usepackage{pst-moire}
\begin{document}
\multido{\r=0+0.05}{100}{%
\begin{pspicture}(-5,-5)(5,5)
\psmoire[Rmax=12,linecolor={[rgb]{0 0.25 0}}](-\r,0)
\psmoire[Rmax=12,linecolor={[rgb]{0 0.25 0}}](\r,0)
\psdots[linecolor={[rgb]{0.5 0 0}}](-\r,0)(\r,0)
\end{pspicture}}
\end{document}

\documentclass[pstricks]{standalone}
\usepackage{pst-moire}
\begin{document}
\psset{dimen=inner}
\multido{\i=0+2}{180}{%
\begin{pspicture}(-5,-5)(5,5)
\psmoire[Rmax=20,scale=0.75,linecolor={[rgb]{0 0.25 0}}](0,0)
\psmoire[Rmax=20,scale=0.75,linecolor={[rgb]{0 0.25 0}}](!0.4 \i\space cos mul 0.4 \i\space sin mul)
\psdot[dotstyle=+](0,0)%
\pscircle*[linecolor={[rgb]{0.5 0 0}}](!0.4 \i\space cos mul 0.4 \i\space sin mul){0.1}%
\pscircle[linestyle=dotted]{0.4}%
\end{pspicture}}
\end{document}

Avec 4 groupes d'anneaux, on obtient un moiré en damier.

Le listing :

\documentclass[pstricks]{standalone}
\usepackage{pst-moire}
\begin{document}
\multido{\r=0+0.02}{30}{
\begin{pspicture}(-8,-8)(8,8)
\psmoire[Rmax=20](-\r,0)
\psmoire[Rmax=20](\r,0)
\psmoire[Rmax=20](0,\r)
\psmoire[Rmax=20](0,-\r)
\psdots[linecolor=red](-\r,0)(\r,0)(0,\r)(0,-\r)
\end{pspicture}}
\end{document}