Moirés avec pst-contourplot

Ce sont deux moirés qui illustrent la quatrième de couverture du premier livre de Isaac Amidror : "The Theory of the Moiré Phenomenon" volume 1 : "Periodic Layers" (voir la page précédente).

Le tracé comprend 2 étapes :

Écriture des données de toutes les courbes sur le disque :

\documentclass[pstricks]{standalone}
\usepackage{pst-contourplot,multido}
\begin{document}
% enregistrement des données
% de chaque courbe
\begin{pspicture}(-6,-6)(6,6)
\multido{\r=3+-0.05,\i=1+1}{120}{%
\pstVerb{/isovalue \r\space def}%
\psContourPlot[algebraic,unit=2,function=y-Ex(-(x^2+y^2)/4)+isovalue,WriteData,FileName=f\i](-3,-3)(3,3)
}%
\end{pspicture}
\end{document}

Deuxième étape : lecture données et tracé des courbes (il y a une version noir et blanc et une en couleurs) :

\documentclass{article}
\usepackage{pst-contourplot,multido}
\begin{document}
\begin{center}
\begin{pspicture}(-6,-6)(6,6)
\psset{linewidth=1.5\pslinewidth}
\psframe*[linecolor=orange!50](-6.75,-6.5)(6.5,6.75)
\multido{\i=1+1}{120}{%
\psReadData[FileName=f\i]
}%
\psframe(-6,-6)(6,6)
\rput{0}(-.5,.5){\multido{\i=1+1}{120}{%
\psReadData[FileName=f\i]
}}%
\rput{0}(-0.5,0.5){\psframe(-6,-6)(6,6)}
\end{pspicture}
\end{center}

\begin{center}
\begin{pspicture}(-6,-6)(6,6)
\psset{linewidth=1.25\pslinewidth}
\psframe*[linecolor=orange!50](-6.75,-6.5)(6.5,6.75)
\multido{\i=1+1}{120}{%
\psReadData[FileName=f\i]
}%
\psframe(-6,-6)(6,6)
\rput{5}(-0.5,0.5){\multido{\i=1+1}{120}{%
\psReadData[FileName=f\i]
}}%
\rput{5}(-0.5,0.5){\psframe(-6,-6)(6,6)}
\end{pspicture}
\end{center}

\begin{center}
\begin{pspicture}(-6,-6)(6,6)
\psset{linewidth=1.25\pslinewidth}
\psframe*[linecolor=orange!50](-6.75,-6.5)(6.5,6.75)
\multido{\i=1+1}{120}{%
\psReadData[FileName=f\i,linecolor=blue]
}%
\psframe[linecolor=blue](-6,-6)(6,6)
\rput{0}(-.5,.5){\multido{\i=1+1}{120}{%
\psReadData[FileName=f\i,linecolor=red]
}}%
\rput{0}(-0.5,0.5){\psframe[linecolor=red](-6,-6)(6,6)}
\end{pspicture}
\end{center}

\begin{center}
\begin{pspicture}(-6,-6)(6,6)
\psset{linewidth=1.25\pslinewidth}
\psframe*[linecolor=orange!50](-6.75,-6.5)(6.5,6.75)
\multido{\i=1+1}{120}{%
\psReadData[FileName=f\i,linecolor=blue]
}%
\psframe[linecolor=blue](-6,-6)(6,6)
\rput{5}(-0.5,0.5){\multido{\i=1+1}{120}{%
\psReadData[FileName=f\i,linecolor=red]
}}%
\rput{5}(-0.5,0.5){\psframe[linecolor=red](-6,-6)(6,6)}
\end{pspicture}
\end{center}
\end{document}

Les images :

Le package pst-contourplot est disponible sur le serveur du CTAN :

https://ctan.org/pkg/pst-contourplot

Mais vous trouverez une version mise à jour ici (je n'ai pas encore actualisé celle du CTAN, mais elle est opérationnelle pour les exemples ci-dessus) :

pst-contourplot-v2

Le fichier zippé contient package, exemples et documentation. Voir les pages :
http://pstricks.blogspot.com/2018/07/un-exemple-pour-illustrer-lutilisation.html
http://pstricks.blogspot.com/2018/07/pst-contourplot-fonctions-complexes.html
http://pstricks.blogspot.com/2018/07/mise-jour-de-pst-contourplot-et-pst.html