Phénomènes dus à la réfraction - mise à jour 1 (Refraction of Water)

Nouvelle commande : \listplotR
Le tracé d'un contour polygonal est fonctionnel : \pspolygonR[...](x0,y0)(x1,y1)(...)(xn,yn)
Ce sont des exemples d’utilisation de la commande \listplotR[...]{x0 y0 x1 y1 ...}, qui est l’analogue de la commande PSTricks \listplot[...]{x0 y0 x1 y1 ...}, mais dont les coordonnées sont calculées pour obtenir l’image par réfraction d’un objet, ici une amphore, ou d’un poisson.
Quelques images illustrant cette commande.

L’amphore dont seul le contour est dessiné est dans sa position réelle, l’amphore colorée est l’image vue par le spectateur.

L’amphore couchée au fond de l’eau et un poisson. La première image représente les positions réelles, la seconde les images vues.

Cette dernière image illustre le tracé d'une paire de rayons réfractés issus d'un point de la sardine.

Les fichiers sont regroupés dans cette archive (refraction.zip) du répertoire :

refraction2015

Image d'un damier :

\begin{pspicture}(0,-10)(10,6)
\psframe*[linecolor=eau](0,-10)(10,0)
\psframe*[linecolor=white](1.75,-9.25)(8.25,-2.75)
\multido{\ry=-8.75+1,\rY=-8.25+1}{6}{
\multido{\n=2.25+1.00,\N=2.75+1.00}{6}{%
    \psframe*[linecolor=red](\n,\ry)(\N,\rY)}
    }
\multido{\ry=-9.25+1,\rY=-8.75+1}{7}{
\multido{\n=1.75+1.00,\N=2.25+1.00}{7}{%
    \psframe*[linecolor=blue](\n,\ry)(\N,\rY)}
    }
\psframe(1.75,-9.25)(8.25,-2.75)
\psframe(0,-10)(10,6)
\end{pspicture}
\begin{pspicture}(0,-10)(10,6)
\psset{xObserver=5,yObserver=1,SizeObserver=0.5,abscisseDirectionRegard=5.01}
\EyeDraw
\psframe*[linecolor=eau](0,-10)(10,0)
\psframeR*[linecolor=white](1.75,-9.25)(8.25,-2.75)
\multido{\ry=-8.75+1,\rY=-8.25+1}{6}{
\multido{\n=2.25+1.00,\N=2.75+1.00}{6}{%
    \psframeR*[linecolor=red](\n,\ry)(\N,\rY)}
    }
\multido{\ry=-9.25+1,\rY=-8.75+1}{7}{
\multido{\n=1.75+1.00,\N=2.25+1.00}{7}{%
    \psframeR*[linecolor=blue](\n,\ry)(\N,\rY)}
    }
\psframeR(1.75,-9.25)(8.25,-2.75)
\psframe(0,-10)(10,6)
\end{pspicture}