Quelques macros de pst-optic utiles pour construire rayons et faisceaux incidents et réfléchis par un miroir plan

En préambule à l'anamorphose dans un miroir plan, quelques macros de pst-optic utiles pour construire rayons et faisceaux incidents et réfléchis par un miroir plan.
\planMirrorRay(A)(M1)(M2){A'}
A est la source (le point objet), M1 et M2 les deux extrémités du miroir et A' est le point image obtenu.

 \symPlan(M1)(M2){objet}
L'objet est décrit par des commandes PSricks ou bien ce peut être une image eps avec \includegraphics{image.eps}

\begin{pspicture}(-5,-5)(5,8)
\rput(-2,2){\BecBunsen}
\pnode(-5,-3){M1}
\pnode(5,5){M2}
\uput[-90](M1){M1}
\uput[90](M2){M2}
\psline[linewidth=5\pslinewidth](M1)(M2)
\ncline[linewidth=4\pslinewidth,linecolor=BleuVerre]{M1}{M2}
\psset{linestyle=dashed}
\symPlan(M1)(M2){\rput(-2,2){\BecBunsen}}
\end{pspicture}

Les fichiers :
http://melusine.eu.org/syracuse/G/pstricks/Anamorphoses/anamorphose_pyramidale